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Part  I:  Program  Description  -  Theory 
(Revised  2  Jan  80) 


Preface 


The  Numerical  Electromagnetics  Code  (NEC)  has  been  developed  at  the 
Lawrence  Livermore  Laboratory,  Livermore,  California,  under  the  sponsorship 
of  the  Naval  Ocean  Systems  Center  and  the  Air  Force  Weapons  Laboratory. 

It  is  an  advanced  version  of  the  Antenna  Modeling  Program  (AMP)  developed  in 
the  early  1970's  by  MBAssociates  for  the  Naval  Research  Laboratory,  Naval  Ship 
Engineering  Center,  U.S.  Army  ECOM/ Communications  Systems,  U.S.  Army  Strategic 
Communications  Command,  and  Rome  Air  Development  Center  under  Office  of  Naval 
Research  Contract  N00014-71-C-0187.  The  present  version  of  NEC  is  the  result 
of  efforts  by  6.  J.  Burke  and  A.  J.  Poggio  of  Lawrence  Livermore  Laboratory. 

The  documentation  for  NEC  consists  of  three  volumes: 

Part  I:  NEC  Program  Description  —  Theory 

Part  II:  NEC  Program  Description  —  Code 

Part  III:  NEC  User's  Guide 

The  documentation  has  been  prepared  by  using  the  AMP  documents  as 
foundations  and  by  modifying  those  as  needed.  In  some  cases  this  led  to  minor 
changes  in  the  original  documents  while  in  many  cases  major  modifications  were 
required. 

Over  the  years  many  individuals  have  been  contributors  to  AMP  and  NEC 
and  are  acknowledged  here  as  follows: 

R.  W.  Adams  R.  J.  Lytle 

J.  N.  Britt ingham  E.  K.  Miller 

G.  J.  Burke  J.  B.  Morton 

F.  J.  Deadrick  G.  M.  Pjerrou 

K.  K.  Hazard  A.  J.  Poggio 

D.  L.  Knepp  E.  S.  Selden 

D.  L.  Lager 

The  support  for  the  development  of  NEC-2  at  the  Lawrence  Livermore  Laboratory 
has  been  provided  by  the  Naval  Ocean  Systems  Center  under  MIPR-N0095376MP. 
Cognizant  individuals  under  whom  this  project  was  carried  out  include: 

J.  Rockway  and  J.  Logan.  Previous  development  of  NEC  also  included  the  support 
of  the  Air  Force  Weapons  Laboratory  (Project  Order  76-090)  and  was  monitored  by 
J.  Castillo  and  TSgt.  H.  Goodwin. 

Work  was  performed  under  the  auspices  of  the  U.S.  Department  of  Energy 
under  contract  No.  W-7405-Eng-48.  Reference  to  a  company  or  product  name 


loes  not  imply  approval  or  recommendation  of  the  product  by  the  University 
if  California  or  the  U.S.  Department  of  Energy  to  the  exclusion  of  others 
hat  may  be  suitable. 
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Section  I 
Introduction 


The  Numerical  Electromagnetics  Code  (NEC-2)  is  a  user-oriented  computer 
code  for  the  analysis  of  the  electromagnetic  response  of  antennas  and  other 
metal  structures.  It  is  built  around  the  numerical  solution  of  integral 
equations  for  the  currents  induced  on  the  structure  by  sources  or  incident 
fields.  This  approach  avoids  many  of  the  simplifying  assumptions  required  by 
other  solution  methods  and  provides  a  highly  accurate  and  versatile  tool  for 
electromagnetic  analysis. 

The  code  combines  an  integral  equation  for  smooth  surfaces  with  one 
specialized  to  wires  to  provide  for  convenient  and  accurate  modeling  of  a  wide 
range  of  structures.  A  model  may  include  nonradiating  networks  and  transmission 
lines  connecting  parts  of  the  structure,  perfect  or  imperfect  conductors,  and 
lumped-element  loading.  A  structure  may  also  be  modeled  over  a  ground  plane 
that  may  be  either  a  perfect  or  imperfect  conductor. 

The  excitation  may  be  either  voltage  sources  on  the  structure  or  an 
incident  plane  wave  of  linear  or  elliptic  polarization.  The  output  may  include 
induced  currents  and  charges,  near  electric  or  magnetic  fields,  and  radiated 
fields.  Hence,  the  program  is  suited  to  either  antenna  analysis  or  scattering 
and  EMP  studies.  NEC  and  its  predecessor  AMP  have  been  used  successfully  to 
model  a  wide  range  of  antennas  including  complex  environments  such  as  ships. 
Results  from  modeling  several  antennas  with  NEC  are  shown  in  refs.  36,  37, 
and  38  with  measured  data  for  comparison. 

The  integral-equation  approach  is  best  suited  to  structures  with  dimen¬ 
sions  up  to  several  wavelengths.  Although  there  is  no  theoretical  size  limit, 
the  numerical  solution  requires  a  matrix  equation  of  increasing  order  as  the 
structure  size  is  increased  relative  to  wavelength.  Hence,  modeling  very  large 
structures  may  require  more  computer  time  and  file  storage  than  is  practical  on 
a  particular  machine.  In  such  cases  standard  high-frequency  approximations 
such  as  geometrical  or  physical  optics,  or  geometric  theory  of  diffraction  may 
be  more  suitable  than  the  integral  equation  approach  used  in  NEC. 

The  code  NEC-2  is  the  latest  in  a  series  of  electromagnetics  codes,  each 
of  which  has  built  upon  the  previous  one.  The  first  in  the  series  was  the  code 
BRACT  which  was  developed  at  MBAssociates  in  San  Ramon,  California,  under  the 
funding  of  the  Air  Force  Space  and  Missiles  Systems  Organization  (refs.  1  and 
2).  BRACT  was  specialized  to  scattering  by  arbitrary  thin-wire  configurations. 


The  code  AMP  followed  BRACT  and  was  developed  at  MBAssoclates  with 
funding  from  the  Naval  Research  Laboratory,  Naval  Ship  Engineering  Center, 

U.S.  Army  ECOM/Communications  Systems,  U.S.  Army  Strategic  Communications 
Command,  and  Rome  Air  Development  Center  under  Office  of  Naval  Research 
Contract  N00014-71-C-0187.  AMP  uses  the  same  numerical  solution  method  as 
BRACT  with  the  addition  of  the  capability  of  modeling  a  structure  over  a 
ground  plane  and  an  option  to  use  file  storage  to  greatly  increase  the  maximum 
structure  size  that  may  be  modeled.  The  program  input  and  output  were 
extensively  revised  for  AMP  so  that  the  code  could  be  used  with  a  minimum  of 
learning  and  computer  programming  experience.  AMP  includes  extensive 
documentation  to  aid  in  understanding,  using,  and  modifying  the  code  (refs. 

3,  4  and  5). 

A  modeling  option  specialized  to  surfaces  was  added  to  the  wire  model¬ 
ing  capabilities  of  AMP  in  the  AMP2  code  (ref.  6).  A  simplified  approximation 
for  large  interaction  distances  was  also  included  in  AMP2  to  reduce  running 
time  for  large  structures. 

The  code  NEC-1  addea  to  AMP2  a  more  accurate  current  expansion  along 
wires  and  at  multiple  wire  junctions,  and  an  option  in  the  wire  modeling 
technique  for  greater  accuracy  on  thick  wires.  A  new  model  for  a  voltage 
source  was  added  and  several  other  modifications  made  for  increased  accuracy 
and  efficiency. 

NEC-2  retains  all  features  of  NEC-1  except  for  a  restart  option.  Major 
additions  in  NEC-2  are  the  Numerical  Green's  Function  for  partitioned-matrix 
solution  and  a  treatment  for  lossy  grounds  that  is  accurate  for  antennas  very 
close  to  the  ground  surface.  NEC-2  also  includes  an  option  to  compute  maximum 
coupling  between  antennas  and  new  options  for  structure  input. 

Part  I  of  this  document  describes  the  equations  and  numerical  methods 
used  in  NEC.  Part  III:  NEC  User's  Guide  (ref.  7)  contains  instructions 
for  using  the  code,  including  preparation  of  input  and  interpretation  of 
output.  Part  II:  NEC  Program  Description  —  Code  (ref.  8)  describes  the 
coding  in  detail.  The  user  encountering  the  code  for  the  first  time  should 
begin  with  the  User's  Guide  and  try  modeling  some  simple  antennas.  Part  II 
will  be  of  interest  mainly  to  someone  attempting  to  modify  the  code. 

Reading  part  I  will  be  useful  to  the  new  user  of  NEC-2,  however,  since  an 
understanding  of  the  theory  and  solution  method  will  assist  in  the  proper 
application  of  the  code. 


Section  II 

The  Integral  Equations  For  Free  Space 


The  NEC  program  uses  both  an  electric-field  integral  equation  (EFIE) 
and  a  magnetic- field  integral  equation  (MF1E)  to  model  the  electromagnetic 
response  of  general  structures.  Each  equation  has  advantages  for  particular 
structure  types.  The  EFIE  is  well  suited  for  thin-wlre  structures  of  small 
or  vanishing  conductor  volume  while  the  MFIE,  which  fails  for  the  thin-wire 
case,  is  more  attractive  for  voluminous  structures,  especially  those  having 
large  smooth  surfaces.  The  EFIE  can  also  be  used  to  model  surfaces  and  is 
preferred  for  thin  structures  where  there  is  little  separation  between  a 
front  and  back  surface.  Although  the  EFIE  is  specialized  to  thin  wires  in 
this  program,  it  has  been  used  to  represent  surfaces  by  wire  grids  with 
reasonable  success  for  far-field  quantities  but  with  variable  accuracy  for 
surface  fields.  For  a  structure  containing  both  wires  and  surfaces  the  EFIE 
and  MFIE  are  coupled.  This  combination  of  the  EFIE  and  MFIE  was  proposed 
and  used  by  Albertsen,  Hansen,  and  Jensen  at  the  Technical  University  of 
Denmark  (ref.  9)  although  the  details  of  their  numerical  solution  differ  from 
those  in  NEC.  A  rigorous  derivation  of  the  EFIE  and  MFIE  used  in  NEC  is  given 
by  Poggio  and  Miller  (ref.  10).  The  equations  and  their  derivation  are 
outlined  in  the  following  sections. 


1.  THE  ELECTRIC  FIELD  INTEGRAL  EQUATION  (EFIE) 


The  form  of  the  EFIE  used  in  NEC  follows  from  an  integral  representation 
for  the  electric  field  of  a  volume  current  distribution  J, 


E(£)  »  /  3(r')  •  G(r,  r') 


where 


G(r,  r’)  -  (k*T  +  W)g(r,  r'). 


g(r ,  r’)  -  exp(-jk| r  -  r' |)/|r  -  r ' | , 


k  *  o)/p  e  , 
o  o 
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and  the  time  convention  is  exp(jwt).  I  is  the  identity  dyad  (xx  +  yy  +  zz). 
When  the  current  distribution  is  limited  to  the  surface  of  a  perfectly 
conducting  body,  equation  (1)  becomes 


*«>  •  iS  /  V?’> 

u 


(2) 


with  Jg  the  surface  current  density.  The  observation  point  r  is  restricted 
to  be  off  the  surface  S  so  that  r  ^  r ' . 

If  r  approaches  S  as  a  limit,  equation  (2)  becomes 


E(r)  -  -f  Jg(r')  •  G(r,  r ' )  dA', 


(3) 


where  the  principal  value  integral,  f",  is  indicated  since  g(r,  r')  is  now 
unbounded . 

An  integral  equation  for  the  current  induced  on  S  by  an  incident  field 

-*■1  ■+ 

E  can  be  obtained  from  equation  (3)  and  the  boundary  condition  for  r  e  S, 


n(r)  x 


ES(0  +  EX(r) 


0, 


(4) 


>S  '  ,  -f  g 

where  n(r)  is  the  unit  normal  vector  of  the  surface  at  r  and  E  is  the  field 

- ►  -+S 

due  to  the  induced  current  J  .  Substituting  equation  (3)  for  E  yields  the 

s 

integral  equation. 


-n(0  x  E1  (r)  =  -=^  n(r)  x 


-f  J  (r ' )  •  (k2!  +  W)g(r,  ?')  dA’. 

Jn  S 


(5) 


The  vector  integral  in  equation  (5)  can  be  reduced  to  a  scalar  integral 
equation  when  the  conducting  surface  S  is  that  of  a  cylindrical  thin  wire, 
thereby  making  the  solution  much  easier.  The  assumptions  applied  for  a  thin 
wire,  known  as  the  thin-wire  approximation,  are  as  follows: 

a.  Transverse  currents  can  be  neglected  relative  to  axial  currents 
on  the  wire. 

b.  The  circumferential  variation  in  the  axial  current  can  be  neglected. 

c.  The  current  can  be  represented  by  a  filament  on  the  wire  axis. 

_4_ 


s. 


d.  The  boundary  condition  on  the  electric  field  need  be  enforced  in 
the  axial  direction  only. 

These  widely  used  approximations  are  valid  as  long  as  the  wire  radius  is 
much  less  than  the  wavelength  and  much  less  than  the  wire  length.  An 
alternate  kernel  for  the  EFIE,  based  on  an  extended  thin-wire  approximation 
in  which  condition  c  is  relaxed,  is  also  included  in  NEC  for  wires  having  too 
large  a  radius  for  the  thin-wire  approximation  (ref.  11). 

From  assumptions  a,  b  and  c,  the  surface  current  Jg(r)  on  a  wire  of 
radius  a  can  be  replaced  by  a  filamentary  current  1  where 

I(s)s  -  2iraJ  (r), 
s 

-► 

s  -  distance  parameter  along  the  wire  axis  at  r,  and 

A 

s  -  unit  vector  tangent  to  the  wire  axis  at  r. 

Equation  (5)  then  becomes 

-n(r)  x  I1*  -  3(r)  * 


/  I(s')^k2s'  -  7  gfr)  g(r,  r')  ds’, 
L 


where  the  integration  is  over  the  length  of  the  wire.  Enforcing  the  boundary 
condition  in  the  axial  direction  reduces  Eq.  (6)  to  the  scalar  equation. 


-s  •  E1 (r) 


J  I(s')[k^s  •  s'  - 

L  V 

r)  g(r,  r')  ds' . 


Since  r'  is  now  the  point  at  s'  on  the  wire  axis  while  r  is  a  point  at  s  on 
the  wire  surface  |r  -  r’ |  >  a  and  the  integrand  is  bounded. 


2.  THE  MAGNETIC  FIELD  INTEGRAL  EQUATION  (MFIE) 

The  MFIE  is  derived  from  the  integral  representation  for  the  magnetic 


field  of  a  surface  current  distribution  J 


/  J 8(r')  x  7*  g(r,  £')  dA',  >  (8) 

s 

where  the  differentiation  is  with  respect  to  the  integration  variable  r' . 

If  the  current  Jg  is  Induced  by  an  external  incident  field  H1,  then  the  total 
magnetic  field  inside  the  perfectly  conducting  surface  must  be  zero.  Hence, 
for  r  Just  inside  the  surface  S, 

H1^)  +  Hs(?)  -  0,  (9) 

-*■1  + 
where  H  is  the  incident  field  with  the  structure  removed,  and  H  is  the 

scattered  field  given  by  equation  (8).  The  integral  equation  for  J  may  be 

— ►  ^  s 

obtained  by  letting  r  approach  the  surface  point  rQ  from  inside  the  surface 

along  the  normal  n(rQ).  The  surface  component  of  equation  (9)  with  equation 

(8)  substituted  for  H8  is  then 


*  51  "  fi(?o)  X  lim  /  ?(*’)  x 


r  -*■  r 


V'  g(r,  r')  dA', 

where  n(rQ)  is  the  outward  directed  normal  vector  at  rQ.  The  limit  can  be 
evaluated  by  using  a  result  of  potential  theory  (ref.  12)  to  yield  the 
integral  equation 


A  v  -*T  -►  1  -► 

-n(rQ)  *H  (rQ)  -  -  J  Jtr,)  + 


~  /  n(r )  x  fj  (r')  x  V'  g(?  r') 

S  0 


For  solution  in  NEC,  this  vector  integral  equation  is  resolved  into  two 

scalar  equations  along  the  orthogonal  surface  vectors  £  and  E„  where 

1  2 


W  *  Vro>  ■  «<*„>• 
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By  using  the  Identity  u  •  (v  *  w)  ■  (u  x  v)  •  w  and  noting  that  £^  x  n  •  -£, 
and  £2  x  “  “  the  scalar  equations  can  be  written. 


£  (r  )  •  H1 (?)  -  -  j  £  (r  )  •  3 (?  )  - 
2o  o  210  so 


£  fs  V?o> 


J  (r')  x  V'g(r  ,  r’) 


dA' ; 


(ID 


-£  (£  )  •  H1  (r  )  -  -  \  £  (?  )  •  J  (r  )  + 
lo  o  22o  so 


£  f  ei(?o> 


J  (r’>  x  V'g(r  ,  r’) 


dA' 


(12) 


These  two  components  suffice  since  there  Is  no  normal  component  of  equation 

(10). 


3.  THE  EFIE-MFIE  HYBRID  EQUATION 

Program  NEC  uses  the  EFIE  for  thin  wires  and  the  MFIE  for  surfaces.  For 
a  structure  consisting  of  both  wires  and  surfaces,  r  in  equation  (7)  is 
restricted  to  the  wires,  with  the  integral  for  E  (r),  extending  over  the 
complete  structure.  The  thin-wire  form  of  the  integral  in  equation  (7)  is 
used  over  wires  while  the  more  general  form  of  equation  (5)  must  be  used 
on  surfaces.  Likewise,  tq  is  restricted  to  surfaces  in  equations  (11)  and 
(12),  with  the  integrals  for  HS(r)  extending  over  the  complete  structure.  On 
wires  the  integral  is  simplified  by  the  thin-wire  approximation.  The 
resulting  coupled  integral  equations  are,  for  r  on  wire  surfaces. 


and  for  r  on  surfaces  excluding  wires 


£2(r)  •  H1 (r)  -  -  f2(r)  •  f  x  V*  g(r,r'))  ds’ 

L 


f  ^(D  •  J8(?)  - 


4ir  / 


J  (r’)  x  V’g(r,r’) 


dA’,  (14) 


and 


-£x(?)  •  H1  (r)  •  /  Ks')(s'  x  V’g(r,r')^  ds* 

L 


-  i  V?)  •  V?)  + 


f  v?)  • 


J  (r')  X  V’g(r,r’) 

9 


dA'.  (15) 


The  symbol  represents  integration  over  wires  while  /  represents 
integration  over  surfaces  excluding  wires.  The  numerical  method  used  to 
solve  equations  (13),  (14)  and  (15)  is  described  in  section  III. 


0 
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Section  III 
Numerical  Solution 


The  integral  equations  (13) ,  (14) ,  and  (15)  are  solved  numerically  in 
NEC  by  a  form  of  the  method  of  moments.  An  excellent  general  introduction  to 
the  method  of  moments  can  be  found  in  R.  F.  Harrington's  book.  Field 
Computation  by  Moment  Methods  (ref.  13).  A  brief  outline  of  the  method 
follows . 

The  method  of  moments  applies  to  a  general  linear-operator  equation. 


Lf  ■  e. 


(16) 


where  f  is  an  unknown  response,  e  is  a  known  excitation,  and  L  is  a  linear 
operator  (an  integral  operator  in  the  present  case) .  The  unknown  function  f 


may  be  expanded  in  a  sum  of  basis  functions,  f^,  as 


N 


I  * 


J-l 


j  1 


(17) 


A  set  of  equations  for  the  coefficients  a are  then  obtained  by  taking  the 


inner  product  of  equation  (16)  with  a  set  of  weighting  functions  j  w^  , 


<wit  Lf >  -  <w^,  e> 


i  -  1,  ...  N 


(18) 


Due  to  the  linearity  of  L  equation  (17)  substituted  for  f  yields. 


I  o  <w  ,  Lf  >  -  <w  ,  e>  , 
j-l  J  J  1  i  -  1,  ...  N 


This  equation  can  be  written  in  matrix  notation  as 


[G]  (A]  -  [E]  , 


(19) 


where 


Gij "  <wi’  LV  • 


Aj  “  aJ  ’ 


<wt,  e>  . 
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The  solution  is  then 


[A]  -  [G]"1  [E]  . 

For  the  solution  of  equations  (13),  (14),  and  (15),  the  inner  product  is 
defined  as 

<f,  g>  -  f  f (r)g(r)dA  , 

S 

where  the  integration  is  over  the  structure  surface.  Various  choices  are 
possible  for  the  weighting  functions  {w^}  and  basis  functions  {f..}.  When 
w^  ■  f^,  the  procedure  is  known  as  Galerkin’s  method.  In  NEC  the  basis  and 
weight  functions  are  different,  w^  being  chosen  as  a  set  of  delta  functions 

w^r)  -  6(r  -  ri)  , 

with  {r^}  a  set  of  points  on  the  conducting  surface.  The  result  is  a  point 
sampling  of  the  integral  equations  known  as  the  collocation  method  of  solution. 
Wires  are  divided  into  short  straight  segments  with  a  sample  point  at  the 
center  of  each  segment  while  surfaces  are  approximated  by  a  set  of  flat  patches 
or  facets  with  a  sample  point  at  the  center  of  each  patch. 

The  choice  of  basis  functions  is  very  important  for  an  efficient  and 
accurate  solution.  In  NEC  the  support  of  f^  is  restricted  to  a  localized 
subsection  of  the  surface  near  r^.  This  choice  simplifies  the  evaluation  of 
the  inner-product  integral  and  ensures  that  the  matrix  G  will  be  well  condi¬ 
tioned.  For  finite  N,  the  sum  of  f^  cannot  exactly  equal  a  general  current 
distribution  so  the  functions  f^  should  be  chosen  as  close  as  possible  to  the 
actual  current  distribution.  Because  of  the  nature  of  the  integral-equation 
kernels,  the  choice  of  basis  function  is  much  more  critical  on  wires  than  on 
surfaces.  The  functions  used  in  NEC  are  explained  in  the  following  sections. 

1.  CURRENT  EXPANSION  ON  WIRES 

Wires  in  NEC  are  modeled  by  short  straight  segments  with  the  current  on 
each  segment  represented  by  three  terms  —  a  constant,  a  sine,  and  a  cosine. 

This  expansion  was  first  used  by  Yeh  and  Mei  (ref.  14)  and  has  been  shown  to 
provide  rapid  solution  convergence  (ref.  15  and  16).  It  has  the  added  advan¬ 
tage  that  the  fields  of  the  sinusoidal  currents  are  easily  evaluated  in  closed 
form.  The  amplitudes  of  the  constant,  sine,  and  cosine  terms  are  related  such 
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that  their  sum  satisfies  physical  conditions  on  the  local  behavior  of  current 
and  charge  at  the  segment  ends.  This  differs  from  AMP  where  the  current  was 
extrapolated  to  the  centers  of  the  adjacent  segments,  resulting  in  disconti¬ 
nuities  in  current  and  charge  at  the  segment  ends.  Matching  at  the  segment 
ends  improves  the  solution  accuracy,  especially  at  the  multiple-wire  junctions 
of  unequal  length  segments  where  AMP  extrapolated  to  an  average  length  segment, 
often  with  inaccurate  results. 

The  total  current  on  segment  number  j  in  NEC  has  the  form 


IjCs) 


Aj  +  Bj  sin  k(s-Sj)  +  cos  k(s-s^)  , 


(20) 


I  s— Sj |  <  Aj/2  , 


where  s^  is  the  value  of  s  at  the  center  of  segment  j  and  is  the  length  of 


segment  j .  Of  the  three  unknown  constants  A  ^ ,  and  ,  two  are  eliminated 


by  local  conditions  on  the  current  leaving  one  constant,  related  to  the 
current  amplitude,  to  be  determined  by  the  matrix  equation.  The  local 
conditions  are  applied  to  the  current  and  to  the  linear  charge  density,  q, 
which  is  related  to  the  current  by  the  equation  of  continuity 


31 


3l*  -  **• 


(21) 


At  a  junction  of  two  segments  with  uniform  radius,  the  obvious 
conditions  are  that  the  current  and  charge  are  continuous  at  the  junction. 

At  a  junction  of  two  or  more  segments  with  unequal  radii,  the  continuity  of 
current  is  generalized  to  Kirchoff's  current  law  that  the  sum  of  currents 
into  the  junction  is  zero.  The  total  charge  in  the  vicinity  of  the  junction 
is  assumed  to  distribute  itself  on  individual  wires  according  to  the  wire 
radii,  neglecting  local  coupling  effects.  T.  T.  Wu  and  R.  W.  P.  King 
(ref.  17)  have  derived  a  condition  that  the  linear  charge  density  on  a  wire 
at  a  junction,  and  hence  3l/3s,  is  determined  by 


1IM 


3s 


s  at  junction  Hn 


W)- 


(22) 


where  a  *  wire  radius. 


k  -  2tt/A  , 
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y  m  0.5772  (Euler's  constant). 


Q  is  related  to  the  total  charge  in  the  vicinity  of  the  junction  and  is 
constant  for  all  wires  at  the  junction. 

At  a  free  wire  end,  the  current  may  be  assumed  to  go  to  zero.  On  a 
wire  of  finite  radius,  however,  the  current  can  flow  onto  the  end  cap  and 
hence  be  nonzero  at  the  wire  end.  In  one  study  of  this  effect,  a  condition 
relating  the  current  at  the  wire  end  to  the  current  derivative  was  derived 
(ref.  18).  For  a  wire  of  radius  a,  this  condition  is 


s  at  end 


-(8-8c)  JX(U)  ,I(3l 

k  J  (ka)  8s 
o 


Is  at  end 


where  J  and  J.  are  Bessel  functions  of  order  0  and  1.  The  unit  vector  n  is 
o  1  c 

normal  to  the  end  cap.  Hence,  s  •  n^  is  +1  if  the  reference  direction,  s,  is 
toward  the  end,  and  -1  if  s  is  away  from  the  end. 

Thus,  for  each  segment  two  equations  are  obtained  from  the  two  ends: 


•  J i (ka  )  81  (s) 

I.(s  ±  A./2)  -  =±  1  J  — J - 

J  j  j  k  J  (ka.)  8s 


s  -  Sj  1  yz 


at  free  ends,  and 
31, (s) 


s.  *  V2 


ft) 


at  junctions.  Two  additional  unknowns  and  are  associated  with  the 
junctions  but  can  be  eliminated  by  Kirchoff's  current  equation  at  each 
junction.  The  boundary-condition  equations  provide  the  additional  equation- 
per-segment  to  completely  determine  the  current  function  of  equation  (20) 
for  every  segment. 

To  apply  these  conditions,  the  current  is  expanded  in  a  sum  of  basis 
functions  chosen  so  that  they  satisfy  the  local  conditions  on  current  and 
charge  in  any  linear  combination.  A  typical  set  of  basis  functions  and  their 
sum  on  a  four  segment  wire  are  shown  in  figure  1.  For  a  general  segment  i  in 
figure  2,  the  ith  basis  function  has  a  peak  on  segment  i  and  extends  onto 


Figure  1.  Current  Basis 
Functions  and  Sum  on  a 
Four  Segment  Wire. 


Figure  2.  Segments 
Covered  by  the  i1" 
Basis  Function. 


every  segment  connected  to  i,  going  to  zero  with  zero  derivative  at  the  outer 
ends  of  the  connected  segments. 

The  general  definition  of  the  iC^  basis  function  is  given  below.  For 
the  junction  and  end  conditions  described  above,  the  following  definitions 
apply  for  the  factors  in  the  segment  end  conditions: 


hfeH'1  • 


(25: 


and 


X, 


J1(kai)/Jo(ka±) 
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The  condition  of  zero  current  at  a  free  end  may  be  obtained  by  setting  to 


zero. 


,  th 


The  portion  of  the  i  basis  function  on  segment  i  is  then 


f"(s)  =  a”  +  IT  sin  k(s  -  s^)  +  cos  k(s  -  s^) 


|s  -  s^l  <  ^i/2  . 


If  N  +  0  and  N  0,  end  conditions  are 


ta  £?(s)  |  .  ..  ■  “I  «I  ■ 

l  s  *  si  -  A^/2 


3  cO  .  v  ,  +  ~+ 

ds  i  ,  *  I*  i  i 

I  s  -  s  +  A  /2 


If  N  -  0  and  N  ^0,  end  conditions  are 


£i(si  -  V2)  -  t  xi  A  £i(s) 


s  =  s.  -  A./2 
1  x 


3  c°  r  \ 
3?  fi(s) 


s  '  3i  +  V2 


« 


If  N  ^0  and  N  =0,  end  conditions  are 


£  £°(s>  I  .  ,  '  aI  Qi  ■ 

1  s  ■  s.  -  A.^/2 


f»(Si  +  A±/2)  f°0» 


s  =  s^  ■+■  AJ2 


th 


(26) 


(27) 


(28) 


(29) 


(30) 


(31) 


(32) 


Over  segments  connected  to  end  1  of  segment  i,  the  i  basis  function  is 


fj (s)  *  Aj  +  Bj  sin  k(s  -  s^)  +  cos  k(s  -  s^) 


(33) 


[  s  -  Sj |  <  A  /2  j  -  1,  ...  ,  N~  . 
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End  conditions  are 


f~(Sj  -  Aj/2)  -  0  , 


(34) 


£  f?3> 


Sj  -  4/2 


0  , 


(35) 


^7  fT(s)  I  -  a*  Q~  . 

9s  j  3 


(36) 


th 


Over  segments  connected  to  end  2  of  segment  i,  the  i  basis  function  is 


f+(s)  *  A+  +  B+  sin  k(s  -  s^)  +  C*  cos  k(s  -  s^) 


(37) 


|s  -  Sj|  <  A^/2  j  -  1,  ....  N  . 


End  conditions  are 


£  £>>  | 


•j  *  V2 


3j  <  • 


(38) 


f j  ^Sj  +  Aj^2^  =  0  ’ 


(39) 


3  .+  ,  . 

Ti  V9) 


3  ■  SJ +  V2 


(40) 


Equations  (26),  (33),  and  (37),  defining  the  complete  basis  function, 


involve  3(N  +  N+  +  1)  unknown  constants.  Of  these,  3(N  +  N+)  +  2  unknowns 


are  eliminated  by  the  end  conditions  in  terms  of  and  which  can  then  be 


determined  from  the  two  Kirchoff's  current  equations: 
N~ 


£  fj(3j  +  V2> '  f?(3i '  Ai 


/2)  ,  and 


(41) 


N 

2 

j-i  J 


Sj  -  A  /2)  *  f°(3i  +  A±/2) 


(42) 
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The  complete  basis  function  is  then  defined  in  terms  of  one  unknown 

o 

constant.  In  this  case  A^  was  set  to  -1  since  the  function  amplitude  is 
arbitrary,  being  determined  by  the  boundary  condition  equations.  The  final 
result  is  given  below: 


a+  Q~ 
1  Vi 


j  sin  k  Aj  * 


Qi 


j  2  cos  k  A j / 2  ’ 


-aX 


'j  2  sin  k  Aj/2  ’ 


*  3i  Qt 


sin  k  Aj  * 


3J  Q1 _ 

2  cos  k  Aj/2  ’ 


3i  Qt 


J  2  sin  k  A^/2  * 


For  N  #0  and  N  ^  0, 


a”  -  -  1  , 


/  ,  ,  \  sin  k  A  /2 

>1  '  (“l  +  “i  5~  • 


o  /  -  _  +  +\<=°s  k  V2 

:i '  (“i  -  “i  M  .1.  k  • 
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a*(l  -  cos  k  A^)  -  P+  sin  k 

!i  (PI pt +  »1 4) 9ln  k  \ +  (pi  at  •  pi  ai ) cos  k  Ai 

+  a±(cos  k  A1  -  1)  -  Pi  sin  k  A^ 

!l  (PI  pt +  \  at) sin  k  4± +  (PI  at  -  pi  ai ) cos  k  \ 


,  (52) 


For  N  “0  and  N  ^  0, 


A”  -  -  1  , 


sin  k  A./2  .  ,  cos  k  A. /2  -  X  sin  k  A  /2 

cos  k  A^  -  sin  k  A^  ai  ^i  cos  k  A^  -  X^  sin  k  A^ 


cos  k  A^/2  +  +  sin  k  A^/2  -  Xj^  cos  k  A^/2 

cos  k  A^  -  X^  sin  k  A^  +  ai  ^i  cos  k  A^-X^  sin  k  A^ 


+  cos  k  A^  -  1  -  sin  k  A^^ 

1  (ai  +  Xi  Pi)  Sin  k  A±  +  (ai  Xi  "  Pi)  cos  k  Ai 


For  N  t0  and  N  -  0, 


A”  -  -  1  , 


-  sin  k  A^/2  _  _  cos  k  A^/2  -  Xi  sin  k  A^/2 

cos  k  A^  -  X^^  sin  k  A^  +  ai  ^i  .cos  k  A^  -  X^  sin  k  A.^  * 


cos  k  A^/2 

cos  k  A^  -  X^  sin  k  A^ 


sin  k  A^/2  +  X^  cos  k  A^/2 
ai  ^i  cos  k  A^  -  X^^  sin  k  A.^ 


1  -  cos  k  A.  +  X.  sin  k  A. 
_ i  _ i  _ i 


*  ”  Xi  ^  sin  k  A^  +  ^P^  +  X^  a^  j  cos  k  A^ 
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For  all  cases. 


replacing  the  zero  current  condition  at  a  free  end.  This  condition  does 
not  require  a  separate  treatment,  however,  but  is  obtained  by  computing  the 
last  basis  function  as  if  the  last  segment  is  connected  to  its  image  segment 
on  the  other  side  of  the  surface. 

It  should  be  noted  that  in  AMP,  the  basis  function  f^  has  unit  value  at 
the  center  of  segment  i  and  zero  value  at  the  centers  of  connected  segments 
although  it  does  extend  onto  the  connected  segments.  As  a  result,  the 
amplitude  of  f  is  the  total  current  at  the  center  of  segment  i.  This  is  not 
true  in  NEC  so  the  current  at  the  center  of  segment  i  must  be  computed  by 
summing  the  contributions  of  all  basis  functions  extending  onto  segment  i. 

2.  CURRENT  EXPANSION  ON  SURFACES 

Surfaces  on  which  the  MFIE  is  used  are  modeled  by  small  flat  patches. 
The  surface  current  on  each  patch  is  expanded  in  a  set  of  pulse  functions 
except  in  the  region  of  wire  connection,  as  will  be  described  later.  The 
pulse  function  expansion  for  N^  patches  is 


(65) 


N 

Vr)  "  (jlj  eij  +  j2j  £2j)  Vr)  * 


where 


8ij  *  ’ 

*21  "  VV  • 

Tj  ■  position  of  the  center  of  patch  number  j  , 

Vj (r)  ■  1  for  r  on  patch  j  and  0  otherwise. 

The  constants  and  representing  average  surface-current  density 

over  the  patch,  are  determined  by  the  solution  of  the  linear  system  of 
equations  derived  from  the  integral  equations.  The  integrals  for  fields, 
due  to  the  pulse  basis  functions,  are  evaluated  numerically  in  a  single  step 
so  that  for  integration,  the  pulses  could  be  reduced  to  delta  functions  at 
the  patch  centers.  That  this  simple  approximation  of  the  current  yields  good 
accuracy  is  one  of  the  advantages  of  the  MFIE  for  surfaces. 

A  more  realistic  representation  of  the  surface  current  is  needed, 
however,  in  the  region  where  a  wire  connects  to  the  surface.  The  treatment 
used  in  NEC,  affecting  the  four  coplanar  patches  about  the  connection  point, 
is  quite  similar  to  that  used  by  Albertsen  et  al.  (ref.  9).  In  the  region 
of  the  wire  connection,  the  surface  current  contains  a  singular  component 
due  to  the  current  flowing  from  the  wire  onto  the  surface.  The  total  surface 
current  should  satisfy  the  condition, 

Vs  •  Jg(x.y)  “  JQ(x.y)  +  IQ6(x,y)  , 

where  the  local  coordinates  x  and  y  are  defined  in  figure  3,  denotes 
surface  divergence,  JQ(x,y)  is  a  continuous  function  in  the  region  ABCD, 
and  1^  is  the  current  at  the  base  of  the  wire  flowing  onto  the  surface.  One 
expansion  which  meets  this  requirement  is 


4 

J,(x.y)  -  ij(*.y)  +  £  g,(x.y)(J, 

j-i  J  J 


2tt(x  +  y  ) 


Jj  "  Js(xj,yj)  * 


fj  -  ?(Xj,yj)  ,  and 


(Xj.y^)  »  (x,y)  at  the  center  of  patch 


j.  The  Interpolation  functions  g^(x,y) 


are  chosen  such  that:  gj(x,y)  is 


Figure  3.  Detail  of  the 
Connection  of  a  Wire  to 
a  Surface. 


differentiable  on  ABCD;  f*., 


6^;  and  E  g^(x,y)  *  1.  The  specific 
functions^ used  in  NEC  are  as  follows: 


g,  (x,y)  -  — =•  (d+x)(d+y) 
1  Ua' 


g,(x,y)  ■  — J  (d-x) (d+y) 
4d 


gj(x.y)  -  — j  («*-*)(<*-*) 

4d 


g. (x.y)  -  — ^  (d+x) (d-y) 
4  d 


Equation  (66)  is  used  when  computing  the  electric  field  at  the  center 
of  the  connected  wire  segment  due  to  the  surface  current  on  the  four  sur¬ 
rounding  patches.  In  computing  the  field  on  any  other  segments  or  on  any 
patches,  the  pulse- function  form  is  used  for  all  patches  including  those  at 
the  connection  point.  This  saves  integration  time  and  is  sufficiently 
accurate  for  the  greater  source  to  observation-point  separations  involved. 


3.  EVALUATION  OF  THE  FIELDS 


The  current  on  each  wire  segment  has  the  form 


I. (s)  -  A.  +  B.  sin  k(s  -  s.)  +  C.  cos  k(s  -  s.) 


Is  -  ^1  <  A±/2  , 


where  k  ■  u>nPe^,  and  A^  is  the  segment  length.  The  solution  requires  the 
evaluation  of  the  electric  field  at  each  segment  due  to  this  current.  Three 


approximations  of  the  integral  equation  kernel  are  used:  a  thin-wire  form 
for  most  cases,  an  extended  thin-wire  form  for  thick  wires,  and  a  current 
element  approximation  for  large  interaction  distances.  In  each  case  the 
evaluation  of  the  field  is  greatly  simplified  by  the  use  of  formulas  for  the 
fields  of  the  constant  and  sinusoidal  current  components. 

The  accuracy  of  the  thin-wire  approximation  for  a  wire  of  radius  a  and 
length  A  depends  on  ka  and  A/a.  Studies  have  shown  that  the  thin-wire 
approximation  leads  to  errors  of  less  than  1%  for  A/a  greater  than  8  (ref.  11). 
Furthermore,  in  the  numerical  solution  of  the  EFIE,  the  wire  is  divided  into 
segments  less  than  about  0.1A  in  length  to  obtain  an  adequate  representation 
of  current  distribution  thus  restricting  ka  to  less  than  about  0.08.  The 
extended  thin-wire  approximation  is  applicable  to  shorter  and  thicker  segments, 
resulting  in  errors  less  than  1%  for  A/a  greater  than  2. 

For  the  thin-wire  kernel,  the  source  current  is  approximated  by  a 
filament  on  the  segment  axis  while  the  observation  point  is  on  the  surface  of 
the  observation  segment.  The  fields  are  evaluated  with  the  source  segment  on 
the  axis  of  a  local  cylindrical-coordinate  system  as  illustrated  in  figure  4. 


Z 


Figure  4.  Current- 
Filament  Geometry 
for  the  Thin-Wire 
Kernel . 
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msm 


Then  with 


Gq  “  exp(-jkro)/ro  , 


rQ  -  p2  +  (z  -  z')2 


,U/2 

> 


the  p  and  z  components  of  the  electric  field  at  P  due  to  a  sinusoidal  current 
filament  of  arbitrary  phase, 

I  *  sin(kz'  -  0  )  ,  z,  <  z'  <  z0  ,  (70) 

o  1  l 


Ep(p,z) 


2k2Ap 


19G 
(z’-z)  I  j$ 


+  I  G 


-  (z’-z)  Go  It 


Ez(p,z) 


_iEL_ 


-T  9G 

r  15-  -  t  — 2. 
o  9z'  9z’ 


For  a  current  that  is  constant  over  the  length  of  the  segment  with  strength 
1,  the  fields  are 


Ep(p,z) 


,z2 

iji  !!o 

X  2k2  Mz.  ’ 


E^(p.z) 

z 


IJlL  jPf°| 

'  x  2k2  U3z’j 


2  /Z2 

+  k  /  Gq  dz' 
Z1  Z1 


These  field  expressions  are  exact  for  the  specified  currents.  The  integral 
over  z'  of  Gq  is  evaluated  numerically  in  NEC. 


Substituting  sine  and  cosine  currents  and  evaluating  the  derivatives 
yields  the  following  equations  for  the  fields.  For 


I  -  I 


'sin  kz 


o  Vcos  kz 


0  • 


+  i  - 


,  .  1  / sin  kz' 

(*-*')  (1+jkr  )  -Z  - ., 


1  /  sin  kz '  \  )  I 

r2  \cos  kz-;}  i2 
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:<P,Z)  "  Go  |k  (- 


cos  kz' 
sin  kz' 


(1+jkr  )(z 
o 


«•)  (: 

r  ' 


sin  kz' 
cos  kz' 


For  a  constant  current  of  strength  Iq, 


Ep(p,z) 


E^(p, z) 


1  (  f 

_  JJL  ( 

X  2k2 

>  - 


(l+jkrQ) (z-z')  ~2 

roJ  z. 


+  k2  J**  G0  dz'j. 


Despite  the  seemingly  crude  approximation,  the  thin-wire  kernel  does 
accurately  represent  the  effect  of  wire  radius  for  wires  that  are  sufficiently 
thin.  The  accuracy  range  was  studied  by  Poggio  and  Adams  (ref.  11)  where  an 


extended  thin-wire  kernel  was  developed  for  wires  that  are  too  thick  for  the 
thin-wire  approximation. 

The  derivation  of  the  extended  thin-wire  kernel  starts  with  the  current 
on  the  surface  of  the  source  segment  with  surface  density. 


J(z')  -  I(z,)/(2ira)  , 


where  a  is  the  radius  of  the  source  segment.  The  geometry  for  evaluation 
of  the  fields  is  shown  in  figure  5.  A  current  filament  of  strength  Id(j)/(2TT) 
is  integrated  over  <J>  with 


p’  *  [p2  +  a2  -  2ap  cos  <{>]^2 
r  -  [p*2  +  (z-z’)2]1/2  . 


/ 


(80) 

(81) 


Thus,  the  z  component  of  the  field  of  the  current  tube  is 

,2u 


Ez(p’z)  m  2n  f  Ez(P,»2>d<^)  * 


(82) 


'W 


Figure  5.  Current 
Geometry  for  the 
Extended  Thin-Wire 
Kernel. 
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For  the  p  component  of  field,  the  change  in  the  direction  of  0’  must  be 
considered.  The  field  in  the  direction  0  is 


t  i  r27r  f 

E*(p,z)  •  —  J  Ep(p' ,z)  (0*3')d4»  , 


where 


8.8.  .  £. Z-JL.COB  ♦  _  l£l 

P  P  P'  3P 

The  integrals  over  (j>  in  equations  (82)  and  (83)  cannot  be  evaluated  in 

closed  form.  Poggio  and  Adams,  however,  have  evaluated  them  as  a  series  in 
2 

powers  of  a  (ref.  11).  The  first  term  in  the  series  gives  the  thin-wire 

2 

kernel.  For  the  extended  thin-wire  kernel,  the  second  term  involving  a  is 

A 

retained  with  terms  of  order  a  neglected.  As  with  the  thin-wire  kernel, 
the  field  observation  point  is  on  the  segment  surface.  Hence,  when 
evaluating  the  field  on  the  source  segment,  p  ■»  a. 

The  field  equations  with  the  extended  thin-wire  approximation  are  given 
below.  For  a  sinusoidal  current  of  equation  (70) , 


e  (p,i)  - 
p  2k  Xp 
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-  (z'-z)G, 
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For  a  constant  current  of  strength  Iq, 


Ep(p,z) 


X  2k2  l8”  J  z.  ' 


Ez(p,z) 


1  Jn 


X  2k2 
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The  term  is  the  series  approximation  of 
t  1  f 277 

Vsi  G  d*  • 


where 


G  -  exp  (-jkr)/r. 


Neglecting  terms  of  order  a4, 
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The  term  G ^  Is  the  series  approximation  of 
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To  order  a  , 
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Equation  (86)  makes  use  of  the  relation 


VP  P  '  3p'  3p'  3p  dp  * 


(95) 


while  equation  (87)  follows  from 


,  >2  2  -2 
1  (ka)  _  a_  3 

4  *4  , 2 
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(96) 


When  the  observation  point  is  within  the  wire  (p<a) ,  a  series  expansion  in 


p  rather  than  a  is  used  for  G  and  G„.  For  G,  this  simply  involves  inter- 

O  L  1 


changing  p  and  a  in  equations  (89)  and  (90).  Then  for  p  <  a,  with 

(1/2 
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Ga  =  exp(-jkra)/ra  , 


the  expressions  for  G^,  G^  and  their  derivatives  are 
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Special  treatment  of  bends  in  wires  is  required  when  the  extended  thin- 

wire  kernel  is  used.  The  problem  stems  from  the  cancellation  of  terms 

evaluated  at  z^  and  z ^  in  the  field  equations  when  segments  are  part  of  a 

continuous  wire.  The  current  expansion  in  NEC  results  in  a  current  having  a 

continuous  value  and  derivative  along  a  wire  without  junctions.  This  ensures 

that  for  two  adjacent  segments  on  a  straight  wire,  the  contributions  to  the 

z  component  of  electric  field  at  z^  of  the  first  segment  exactly  cancel  the 

contributions  from  z^,  representing  the  same  point,  for  the  second  segment. 

For  a  straight  wire  of  several  segments,  the  only  contributions  to  E  with 

z 

either  the  thin-wire  or  extended  thin-wire  kernel  come  from  the  two  wire  ends 
and  the  integral  of  Gq  along  the  wire.  For  the  p  component  of  field  or 
either  component  at  a  bend,  while  there  is  not  complete  cancellation,  there 
may  be  partial  cancellation  of  large  end  contributions. 
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The  cancellation  of  end  terms  makes  necessary  a  consistent  treatment  of 
the  current  on  both  sides  of  a  bend  for  accurate  evaluation  of  the  field. 

This  is  easily  accomplished  with  the  thin-wire  kernel  since  the  current 
filament  on  the  wire  axis  is  physically  continuous  around  a  bend.  However, 
the  current  tube  assumed  for  the  extended  thin-wire  kernel  cannot  be  continuous 
around  its  complete  circumference  at  a  bend.  This  was  found  to  reduce  the 
solution  accuracy  when  the  extended  thin-wire  kernel  was  used  for  bent  wires. 

To  avoid  this  problem  in  NEC,  the  thin-wire  form  of  the  end  terms  in 
equations  (71)  through  (74)  is  always  used  at  a  bend  or  change  in  radius.  The 
extended  thin-wire  kernel  is  used  only  at  segment  ends  where  two  parallel 
segments  join,  or  at  free  ends.  The  switch  from  extended  thin-wire  form  to  the 
thin-wire  form  is  made  from  one  end  of  a  segment  to  the  other  rather  than 
between  segments  where  the  cancellation  of  terms  is  critical. 

When  segments  are  separated  by  a  large  distance,  the  interaction  may 

segment  current  as  an 
In  spherical  coordinates, 
the  electric  field  is 


0  . 

The  dipole  moment  M  for  a  constant  current  I  on  a  segment  of  length  is 


be  computed  with  sufficient  accuracy  by  treating  the 
infinitesimal  current  element  at  the  segment  center, 
with  the  segment  at  the  origin  along  the  0=0  axis, 

Er(r,0)  =  -^2  exp (- j kr )  ^1  -  cos  0  , 
Eg(r,0)  =  Mr^2  exp(-jkr)  ^1+jkr  -  sin 


M 


I  A, 


For  a  current  I  cos[k(s  -  s^)]  with  | s  —  s^ |  <  A^/2  > 


M  =  y  sin(kA./2)  , 
while  for  a  current  I  sin[k(s  -  s^)]. 


- 
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Use  of  this  approximation  saves  a  significant  amount  of  time  in 
evaluating  the  interaction  matrix  elements  for  large  structures.  The  minimum 
interaction  distance  at  which  it  is  used  is  selected  by  the  user  in  NEC.  A 
default  distance  of  one  wavelength  is  set,  however. 

For  each  of  the  three  methods  of  computing  the  field  at  a  segment  due 
to  the  current  on  another  segment,  the  field  is  evaluated  on  the  surface  of 
the  observation  segment.  Rather  than  choosing  a  fixed  point  on  the  segment 
surface,  the  field  is  evaluated  at  the  cylindrical  coordinates  p',  z  with 
the  source  segment  at  the  origin.  If  the  center  point  on  the  axis  of  the 
observation  segment  is  at  p,  z,  then 


P' 


2.2 
p  +  a 

o 


1/2 


where  a^  is  the  radius  of  the  observation  segment.  Also,  the  component  of 
Ep  tangent  to  the  observation  segment  is  computed  as 


Inclusion  of  the  factor  p/p*,  which  is  the  cosine  of  the  angle  between  3  and 
3',  is  necessary  for  accurate  results  at  bends  in  thick  wires. 


4.  THE  MATRIX  EQUATION  FOR  CURRENT 

For  a  structure  having  Ng  wire  segments  and  N^  patches,  the  order  of 

the  matrix  in  equation  (19)  is  N  =  N  +  2N  .  In  NEC  the  wire  segment 

s  p 

equations  occur  first  in  the  linear  system  so  that,  in  terms  of  submatrices, 
the  equation  has  the  form 
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B  “ 

I  ~ 
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~E  “1 
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L  pJ 
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L.  pJ 

with  equations  derived  from  equation  (14)  in  odd  numbered  rows  in  the  lower 
set  and  equation  (15)  in  even  rows.  Iw  is  then  the  column  vector  of  segment 
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basis  function  amplitudes,  and  1^  is  the  patch-current  amplitudes  (J^ ,  ^ , 

j-l,...,Np).  The  elements  of  Ew  are  the  left-hand  side  of  equation  (13) 

evaluated  at  segment  centers,  while  contains,  alternately,  the  left-hand 

sides  of  equations  (14)  and  (15)  evaluated  at  patch  centers. 

A  matrix  element  A. .  in  submatrix  A  represents  the  electric  field  at 

th 

the  center  of  segment  i  due  to  the  j  segment  basis  function,  centered  on 
segment  j .  A  matrix  element  in  submatrix  D  represents  a  tangential 
magnetic  field  component  at  patch  k  due  to  a  surface-current  pulse  on  patch 
8,  where 

k  -  Int  [(i-l)/2]  +  1  , 
l  »  Int  [ (j -l)/2  +  1  , 

and  Int[]  indicates  truncation.  The  source  pulse  is  in  the  direction  when 

j  is  odd,  and  direction  when  j  is  even.  When  k  *  Z  the  contribution  of 

the  surface  integral  is  zero  since  the  vector  product  is  zero  on  the  flat 

patch  surface,  although  a  ground  image  may  produce  a  contribution.  However, 

for  k  *  H,  there  is  a  contribution  of  ±  1/2  from  the  coefficient  of  J  (r)  in 

s 

equation  (14)  or  (15) .  Matrix  elements  in  submatrices  B  and  C  represent 
electric  fields  due  to  surface-current  pulses  and  magnetic  fields  due  to 
segment  basis  functions,  respectively.  These  present  no  special  problems 
since  the  source  and  observation  points  are  always  separated. 

5.  SOLUTION  OF  THE  MATRIX  EQUATION 
The  matrix  equation, 

[G]  [I]  -  [E]  ,  (104) 

is  solved  in  NEC  by  Gauss  elimination  (ref.  19).  The  basic  step  is  factori¬ 
zation  of  the  matrix  G  into  the  product  of  an  upper  triangular  matrix  U  and 
a  lower  triangle  matrix  L  where 

G  -  [L]  [U]  . 


The  matrix  equation  is  then 


from  which  the  solution,  1,  is  computed  in  two  steps  as 


[L]  [F]  -  [E]  , 


(106) 


and 


[U]  [I]  -  [F]  . 


(107) 


Equation  (106)  is  first  solved  for  F  by  forward  substitution,  and 
equation  (107)  is  then  solved  for  I  by  backward  substitution. 

The  major  computational  effort  is  factoring  G  into  L  and  U.  This  takes 

3 

approximately  1/3  N  multiplication  steps  for  a  matrix  of  order  N  compared 
3 

to  N  for  inversion  of  G  by  the  Gauss-Jordan  method.  Solution  of  equations 
(106)  and  (107),  making  use  of  the  triangular  properties  of  L  and  U,  takes 
approximately  as  many  multiplications  as  would  be  required  for  multiplication 
of  G  1  by  the  column  vector  E.  The  factored  matrices  L  and  U  are  saved  in 
NEC  since  the  solution  for  Induced  current  may  be  repeated  for  a  number  of 
different  excitations.  This,  then,  requires  only  the  repeated  solution  of 
equations  (106)  and  (107). 

Computation  of  the  elements  of  the  matrix  G  and  solution  of  the  matrix 
equation  are  the  two  most  time-consuming  steps  in  computing  the  response  of 
a  structure,  often  accounting  for  over  90%  of  the  computation  time.  This 
may  be  reduced  substantially  by  making  use  of  symmetries  of  the  structure, 
either  symmetry  about  a  plane,  or  symmetry  under  rotation. 

In  rotational  symmetry,  a  structure  having  M  sectors  is  unchanged  when 
rotated  by  any  multiple  of  360/M  degrees.  If  the  equations  for  all  segments 
and  patches  in  the  first  sector  are  numbered  first  and  followed  by  successive 
sectors  in  the  same  order,  the  matrix  equation  can  be  expanded  in  submatrices 
in  the  form 


A1  A2  A3 . ^-1  ^ 

1 

M 

M 

_ 1 

1 - 

t— H 

w 

1 _ 

^  A1  A2 . ^-2  ^-1 

*2 

E2 

Sl-l  \  A1  .  ^-3  ^-2 

•  •  • 

•  •  • 

X3 

E3 

•  •  • 

•  •  • 

A2  A3  A4  A1 

X 

_ 

(108) 
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If  there  are  N£  equations  in  each  sector,  and  1^  are  Nc  element  column 
vectors  of  the  excitations  and  currents  in  sector  i.  is  a  submatrix  of 
order  containing  the  interaction  fields  in  sector  1  due  to  currents  in 
sector  i.  Due  to  symmetry,  this  is  the  same  as  the  fields  in  sector  k  due 
to  currents  in  sector  i  +  k,  resulting  in  the  repetition  pattern  shown. 

Thus  only  matrix  elements  in  the  first  row  of  submatrices  need  be  computed, 
reducing  the  time  to  fill  the  matrix  by  a  factor  of  1/M. 

The  time  to  solve  the  matrix  equation  can  also  be  reduced  by  expanding 
the  excitation  subvectors  in  a  discrete  Fourier  series  as 

Ei  “  2  sik  ^  i«l,...,M  , 

k”l 

1-1,. ...M, 

k“l 

where 

Sik  -  exp[j2ir(i-l)(k-l)/M]  ,  •  (111) 

j“^T,  and  *  indicates  the  conjugate  of  the  complex  number.  Examining  a 
component  in  the  expansion. 


it  is  seen  that  the  excitation  differs  from  sector  to  sector  only  by  a 
uniform  phase  shift.  This  excitation  of  a  rotationally  symmetric  structure 
results  in  a  solution  having  the  same  form  as  the  excitation,  i.e.. 


(109) 

(110) 


It  can  be  shown  that  this  relation  between  solution  and  excitation  holds  for 
any  matrix  having  the  form  of  that  in  equation  (108) .  Substituting  these 
components  of  E  and  1  into  equation  (108)  yields  the  following  matrix  equation 
of  order  N  relating  I,  to  E,: 

C  K  K. 

[Slk  A1  +  S2k  A2  +  •"  +  SMk  *m]  |Jkl  '  Slk  [Sk]  '  <114) 

The  solution  for  the  total  excitation  is  then  obtained  by  an  inverse 
transformation, 

i±mX  ‘-1 . m-  (u5) 

k*l 

The  solution  procedure,  then,  is  first  to  compute  the  M  submatrices  and 
Fourier- transform  these  to  obtain 

M 

A±  *  I  Sik  A^  i-1,  ....  M  .  (116) 

k*l 

The  matrices  A of  order  N^,  are  then  each  factored  into  upper  and  lower 
triangular  matrices  by  the  Gauss  elimination  method.  For  each  excitation 
vector,  the  transformed  subvectors  are  then  computed  by  equation  (110)  and 
the  transformed  current  subvectors  are  obtained  by  solving  the  M  equations, 

[A±]  [IJ  -  [ff±]  .  (117) 

The  total  solution  is  then  given  by  equation  (115). 

The  same  procedure  can  be  used  for  structures  that  have  planes  of 
symmetry.  The  Fourier  transform  is  then  replaced  by  even  and  odd  excitations 
about  each  symmetry  plane.  All  equations  remain  the  same  with  the  exception 


that  the  matrix  S  with  elements  S^ ,  given  by  equation  (111),  is  replaced  by 
the  following  matrices: 

For  one  plane  of  symmetry. 


For  two  orthogonal  planes  of  symmetry. 


and  for  three  orthogonal  symmetry  planes. 


1 

1 

1 

1 

1 

1 

1 

1 

I— * 
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1 

-1 

1 

-1 

1 

-1 

1 

1 

-1 

-1 

1 

1 

-1 

-1 

1 

-1 

-1 

1 

1 

-1 

-1 

1 

1 

1 

1 

1 

-1 

-1 

-1 

-1 

1 

-1 
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-1 

-1 
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1 

-1 

-1 

-1 

-1 

1 

1 

1 

-1 

-1 

1 

-1 

1 

1 

-1 

For  either  rotational  or  plane  symmetry,  the  procedure  requires  factoring 

of  M  matrices  of  order  N  rather  than  one  matrix  of  order  MN  .  Each  excitation 

c  c 

then  requires  the  solution  of  the  M  matrix  equations.  Since  the  time  for 

factoring  is  approximately  proportional  to  the  cube  of  the  matrix  order  and 

the  time  for  solution  is  proportional  to  the  square  of  the  order,  the 

_2 

symmetry  results  in  a  reduction  of  factor  time  by  M  and  in  solution  time 

by  M  \  The  time  to  compute  the  transforms  is  generally  small  compared  to 

the  time  for  matrix  operations  since  it  is  proportional  to  a  lower  power  of 

N  .  Symmetry  also  reduces  the  number  of  locations  required  for  matrix 
C  -1 

storage  by  M  since  only  the  first  row  of  submatrices  need  be  stored.  The 
transformed  matrices,  A can  replace  the  matrices  as  they  are  computed. 


NEC  includes  a  provision  to  generate  and  factor  an  interaction  matrix 
and  save  the  result  on  a  file.  A  later  run,  using  the  file,  may  add  to  the 
structure  and  solve  the  complete  model  without  unnecessary  repetition  of 
calculations.  This  procedure  is  called  the  Numerical  Green's  Function  (NGF) 
option  since  the  effect  is  as  if  the  free  space  Green's  function  in  NEC  were 
replaced  by  the  Green's  function  for  the  structure  on  the  file.  The  NGF  is 
particularly  useful  for  a  large  structure,  such  as  a  ship,  on  which  various 
antennas  will  be  added  or  modified.  It  also  permits  taking  advantage  of 
partial  symmetry  since  a  NGF  file  may  be  written  for  the  symmetric  part  of  a 
structure,  taking  advantage  of  the  symmetry  to  reduce  computation  time. 
Unsymmetrlc  parts  can  then  be  added  in  a  later  run. 

For  the  NGF  solution  the  matrix  is  partitioned  as 


where  A  is  the  interaction  matrix  for  the  initial  structure,  D  is  the  matrix 
for  the  added  structure,  and  B  and  C  represent  mutual  interactions.  The 
current  is  computed  as 


after  the  factored  matrix  A  has  been  read  from  the  NGF  file  along  with  other 
necessary  data. 

Electrical  connections  between  the  new  structure  and  the  old  (NGF) 
structure  require  special  treatment.  If  a  new  wire  or  patch  connects  to  an 
old  wire  the  current  basis  function  for  the  old  wire  segment  is  changed  by  the 
modified  condition  at  the  junction.  The  old  basis  function  is  given  zero 
amplitude  by  adding  a  new  equation  having  all  zeros  except  for  a  one  in  the 
column  of  the  old  basis  function.  A  new  column  is  added  for  the  corrected 
basis  function.  When  a  new  wire  connects  to  an  old  patch  the  patch  must  be 
divided  into  four  new  patches  to  apply  the  connection  condition  of  equation  (51). 
Hence  both  the  current  basis  function  and  match  point  for  the  old  patch  are 
replaced. 


Section  IV 

Effect  of  a  Ground  Plane 


In  the  Integral  equation  formulation  used  In  NEC,  a  ground  plane  changes 
the  solution  In  three  ways:  (1)  by  modifying  the  current  distribution  through 
near-field  Interaction;  (2)  by  changing  the  field  illuminating  the  structure; 
and  (3)  by  changing  the  reradiated  field.  Effects  (2)  and  (3)  are  easily 
analyzed  by  plane-wave  reflection  as  a  direct  ray  and  a  ray  reflected  from 
the  ground.  The  reradiated  field  is  not  a  plane  wave  when  it  reflects  from 
the  ground,  but,  as  can  be  seen  from  reciprocity,  plane-wave  reflection  gives 
the  correct  far-zone  field.  Analysis  of  the  near-field  interaction  effect 
is,  however,  much  more  difficult. 

In  Section  II,  the  kernels  of  the  integral  equations  are  free-space 
Green's  functions,  representing  the  E  or  H  field  at  a  point  r  due  to  an 
infinitesimal  electric  current  element  at  r ' .  When  a  ground  is  present  the 
free  space  Green's  functions  must  be  replaced  by  Green's  functions  for  the 
ground  problem.  The  solution  for  the  fields  of  current  elements  in  the 
presence  of  a  ground  plane  was  developed  by  Arnold  Sommerfeld  (ref.  20). 

While  this  solution  has  been  used  directly  in  integral-equation  computer 
codes,  excessive  computation  time  greatly  limits  its  use.  Numerous  approxima¬ 
tions  to  the  Sommerfeld  solution  have  been  developed  that  require  less  time 
for  evaluation  but  all  have  limited  applicability. 

The  NEC  code  has  three  options  for  grounds.  The  most  accurate  for 
lossy  grounds  uses  the  Sommerfeld  solution  for  interaction  distances  less  than 
one  wavelength  and  an  asymptotic  expansion  for  larger  distances.  To  keep  the 
solution  time  reasonable,  a  grid  of  values  of  the  Sommerfeld  solution  is 
generated  and  interpolation  is  used  to  find  specific  values.  This  method  is 
presently  implemented  only  for  wires  in  NEC  but  could  be  extended  to  patches. 
The  solution  for  a  perfectly  conducting  ground  is  much  simpler  since  the 
ground  may  be  replaced  by  the  image  of  the  currents  above  it.  The  third 
option  models  a  lossy  ground  by  a  modified  image  method  using  the  Fresnel 
plane-wave  reflection  coefficients.  While  specular  reflection  does  not 
accurately  describe  the  behavior  of  near  fields,  the  approximation  has  been 
found  to  provide  useful  results  for  structures  that  are  not  too  near  to  the 
ground  (refs.  21,  22).  The  attraction  of  this  method  is  its  simplicity  and 
speed  of  computation  which  are  the  same  as  for  the  image  method  for  perfect 
ground . 


1.  THE  SOMMERFELD/NORTON  METHOD 

The  Sommerfeld/Norton  ground  option  in  NEC  originated  with  the  code 
WFLLL2A  (ref.  23)  which  uses  numerical  evaluation  of  the  Sommer f eld  integrals 
for  ground  fields  when  the  interaction  distance  is  small  and  uses  Norton's 
asymptotic  approximations  (ref.  24)  for  larger  distances.  Since  evaluation 
of  the  Sommerfeld  integrals  is  very  time  consuming,  a  code,  SOMINT,  was 
developed  (ref.  25)  which  uses  bivariate  interpolation  in  a  table  of  pre¬ 
computed  Sommerfeld  integral  values  to  obtain  the  field  values  needed  for 
integration  over  current  distributions.  This  method  greatly  reduces  the 
required  computation  time.  NEC  uses  a  similar  interpolation  method  with 
modifications  to  allow  wires  closer  to  the  air-ground  interface  and  to  further 
reduce  computation  time.  Although  the  code  WFLLL2A  allows  wires  both  above 
and  below  the  interface,  both  NEC  and  SOMINT  are  presently  restricted  to  wires 
on  the  free-space  side.  The  method  used  in  NEC  to  evaluate  the  field  over 
ground  is  described  below,  and  the  numerical  evaluation  of  the  Sommerfeld 
integrals  to  fill  the  interpolation  grid  is  discussed  in  Section  IV-2. 

The  electric  field  above  an  air-ground  interface  due  to  an  infinitesimal 
current  element  of  strength  IS,  also  above  the  interface,  with  parameters  shown 


in  figure  6,  is  given  by  the  following  expressions: 


Ep  “  C1  3p3z  [G22  ~  G21  +  kl  V22  » 


(118) 


Ez  “  Cl(^2  +  k2  )  (C22  '  G21  +  V22)  *  <119> 

2 

E»  -  Cj  CO*  (G22  -  C21  +  k2  V22)  ♦  k^(G22  -  G21  +  U22)  ,(120) 
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Figure  6.  Coordinates  for  Evaluating  the  Field  of  a  Current  Element  Over 
Ground . 
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where  the  superscript  Indicates  a  vertical  (V)  or  horizontal  (H)  current 
element  and  the  subscript  indicates  the  cylindrical  component  of  the  field 
vector.  The  horizontal  current  element  is  along  the  x  axis. 

G^2  and  G^  are  the  free  space  and  image  Green's  functions 

G22  -  exp  (-jk2R2)/R2  ,  ( 

G21  -  exp  (-jk^J/Rj^  ,  ( 


where 


R, 


Ro 


+  (z  +  z') 


2l 1/2 

> 


+  (z  -  z') 


( 


and  U22  and  are  Sommerfeld  integrals  involving  the  zeroth  order  Bessel 
function,  J 


’exp[-Y2(z  +  z')]  JQ(Ap)XdX 

n  +  1,2 


(130) 


’expf-YoCz  +  z’)]  J  (Ap)AdA 

_ £ _ O _ 

,2  .  ,  2 

kl  Y2  +  k2  Y1 


(131) 


where 


/ ,  2  2\1/2 
Y1  *  lX  "  V 


(132) 


{  2  2 

[X  -  k2 ‘ 


(133) 


In  NEC  we  need  to  compute  the  fields  due  to  current  filaments  with 
arbitrary  length  and  orientation  by  combining  the  field  components  in 
equations  (118)  through  (122)  and  integrating  over  current  distributions 
composed  of  constant,  sine,  and  cosine  components.  Direct  numerical  integra¬ 
tion  over  the  segments  is  difficult  due  to  singularities  in  the  fields. 

G22  has  a  I/R2  singularity  while  ^21’  U22  an<*  V22  eac*1  have  1/R^  singularities. 
The  derivatives  in  the  field  expressions  result  in  l/R^  singularities  with  a 
triplet-like  behavior  in  the  field  components  parallel  to  the  current  filament. 
The  resulting  cancellation  makes  accurate  numerical  integration  near  the 
singularity  very  difficult. 

The  free^space  field  has  a  similar  singularity,  but  as  discussed  in 
Section  III-3,  the  integral  over  a  straight  filament  may  be  evaluated  in 
closed  form  for  a  sinusoidal  current  with  free-space  wavelength  and  involves 
only  a  .numerical  integration  of  G22  for  a  constant  current.  The  dominant 
singular  component  of  the  ground  field  may  be  integrated  in  the  same  way.  The 
terms  involving  G22  in  equation  (118)  through  (122)  are,  in  fact,  the  field  of 
the  current  element  in  free  space,  and  their  integral  is  obtained  from  the 
free-space  routines  in  NEC. 

The  remaining  terms  represent  the  field  due  to  ground  and  are  singular 
at  R^  ■  0.  The  singularities  in  and  result  from  the  failure  of  the 
integrals  in  equations  (130)  and  (131)  to  converge  without  the  exponential  and 


-AO- 


is™ 


Bessel  functions  as  p  and  z  +  z  go  to  zero.  The  singular  behavior  of  and 


V 22  as  p  an<*  2  +  z'  go  to  zero  may  be  found  by  setting  y  =  y2  =  X  since  the 

dominant  contributions  to  the  integrals  for  small  p  and  z  +  z '  come  from  X 

much  greater  than  k^  or  k2-  Here,  however,  we  only  replace  y.^  by  y2  and  use 

the  integrals 


r°°exp[-Y,(z  +  z')]  J  (Xp)XdX 

“2I - 2  2  72  - 


+  k2> 


,2  J.  U2 

kl  +  k2 


(134) 


°22  *  I 


°exp[-y  (z  +  z')J  J  (Xp)XdX 


(135) 


kjp  «  1,  | kx | (z  +  z')  «  1, 


which  have  the  correct  singular  behavior  and  can  be  combined  with  the  G„ 


terms.  The  field  components  due  to  ground  [equation  (108)  through  (122)  with¬ 


out  the  G^2  terms]  may  then  be  written  as 
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Gp  -  C1  C08*  k2  V22  +  k2  U22 
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x  exp[~Y0(z  +  z')]  J  (Xp)XdX 
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In  equations  (136)  through  (140)  the  dominant  singular  component  has 
been  subtracted  out  of  V22  and  combined  with  G^.  ^he  inte8ral  for  v22 
converges  without  the  exponential  or  Bessel  function  factors  and  remains 
finite  as  p  and  z  +  z'  go  to  zero.  The  derivatives  of  V22  in  the  field 
expressions  have  1/R-  singularities,  but  this  is  much  less  of  a  problem  for 

3 

numerical  integration  than  the  previous  1/R^  singularity.  The  singularity 

could  be  taken  out  of  U22  also,  but,  instead,  a  term  is  taken  out  that  results 

in  the  final  terms  in  equations  (136)  through  (139)  being  the  image  field 
2  2  2  2 

multiplied  by  (k^  -  k2)/(k^  +  k2).  The  integral  over  the  current  filament  of 
these  image  terms  is  evaluated  by  the  free-space  equations  leaving  only  the 
U22  and  V22  terms  to  be  integrated  numerically.  U22  still  has  a  1/R^ 
singularity,  but  that  is  no  worse  than  the  derivatives  of  V^.  With  the 
thin-wire  approximation,  R^  is  never  less  than  the  wire  radius  so  the 
integration  is  not  difficult  in  practical  cases. 


The  components  left  for  numerical  Integration  over  the  current 
distribution  are  then 


„V  „  3.2 

F  •  C-  a  A  k.  V.a  f 
p  1  3p3z  1  22 


(143) 


(144) 


F».CiCos4,(-\^vJ2  +  k20.2)  , 


"  -cisin<S“(p  3p  k2  V22  +  k2  “22)  ’ 


„H  .  _V 

F  *  -cos$  F 
z  P 


(145) 


(146) 


(147) 


Since  the  integrals  in  equations  (141)  and  (142)  cannot  be  evaluated  in 
closed  form  the  following  terms  must  be  evaluated  by  numerical  integration 


over  X: 
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where 
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Evaluating  these  integrals  over  X  for  each  point  needed  in  the  numerical 
integration  over  the  current  distribution  is  slow  on  even  the  fastest  computers 
Hence  an  interpolation  technique  is  used  for  the  remaining  field  components  as 
was  done  in  the  code  SOMINT  for  the  total  field  due  to  ground.  Since  the 
integrals  depend  only  on  p  and  z  +  z'  a  grid  of  values  is  generated  for  the 
field  components  of  equations  (143)  through  (146)  and  bivariate  interpolation 
is  used  to  obtain  values  for  integration  over  a  current  distribution. 

To  facilitate  interpolation  in  the  region  of  the  1/R^  singularity,  the 
components  are  divided  by  a  function  having  a  similar  singularity  and  interpo¬ 
lation  is  performed  on  the  ratio.  The  field  components  of  equations  (143) 
through  (146)  are  divided  by  exp (-jkR^) /R^  for  all  values  of  R1  to  remove  the 
singularity  and  the  free-space  phase  factor  before  interpolation.  The  factors 
sin<|>  or  cos<}>  are  also  omitted  until  after  interpolation  to  avoid  introducing 
the  <f>  dependence.  The  surfaces  to  which  interpolation  is  applied  are  then 
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After  interpolation  on  the  smoothed  surfaces  the  results  are  multiplied  by  the 
omitted  factors  to  give  the  correct  values. 

With  the  singularity  removed,  interpolation  miy  be  used  for  arbitrarily 
small  values  of  p  and  z  +  z’.  The  values  for  R^  =  0  in  the  interpolation  grid 
must  be  found  as  limits  for  R^  approaching  zero,  however,  since  the  integrals 
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do  not  converge  in  this  case.  When  p  and  z  +  z'  approach  zero  Che  dominant 
contributions  in  equations  (148)  through  (153)  come  from  large  X.  Hence  the 
singular  behavior  can  be  found  by  setting  y^  and  equal  to  X.  First,  how¬ 
ever,  it  is  necessary  to  approximate  and  for  |X|  »  [k^|  as 
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remains  finite  as  R^  goes  to  zero  and  hence  is  neglected.  Equations  (156) 


through  (159)  for  approaching  zero  are  then 
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Since  the  limiting  values  as  R^  goes  to  zero  are  functions  of  0  it  is  necessary 
to  use  and  0  as  the  interpolation  variables  rather  than  p  and  z  +  z'. 

Figures  7  through  10  are  plots  of  the  surfaces  to  which  interpolation  is 
applied  for  typical  ground  parameters.  The  width  of  the  region  of  relatively 
rapid  variation  along  the  R^  axis  appears  to  be  proportional  to  the  wavelength 


Max  =  0 
Min  =  -80.65 


Max  =  0 
Min  =  -137.9 


y 

Figure  7.  Real  (a)  and  Imaginary  (b)  Parts  of  I  for  e^/e 
mhos/m,  frequency  -  10  MHz.  P  0 


0.001 


Figure  10.  Real  (a)  and  Imaginary  (b)  Parts  of  I( 
mhos/m,  frequency  =  10  MHz. 
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4,  a1  =  0.001 


in  the  lower  medium  and  hence  is  concentrated  closer  to  =  0  for  larger 
dielectric  constants.  At  a  finite  R^,  the  functions  approach  zero  as  and 
0^  become  large.  When  loss  is  small  the  strong  wave  in  the  lower  medium 
results  in  a  significant  evanescent  wave  along  the  interface  in  the  upper 
medium  as  shown  in  figure  11. 

In  NEC  the  interpolation  region  from  0  to  1  wavelength  in  R1  is  divided 

into  three  grids,  as  shown  in  figure  12,  on  which  bivariate  cubic  interpolation 

is  used.  For  a  given  point,  the  correct  grid  region  is  determined  and  cubic 

surfaces  in  R^  and  9,  fit  to  a  4-point  by  4-point  region  containing  the  desired 

V  V  H  H 

point,  are  evaluated  for  each  of  the  four  quantities  I  ,  I  ,  I  ,  and  I..  The 

P  z’  p’  <J> 

grid  point  spacings  used  are: 


Grid  AR1  A6 

1  0.02X  10° 

2  0.05A  5° 


(b) 

Max 


84.85 


Figure  11. 


fH 


Real  (a)  and  Imaginary  (b)  Farts  of  I  for  e, /e  ■  16, 

p  i  o 


0. 


These  were  determined  by  numerical  tests  to  keep  relative  errors  of  interpola- 


-3  -4 

tion  generally  in  the  range  of  10  to  10 


A  smaller  AR^  could  be  needed  in 


grid  2  for  large  -and  small  to  handle  the  rapidly  oscillating  evanescent 
wave,  but  this  is  easily  changed  in  the  code. 

The  field  evaluation  in  NEC  uses  variable-interval-width  Romberg 

At  each  integrand  evaluation,  the 


integration  over  the  current  distribution. 

V  V  H  H 

components  I  ,  I  ,  I  ,  and  I.  are  obtained  by  interpolation,  and  the  field 

p  z  p  <p 

components  are  combined  according  to  the  direction  of  the  current.  The 


numerical  integral  is  then  combined  with  the  free-space  field  and  with  the 


image  field  multiplied  by  (k^  -  k^J/Ck^  +  k^)  to  obtain  the  total  field  over 


ground. 

When  R^  from  the  observation  point  to  the  center  of  a  wire  segment  is 
greater  than  one  wavelength,  the  field  is  evaluated  by  Norton's  asymptotic 
approximations  (ref.  26)  rather  than  the  above  method.  Norton's  formulas  are 
given  in  Part  II  of  this  manual  under  subroutine  GWAVE.  Although  they  are 
less  accurate  than  the  Sommerfeld  integral  forms  and  require  longer  to 
evaluate  than  the  Interpolation,  their  use  permits  truncating  the  interpolation 
tables.  Another  approximation  used  for  greater  than  a  wavelength  is  to 
treat  the  current  distribution  on  a  segment  as  a  lumped  current  element  with 
the  correct  moment  rather  than  integrating  over  the  current  distribution. 
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Fig.  12.  Grid  for  Bivariate  Interpolation  of  I's. 


2.  NUMERICAL  EVALUATION  OF  THE  SOMMERFELD  INTEGRALS 

The  integrals  in  equations  (148)  through  (153)  are  evaluated  by  numerical 
integration  along  contours  in  the  complex  X  plane.  Although  these  integrals 
differ  from  the  usual  Sommerfeld  integrals  in  the  and  terms,  they  are 
the  same  in  the  properties  important  to  numerical  integration  —  the  locations 
of  poles  and  branch  cuts  and  the  exponential  behavior  of  the  Bessel  and 
exponential  functions.  The  behavior  of  the  integrands  and  numerical  methods 
for  evaluating  the  integrals  are  discussed  in  detail  by  Lytle  and  Lager 
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(ref.  27).  This  section  describes  the  particular  method  used  In  NEC,  which 
Is  basically  the  same  as  In  the  code  WFLLL2A. 


Since  the  Integrands  of  the  six  Integrals  are  similar,  will  be 


considered  as  typical.  The  Integrands  have  branch  cuts  from  ±k^  to  Infinity 
and  ±k2  to  infinity  due  to  the  square  roots  in  y^  and  y2  respectively.  The 
branch  cuts  are  chosen  to  be  vertical,  as  shown  In  figure  13.  The  implications 
of  this  choice  of  branch  cuts  and  the  choice  of  Reimann  sheets  are  discussed  in 
ref.  27. 

The  key  to  rapid  convergence  in  the  numerical  integration  is  to  exploit 
the  exponential  behavior  of  the  exponential  and  Bessel  functions  for  large  X. 
The  Integration  contour  is  deformed  from  the  real  axis  into  the  complex  plane, 
avoiding  branch  cuts  and  taking  account  of  poles,  to  optimize  convergence. 

With  the  vertical  branch  cuts  chosen,  there  are  no  real  poles  on  the  primary 
Reimann  sheet  although  virtual  poles  from  or  D2  result  in  a  near  singularity 
in  the  region  of  ±k2  when  k^  approaches  k2  (free-space  limit).  Hence  the 
integration  contour  should  avoid  the  real  axis  in  this  region. 


Figure  13.  Contour  for  Evaluation  of  Bessel  Function  Form  of  Sommerfeld 
Integrals. 
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The  contour  used  with  the  form  of  the  Integrals  In  equations  (148) 
through  (153)  is  shown  in  figure  13.  The  dominant  factor  for  convergence  in  ^ 

this  case  is  the  exponential  function  as  XR  increases.  The  Bessel  function 
oscillates  with  slow  convergence  for  increasing  XD  and  grows  exponentially  as 
|Aj|  increases.  Hence  it  is  of  little  help  in  convergence  but  restricts  the 
contour  to  small  p | | .  The  break  in  the  contour  is  at  X  ■  p  +  jp  where  p  is 
the  minimum  of  1/p  and  l/(z  +  z'). 


Integration  along  this  contour  becomes  difficult  when  (z  +  z')/p  is 
small  since  there  may  be  many  oscillations  of  the  Bessel  function  before 
convergence.  In  this  case  an  alternate  form  of  the  integrals  is  used  which 
for  V'2  is 

OO  _ 

V22  mjf  °2  expK(z  +  Z,)|  »o2)  <XP>XdX  •  (173) 

OO 

Since  the  Hankel  function  of  type  2  decays  exponentially  as  X^  becomes  negative, 
it  provides  rapid  convergence  without  the  exp  -y2(z  +  z')  factor.  The  behavior 
of  the  integrand  can  be  seen  from  the  large  argument  approximation 

exp["Y2(z  +  z,)]Ho2)(Xp)^y^  |exP  “Mi  (z  +  z')  +  jp]|  , 

where,  for  the  vertical  branch  cuts,  the  ±  sign  is 

+  for  XR  >  -k2  and  X^  >  0  , 

+  for  XR  >  k2  and  X^  <  0  , 

-  otherwise. 

Thus,  an  integration  path  having 
\1  <  0 

and 

XI/XR  -  -p/(z  +  z')  for  XR  >  k2 
or 


Figure  14.  Contour  for  Evaluation  of  Hankel  Function  Form  of  Sommerfeld 
Integrals. 


c  -  (1.02  +  j  0.2)k2  , 
d  -  1.01  k  +  j  0.99  k  , 

*  ■  • 

To  avoid  the  near  singularity  as  k^  approaches  k2,  the  real  part  of  d  is 
not  allowed  to  be  less  than  1.1  k2>  This  contour  provides  rapid  convergence 
except  when  z  +  z'  is  small,  |k^p|  is  large,  and  ki^/k]^  is  small.  Thera  may 
then  be  many  oscillations  between  c  and  d  with  little  convergence.  In  such  a 
case  the  contour  in  figure  15  is  used  where 

e  -  kx  +  (-0.1  +  j  0.2)  , 
f  -  kx  +  (0.1  +  j  0.2)  . 

The  Hankel  function  form  of  the  integrals  provides  rapid  convergence  for 
snail  z  +  z'  including  the  case  of  z  •  z1  *  0.  For  small  p,  however,  the  pole 
at  Xp  ■  0  requires  special  treatment.  In  NEC  the  Hankel  function  form  with 
the  contour  of  figure  14  or  15  is  used  when  p  is  greater  than  (z  +  z')/2  and 
the  Bessel  function  form  is  used  otherwise. 

Integration  along  the  contours  is  accomplished  by  adaptive  interval-width 
Romberg  integration.  On  the  sections  going  to  infinity,  adaptive  Romberg 


Figure  15.  Contour  for  Hankel  Function  Form  when  Real  Part  is  Large  and 
Imaginary  Part  k^  is  Small. 


integration  is  applied  to  successive  subsections  of  length  p,  where  p  is  the 

minimum  of  0.2tt/p  or  0.2tt/(z  +  z'),  and  Shanks'  nonlinear  transformation 

(ref.  28)  is  applied  to  the  sequence  of  partial  sums  to  accelerate  convergence. 

When  p  and  z  +  z'  are  both  small,  the  integration  interval,  p,  may  be  large 

since  the  exponential  and  Bessel  functions  change  slowly  and  the  remaining 

factors  are  easily  integrated  once  X  becomes  large.  For  the  Bessel  function 

2  2  1/2 

form  of  tie  integrals  the  minimum  for  R^  =  [p  +  (z  +  z')  ]  is  limited  only 
by  the  maximum  number  size  for  the  computer.  For  the  Hankel  function  form  the 
minimum  R^  is  about  10  ^  wavelengths  due  to  the  pole  at  Xp  *  0.  Either  p  or 
z  +  z'  may  be  zero. 


The  numerical  integration  results  for  small  R^  were  checked  against 


results  from  a  series  approximation  (ref.  25)  and  were  in  very  close  agreement. 
For  larger  values  of  R^  the  results  from  different  integration  contours  were 
compared  as  a  validation  test.  Results  for  the  modified  Sommerfeld  Integrals 
were  also  checked  with  normal  integrals  used  in  the  code  WFLLL2A.  Earlier 
studies  for  the  code  WFLLL2A,  which  is  capable  of  computing  the  field  across 


the  interface,  verified  the  continuity  of  the  computed  tangential  E  field 
across  the  interface  (ref.  44). 

The  average  time  required  to  evaluate  the  integrals  for  a  given  p  and 
z  +  z'  on  a  CDC  7600  computer  is  about  0.06  s.  Thus  about  15  s  are  required 
to  fill  the  interpolation  grid.  Once  the  grid  has  been  computed  and  stored, 
the  time  to  fill  an  Interaction  matrix,  using  interpolation  and  the  Norton 
formulas,  is  about  four  times  that  for  free  space. 

3.  THE  IMAGE  AND  REFLECTION-COEFFICIENT  METHODS 

The  use  of  a  reflected  image  is  a  simple  and  fast  way  to  model  the  effect 
of  a  ground  plane.  If  the  ground  is  perfectly  conducting,  the  structure  and 
its  image  are  exactly  equivalent  to  the  structure  over  the  ground.  Since  use 
of  the  image  only  doubles  the  time  to  compute  the  field,  it  is  always  used  with 
a  perfect  ground.  NEC  also  includes  an  image  approximation  for  a  finitely 
conducting  ground  in  which  the  image  fields  are  modified  by  the  Fresnel  plane- 
wave  reflection  coefficients.  Although  this  is  far  from  exact  for  a  finite 
ground,  it  has  been  shown  to  provide  useful  results  for  structures  that  are 
not  too  near  to  the  ground  (refs.  21  and  22).  When  it  can  be  used,  the 
reflection  coefficient  method  is  about  twice  as  fast  as  the  Sommerfeld/Norton 
method  and  avoids  the  need  of  computing  the  interpolation  grid. 

Implementation  of  the  image  and  reflection  coefficient  methods  in  the 
code  is  very  simple.  The  Green's  function  for  a  perfectly  conducting  ground 
is  the  sum  of  the  free-space  Green's  function  of  the  source  current  element 
and  the  negative  of  the  free-space  Green's  function  of  the  image  of  the  source 
reflected  in  the  ground  plane.  For  the  electric  field,  with  free-space  Green's 
dyad  G  (r,r')  defined  in  equation  (1),  the  Green  s  dyad  for  a  perfect  ground  is 

G  (r,r* )  -  G  (r,r’)  +  G  (r,r')  ,  (174) 

PS  1 

where 

Gx  (r, r' )  »  -  T.  •  G  (r,?r  •  ?')  ,  (175) 

I  -  xx  +  yy  -  zz  . 

r  J  J 

I  is  a  dyad  that  produces  a  reflection  in  the  z  =  0  plane  when  used  in  a  dot 
product.  For  the  magnetic  field  with  free-space  Green's  dyad 
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the  Green's  dyad  over  a  perfect  ground  is 

rPg  -  r  (?,?')  +  r^r.r') 

rx (?,?')  -  -ir  •  r(r,7r  •  r') 

The  reflection  coefficient  method  for  finitely  conducting  ground  uses 
the  image  fields  modified  by  the  Fresnel  reflection  coefficients.  The  Fresnel 
reflection  coefficients,  which  are  strictly  correct  only  for  an  infinite 
plane-wave  field,  depend  on  the  polarization  of  the  incident  field  with 
respect  to  the  plane  of  incidence  (i.e.,  the  plane  containing  the  normal  to 
the  ground  and  the  vector  in  the  direction  of  propagation  of  the  wave).  The 
two  cases  are  illustrated  in  figure  16  where  the  wave  with  E  in  the  plane  of 
incidence  is  termed  vertically  polarized  and  E  normal  to  the  plane  of  incidence 
as  horizontally  polarized.  The  Fresnel  reflection  coefficient  for  vertically 
polarized  waves  is 
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The  reflected  fields  are  then 
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For  horizontally  polarized  waves,  the  reflection  coefficient  is 


-  yZR  cos  0  -  vl  -  ZR  sin2  0 
ZR  cos  0  +  /l  -  Z2  sin2  0 


(180) 
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An  arbitrarily  polarized  incident  plane  wave  must  be  resolved  into  horizontal 
and  vertical  components  to  determine  the  reflected  field.  Thus,  if  p  is  the 
unit  vector  normal  to  the  plane  of  incidence,  the  reflected  field  due  to  an 
incident  field  E  is 


*  V^I  *  P>P  +  Ry  *l~  (^I  *  P>P 

*  *v  *1  +  (rh  -  V(5i  •  ■ 


(181) 


where  E^  is  the  incident  field  reflected  in  a  perfectly  conducting  ground,  or 
the  field  due  to  the  image  of  the  source.  Use  of  the  image  field  in  equation 
(181)  accounts  for  the  changes  in  sign  and  vector  direction  of  the  incident 
field  that  were  shown  explicitly  for  the  vertically  and  horizontally  polarized 
cases.  For  the  magnetic  field. 


“* '  Vi  +  <Rv  -  V  (Hi  • • 


(182) 


with  Hj  the  field  of  the  image  of  the  source. 

Applying  the  Fresnel  reflection  coefficients  to  the  near  fields,  the 
electric  field  at  r  due  to  the  image  of  a  current  element  at  r:  can  be  written 

GR(r,r’)  =  (r,r ' ) 


(Ry  -  ly  (3j(r ,r* ) 


*  P  P  , 


(183) 
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where 

P  -  p/|p|  , 

P  -  (r  -  r')  x  z  , 

and  Gj  is  the  Green's  function  for  the  image  of  thj  source  in  a  perfect  ground 
as  defined  in  equation  (175).  For  magnetic  field,  the  Green's  dyad  for  the 
modified  image  is 


rR(r,r')  -RnVr.r') 


-  Rjj)  ri(r,r')  •  p  i 


(184) 


The  Green's  functions  for  electric  and  magnetic  fields  over  an  imperfectly 
conducting  ground,  resulting  from  the  reflection  coefficient  approximation  are 


Gg(r,r')  -  G(r.r')  +  GR(r,r')  , 


fB(r,r’>  *  TCr.r’)  +  TAv,r')  . 

8  K. 


(185) 


(186) 


Use  of  the  Green's  function's  G  and  T  results  in  a  straightforward  extension 

S  S 

of  the  EFIE  and  MFIE  for  structures  over  an  imperfect  ground. 

NEC  also  includes  a  reflection  coefficient  approximation  for  a  radial 
wire  ground  screen,  as  used  by  Miller  and  Deadrick  (ref.  29).  This  is  based 
on  an  approximation  developed  by  Wait  (ref.  30)  for  the  surface  impedance  of 
the  radial-wire  ground  screen  on  an  imperfectly  conducting  ground,  as  the 
parallel  combination  of  the  surface  impedance,  of  the  ground  plane 


.  ( j>i°“  r 

’1  \o1  +  je^y 


and  an  approximate  surface  impedance  of  the  ground  screen 


Zg(p,  - 


jy  up 
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The  ground  screen  impedance  assumes  a  parallel  wire  grid  having  the  wire 

spacing  that  the  radial  wires  have  at  a  distance  p  from  the  center.  N  is  the 

number  of  radial  wires  in  the  screen,  and  C  is  the  radius  of  the  wires.  The 

o 

surface  impedance  of  the  ground  screen  on  an  imperfect  ground  is  then 


;i  +  z8 


From  the  definition  of  surface  impedance. 


E  =  r  H 

tangential  e  tangential 

at  the  surface.  Using  the  fact  that  E  and  H  in  the  incident  wave  are  related 
by  n  the  free-space  impedance,  reflection  coefficients  are  derived  as 

n  -  £  cos  0 

n  +  C  cos  0  ’ 
e 

and 

H  cos  .0  -  5 
\  n  cos  0  +  s 

e 


This  is  the  form  the  Fresnel  reflection  coefficients  take  when  the  index 

of  refraction  is  large  compared  to  unity  (|z  |  «  1).  This  condition  is 

satisfied  in  most  realistic  problems;  furthermore,  the  surface-impedance 

boundary  condition  is  a  valid  approximation  only  when  the  refractive  index  of 

the  ground  is  large  compared  to  unity.  The  surface  impedance  is  used  in 

conjunction  with  the  reflection  coefficient  method  previously  discussed  to 

provide  an  approximate  model  of  a  radial-wire  ground  screen. 

Due  to  the  assumption  of  specular  reflection,  only  the  properties  of  the 

ground  directly  under  a  vertical  antenna  will  affect  its  current  distribution. 

At  the  origin  of  the  radial-wire  ground  screen,  the  impedance  is  zero  (Z  is 

S 

not  allowed  to  be  negative)  so  the  impedance  and  current  distribution  of  a 
vertical  antenna  at  the  origin  will  be  the  same  as  over  a  perfect  conductor. 

The  far  fields,  however,  will  demonstrate  the  effect  of  the  screen  as  the 
specular  point  moves  away  from  the  origin.  For  antennas  other  than  the  vertical 


antenna,  it  should  be  pointed  out  that  the  inherent  polarization  sensitivity 
of  the  screen  (i.e.,  E  parallel  or  perpendicular  to  the  ground  wires)  has  not 
been  considered  in  this  approximation.  When  limited  accuracy  can  be  accepted 
this  ground  screen  approximation  provides  a  large  time  saving  over  explicit 
modeling  with  the  Sommerfeld/Norton  method  since  the  ground  screen  does  not 
Increase  the  number  of  unknowns  in  the  matrix  equation. 


Section  V 

Modeling  of  Antennas 


Previous  sections  have  dealt  with  the  problem  of  determining  the 
current  induced  on  a  structure  by  an  arbitrary  excitation.  We  now  consider 
some  specific  problems  in  modeling  antennas  and  scatterers,  including  models 
for  a  voltage  source  on  a  wire,  lumped  and  distributed  loads,  nonradiating 
networks,  and  transmission  lines.  Calculations  of  some  observable  quantities 
are  also  covered  including  input  impedance,  radiated  field,  and  antenna  gain. 

1.  SOURCE  MODELING 

The  approach  used  in  NEC  is  applicable  to  a  number  of  electromagnetic 
analysis  problems.  For  receiving  antennas  and  EMP  studies,  the  excitation  is 
the  field  of  an  incident  plane  wave  and  the  desired  response  is  the  induced 
current  at  one  or  more  points  on  the  structure.  In  scattering  analysis  the 
excitation  is  still  an  incident  plane  wave,  but  the  desired  response  is  the 
field  radiated  by . the  induced  currents.  In  the  case  of  a  wire  transmitting 
antenna,  however,  the  excitation  is  generally  a  voltage  source  on  the  wire. 

The  antenna  source  problem  has  received  a  considerable  amount  of  attention 
in  the  literature.  A  rather  thorough" exposition  on  the  appropriate  source 
configuration  for  the  linear  dipole  antenna  has  been  given  by  King  (ref.  31). 
The  delta-function  source,  which  may  be  visualized  as  an  infinitesimally  thin, 
circumferential  belt  of  axially  directed  electric  field  [or,  alternatively, 
as  a  frill  of  magnetic  current  at  the  antenna  feed  point  (ref.  32)],  is 
convenient  mathematically,  but  of  somewhat  questionable  physical  realizability. 
Since  the  excitation  can  be  specified  only  at  discrete  points  in  NEC,  a 
delta-function  source  is  not  feasible. 

A  useful  source  model,  however,  is  an  electric  field  specified  at  a 
single  match  point.  For  a  voltage  source  of  strength  V  on  segment  i,  the 
element  in  the  excitation  vector  corresponding  to  the  applied  electric  field 
at  the  center  of  segment  i  is  set  to 


The  actual  effective  voltage  Is  the  line  Integral  of  the  applied  field  along 
the  wire.  This  cannot  be  determined  beforehand  since  the  field  Is  known 
only  at  segment  centers,  but  can  be  determined  after  the  solution  for  current 
by  Integrating  the  scattered  field  produced  by  the  current.  For  equal  length 
segments  In  the  vicinity  of  the  source  this  field,  which  must  be  the  negative 
of  the  applied  field  at  every  point  on  the  wire.  Is  nearly  constant  over 
segment  1  and  drops  sharply  at  the  segment  ends.  This  results  In  an  actual 
voltage  of  approximately  as  assumed  In  equation  (187).  When  the  source 

segment  and  adjacent  segments  are  not  of  equal  length,  however,  the  actual 
voltage,  obtained  by  Integrating  the  scattered  field,  may  differ  from  the 
Intended  value. 

Ideally,  this  source  model  applies  a  voltage  V  between  the  ends  of  the 
source  segment.  Hence,  the  antenna  Input  admittance  could  be  computed  as  the 
current  at  the  segment  ends  or.  In  an  unsymmetric  case,  the  average  of  the 
current  at  the  two  ends,  divided  by  the  applied  voltage.  In  practice  the 
segment  Is  sufficiently  short  so  that  the  current  variation  over  Its  length 
Is  small  and  the  current  at  the  center  can  be  used  rather  than  the  ends. 

When  segment  lengths  In  the  source  region  are  unequal,  the  computed  Input 
admittance  may  be  Inaccurate  due  to  the  discrepancy  between  the  actual  and 
assumed  voltages.  Use  of  the  actual  voltage,  obtained  by  Integrating  the 
near  field,  will  generally  give  an  accurate  admittance  although  It  will 
require  additional  effort  for  computation. 

An  alternate  source  model  that  is  less  sensitive  to  the  equality  of 
segment  lengths  In  the  source  region  is  based  on  a  discontinuity  in  the 
derivative  of  current.  This  source  model  is  similar  to  one  used  by  Andreasen 
and  Harris  (ref.  33),  and  its  use  in  a  program  similar  to  NEC  was  reported 
by  Adams,  Poggio,  and  Miller  (ref.  24).  For  this  model,  the  source  region  is 
viewed  as  a  biconical  transmission  line  with  feed  point  at  the  source  location, 
as  illustrated  in  figure  17.  The  voltage  between  a  point  at  s  and  the 
symmetric  point  on  the  other  side  of  the  line  is  then  related  to  the  derivative 
of  the  current  by  the  transmission  line  equation. 


V  (s) 


31 (ks) 
o  3(ks) 


(188) 


where  Zq  is  the  characteristic  impedance  of  the  transmission  line.  The 
characteristic  Impedance  of  a  biconical  transmission  line  of  half-angle  0  is 
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Figure  17.  Biconical 
Transmission  Line 
Model  of  Source 
Region. 
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(cot  f  )  , 


or  for  small  angles. 


Z  ~  120  Hn 
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(§)• 


(189) 


For  a  source  on  a  wire,  however,  the  proper  choice  for  6  in  figure  17, 
defining  the  angle  0,  is  unclear.  Adams  at  al.  (ref.  24)  used  an  average 


value  of  Zq  obtained  by  averaging  equation  (189)  for  6  ranging  from  zero  to 


120  In  —  d6 


(f) 


120  In 


{?)- 


1  . 


where  d  is  set  equal  to  the  distance  from  the  source  location  at  the  segment 
end  to  the  match  point  at  the  segment  center.  The  voltage  across  the  line  is 


V (s)  =  -  j  120 


N*)  - 1] 


9l(ks) 
3(ks)  ' 


Allowing  for  a  current  unsymmetric  about  the  source,  the  voltage  V  of  a 
source  at  sq  is  related  to  a  discontinuity  in  current  derivative  as 


e+o  s  m  s  +  e 

o 


91 (ks) 
9(ks) 
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o 


- 


IMtH 


(190) 


*.*»*.*■*, 


This  discontinuity  in  current  derivative  is  introduced  into  NEC  by  modifying 

the  current  expansion  on  the  wire.  The  normal  expansion  for  N  wire  segments 

s 


s 

I(s)  -  I  ot  f.(s) 
j-1  J  3 


where  the  basis  functions,  f^,  are  defined  in  section  III-l  such  that  I(s) 
has  continuous  value  and  derivative  along  wires,  and  satisfies  Kirchoff's  law 
and  a  condition  on  charge  density  at  junctions. 

For  a  current-slope-discontinuity  source  at  the  first  end  of  segment  i, 
the  current  expansion  is  modified  to 


1(a)  -  2  cij  fj(s)  +  f4(s)  , 


(191) 


where  f£  is  a  basis  function  for  segment  Jl,  as  defined  in  section  III-l,  but 
computed  as  if  the  first  end  of  segment  1  were  a  free  end  and  the  segment 
radius  were  zero.  Hence,  f*  goes  to  zero  with  nonzero  derivative  at  the 
source  location. 

If  f£  on  segment  l  is 


f*(s)  -  +  B*  sin  k(s  -  s„)  +  C*  cos  k(s  -  s„) 


x  |s  -  sA|  <  Aj/2  , 


— - —  f*(s) 
3(ks)  zlKa) 


3  “  sl  “  V2 


Bj  cos(kA^/2)  +  C*  sin(kA£/2) 


Since  the  sum  of  the  normal  basis  functions  has  continuous  value  and 
derivative  at  s  ■  s^  -  A^/2,  the  current  in  equation  (191)  has  a  discontinuity 
in  derivative  of 


lim  <37T— r  I  (s)  I 

(  8  ■  s“s£  “  A^/2  +  e 


3(ks) 


|bJ  cos(kA£/2)  +  C*  sin(kAJl/2)j  . 


Hence,  from  equation  (190),  a  source  voltage  of  VQ  requires  a  value  of  8^  in 
the  current  expansion  of 

-jv 


60 


*"£)  • *]  [ 


cos(kA^/2) 


+  Cj  sin(kAJl/2) 


-1 


(192) 


The  linear  system  for  the  current  expansion  constants,  obtained  by 
substituting  equation  (191)  for  f  in  equation  (18),  is 


N 


2  o  <w  ,  Lf  >  - 

j-1  J  J 


<wi.  e>  *  h  <wi’  h> 


(193) 


i  -  1,  ...  N 


In  matrix  notation,  corresponding  to  equation  (19), 


[G]  [A]  -  [E]  +  8g  [F]  ,  (194) 

G 

where  F^  is  the  excitation  for  segment  or  patch  equation  number  i  due  to  the 
field  of  fj,  and  is  the  excitation  for  segment  or  patch  equation  number  i 
from  other  sources  (if  there  are  any).  The  interaction  matrix  G  is  independent 
of  this  source  as  it  is  of  other  sources.  The  solution  for  the  expansion 
coefficients  is  then 

[A]  -  [G"1]  |  [E]  +  8^  [F] j  , 


where  A  supplies  the  coefficients  in  equation  (191)  to  determine  the 
current.  This  method  is  easily  extended  to  several  sources.  The  modified 
basis  function  f£  appears  to  Introduce  an  asymmetry  into  the  current,  but 
this  is  not  the  case  since  the  other  basis  function  amplitudes  are  free  to 
adjust  accordingly. 

The  current-slope-discontinuity  source  results  in  an  effective  applied 
field  that  is  much  more  localized  in  the  source  region  than  that  of  the 
constant-field  source  defined  by  equation  (187).  The  difference  is  shown  in 
near-field  plots  for  the  two  source  models  in  figure  18,  taken  from  Adams 
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Figure  18.  Field  Plots  for  a 
Linear  Dipole,  £>15. 


et  al.  (ref.  24).  The  near  fields 
•are  for  a  half  wavelength  dipole 
antenna  with  £1  *  15  [£1  ■  2£,n(L/a) , 

L  *  length,  a  -  radius]  and  with  10 
segments  on  half  of  the  antenna 
covered  by  the  plots.  The  constant- 
field  source  is  seen  to  result  in  a 
nearly  rectangular  field  distribution 
in  the  source  region  while  the  field 
of  the  slope-discontinuity  source 
approaches  a  delta  function.  The 
integrals  of  these  two  source-field 
distributions  yield  approximately  the 
same  voltages,  however. 

With  the  slope-discontinuity- 
source  model,  the  input  admittance  is 
the  ratio  of  the  current  at  the 
segment  end,  where  the  source  is 
located,  to  the  source  voltage. 

Adams  et  al.  also  present  results 
showing  the  effect  on  admittance  of 
varying  the  source-segment  length 
relative  to  the  lengths  of  adjacent 
segments,  showing  that  the  slope- 
discontinuity  source  is  much  less 
sensitive  to  segment  length  than  is 
the  constant-field  source.  The  two 


segments  on  opposite  sides  of  the  source  must  have  equal  lengths  and  radii, 
however.  For  very  short  segment  lengths,  the  slope-discontinuity  model  may 
break  down  although,  as  with  the  constant-field  source,  the  correct  admittance 
can  be  obtained  by  integrating  the  near  field  to  obtain  the  source  voltage. 

2.  NONRADIATING  NETWORKS 

Antennas  often  include  transmission  lines,  lumped  circuit  networks,  or 
a  combination  of  both  connecting  between  different  parts  or  elements.  When 
the  currents  on  transmission  lines  or  at  network  ports  are  balanced,  the 
resulting  fields  cancel  and  can  often  be  neglected,  greatly  simplifying  the 


modeling  problem.  The  solution  procedure  used  in  NEC  is  to  compute  a 
driving-point-interaction  matrix  from  the  complete  segment-interaction  matrix. 
The  driving-point  matrix  relates  the  voltages  and  currents  at  network  connec¬ 
tion  points  as  required  by  the  electromagnetic  interactions.  The  driving- 
point-interaction  equations  are  then  solved  together  with  the  network  or 
transmission  line  equations  to  obtain  the  induced  currents  and  voltages.  In 
this  way  the  larger  segment-interaction  matrix  is  not  changed  by  addition  or 
modification  of  networks  or  transmission  lines. 

The  solution  described  below  assumes  an  electromagnetic  interaction 
matrix  equation  of  the  form, 

[G]  [I]  -  -  [E]  '  (195) 


where  E^  is  the  exciting  electric  field  on  wire  segment  i  and  1^  is  the 
current  at  the  center  of  segment  i.  In  NEC  the  interaction  equation  has  the 
form. 


[G]  [A]  -  -  [E]  , 


where  is  the  amplitude  of  the  i  basis  function  f^  in  the  current 
expansion. 


I(s)  -  I  A.  f  (s) 
i=l  1  1 


The  same  solution  technique  can  be  used,  however,  by  computing  I  from  A 


whenever  I  is  needed.  This  must  be  done  in  computing  the  elements  of  the 


inverse  of  G,  G^ ,  which  below  represent  the  current  on  segment  i  due  to  a 


unit  field  on  segment  j 


A  model  consisting  of  Ng  segments  will  be  assumed  with  a  general  M-port 


network  connected  to  segments  1  through  M.  The  network  is  described  by  the 
admittance  equations, 


£  VJ  ■  'l 


(196) 


where  and  1^  are  the  voltage  and  current  at  port  i,  with  reference 


directions  as  shown  in  figure  19. 


i r  •«!. 


...  ,r 


The  connection  of  a  network 
port  to  a  segment  is  illustrated  in 
figure  20.  The  segment  is  broken, 
and  the  port  is  connected  so  that 


(197) 


where  1^  is  the  segment  current. 
Figure  21  shows  a  voltage  source  of 


strength  connected  across  the 


Figure  19.  Voltage  and  current 
Reference  Directions  at 
Network  Ports. 


network  port  at  segment  i.  In  this 
case, 

t  ^8  j  /in 


(198) 


In  either  case,  the  port  voltage  may  be  related  to  the  applied  field  on  the 
segment  by  the  constant-field  voltage  source  model  of  equation  (187). 


We  will  assume  that  segments  1  through  are  connected  to  network 


ports  without  voltage  sources,  and  segments  +  1  through  M  are  connected  to 


network  ports  with  voltage  sources.  The  remaining  segments  have  no  network 
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Figure  20.  Network  Connection  to  Segments. 
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connections  but  may  have  voltage  sources.  In  addition  all  of  the  segments 


may  be  excited  by  an  incident  field  represented  by  on  segment  i.  The 


total  field  on  segment  i  is  then 


Ei  =  +  * 


where  is  a  gap  voltage,  due  either  to  a  network  port  or  voltage  source,  and 


A^  is  the  segment  length. 


Equation  (195)  may  be  solved  for  current  as 
N 


*•  ’  •  Ji G« 


i=l,  ....  N 


(199) 


j 


where  is  the  (i,j)t'1  element  of  the  inverse  of  matrix  G.  Before 


evaluating  equation  (199),  however,  the  unknown  port  voltages,  V^,  for 


i  *  1, . . . ,M^  must  be  determined.  Hence,  equation  (199)  is  written  with  all 


known  quantities  on  the  right-hand  side  as 

M, 


v  -l  p 

k  EJ  +  ‘‘ 


B. 


i-1,  ....  , 


(200) 
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Similarly,  the  network  equations  (196)  are  written  using  equation  (197)  as 
M, 


l  Y«  E' + 


i  1 ,  • • » ,  , 


(201) 


where 


Y  .  =  A.  Y  , 
ij  J  iJ 


*  -  X  Y  .  V. 

1  j-Mj+1  1J  2 


The  current  is  then  eliminated  between  equations  (200)  and  (201)  to  yield 
M, 


X  fo1 '  T«)  EI '  Bi  -  ci 


x  1 ,  ■ • • ,  • 


(202) 


The  solution  procedure  is  then  to  solve  equation  (202)  for  for  j  =  1,...,*^. 
Then,  with  the  complete  excitation  vector  determined,  use  equation  (199)  to 


determine  1^  for  i  =  1,...,N  .  Finally,  the  remaining  network  equations  with 
equation  (198)  are  used  to  compute  the  generator  currents  as 


li  '  &  VJ  +  *1 


(203) 


'•  I*  determine  the  input  admittances  seen  by  the  sources. 

n  the  general  M-port  network  used  here  is  restricted  to  multiple 
m  -  r  •  ■  mj,  each  connecting  a  pair  of  segments. 
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3.  TRANSMISSION  LINE  MODELING 


Transmission  lines  interconnecting  parts  of  an  antenna  may  be  modeled 
either  explicitly  by  including  the  transmission  line  wires  in  the  thin-wire 
model,  or  implicitly  by  the  method  described  in  the  preceding  section  for 
nonradiating  networks.  For  an  implicit  model,  the  short-circuit-admittance 
parameters  of  the  transmission  line  viewed  as  a  two-port  network  are 

Y11  =  Y22  *  “  ^  Y0  cot(k^  * 

Y12  =  Y21  "  J  Y0  csc(U)  » 

where  Y  is  the  characteristic  admittance  of  the  line,  k  is  the  wave  number 
o 

(2tt/A),  and  1  is  the  length  of  the  line.  If  a  separate  admittance  element 
is  connected  across  the  end  of  a  transmission  line,  its  admittance  is  added  to 
the  self-admittance  of  that  network  port. 

The  implicit  model  is  limited,  however,  in  that  it  neglects  interaction 
between  the  transmission  line  and  the  antenna  and  its  environment.  This 
approximation  is  justified  if  the  currents  in  the  line  are  balanced,  i.e.,  in 
a  log  periodic  dipole  antenna,  and  in  general  if  the  transmission  line  lies 
in  an  electric  symmetry  plane.  The  balance  can  be  upset,  however,  if  the 
transmission  line  is  connected  to  an  unbalanced  load  or  by  unsymmetric 
interactions.  If  the  unbalance  is  significant,  the  transmission  line  can  be 
modeled  explicitly  by  including  the  wires  in  the  thin-wire  model.  The 
explicit  model  is  completely  general,  and  yields  accurate  results  since  the 
sine,  cosine,  and  constant  current  expansion  in  NEC  is  a  good  representation 
of  the  sinusoidal  transmission  line  currents.  The  accuracy  is  demonstrated 
in  figure  22  for  transmission  lines  terminated  in  short  circuit,  open  circuit, 
and  matched  loads. 

The  explicit  transmission  line  model  is,  of  course,  less  efficient  in 
computer  time  and  storage  because  of  the  additional  segments  required.  In 
cases  where  the  physical  line  presence  does  have  a  significant  effect  on  the 
results,  the  effect  may  be  modeled  by  explicitly  modeling  a  single  conductor 
of  the  line  while  using  the  implicit  model  to  represent  the  balanced  current 
component. 


4.  LUMPED  OR  DISTRIBUTED  LOADING 


Thus  far,  we  have  assumed  that  all  structures  to  be  modeled  are  perfect 
electric  conductors.  The  EFIE  is  easily  extended  to  imperfect  conductors  by 
modifying  the  boundary  condition  from  equation  (4)  to 


n(r)  x  ES(r)  +  E*(r)  -  Z  (r)  n(r)  x  J  (r)  , 

s  ,  s 


where  Zg(r)  is  the  surface  impedance  at  r  on  the  conducting  surface.  For  a 
wire,  the  boundary  condition  is 


s  •  [Is (r)  +  E1 (r)  =  Z  (s)  I(s)  , 

w 


with  r  and  s  the  position  vector  and  tangent  vector  at  s  on  the  wire  and 
Zw(s)  the  impedance  per-unit-length  at  s.  The  matrix  equation  can  then  be 
written. 


s  Z 

7  G,.  a.  =  -  E.  +-r  L  i= 

i-i  lj  J  1  4i  1 


:1,  ...,  N  , 
s 


(204) 


where 


amplitude  of  basis  function  j , 
the  incident  field  on  segment  i, 
current  at  the  center  of  segment  i, 
total  impedance  of  segment  i, 
length  of  segment  i. 


The  impedance  term  can  be  viewed  as  a  constant  field  model  of  a  voltage  source, 
as  described  in  section  V-l,  where  the  voltage  is  proportional  to  current. 

It  is  assumed  that  the  current  is  essentially  constant,  with  value  1^,  over 
the  length  of  the  segment,  which  is  a  reasonable  assumption  for  the  electri¬ 
cally  short  segments  used  in  the  integral  equation  solution. 

The  impedan-e  term  can  be  combined  with  the  matrix  by  expressing  1^  in 
terms  of  the  as 


m 


[i  ■  X  “j  H  +  c^)  ■ 


where  A*  and  C*  are  the  coefficients  of  the  constant  and  cosine  terms, 
respectively,  in  the  section  of  basis  function  j  extending  onto  segment  i. 

If  basis  function  j  does  not  extend  onto  segment  i,  then  and  are  zero. 
The  matrix  equation  modified  by  loading  is  then 

N 


j?!  Gij  “j  *  “  Ei 


i-1,  ....  Ng  , 


(205) 


where 


Tij 


G«  -  ^  (AJ +  ci)  • 


(206) 


For  a  lumped  circuit  element,  is  computed  from  the  circuit  equations.  For 
a  distributed  impedance,  represents  the  impedance  of  a  length  of  wire, 
which  in  the  case  of  a  round  wire  of  finite  conductivity  is  given  by 


.  jAi 

/toy 

Ber (q)  +  j 

Bei (q) 

ai 

^  2rra 

Ber'(q)  + 

j  Bei'(q) 

where 

1/2 

q  *  (wyo)  a^, 

*  wire  radius, 

O  *  wire  conductivity, 

Ber,  Bei  =  Kelvin  functions. 

This  expression  takes  account  of  the  limited  penetration  of  the  field  into  an 
imperfect  conductor. 

5.  RADIATED  FIELD  CALCULATION 

The  radiated  field  of  an  antenna  or  reradiated  field  of  a  scatterer  can 
be  computed  from  the  induced  current  by  using  a  simplified  form  of  equation 
(1)  valid  far  from  the  current  distribution.  The  far-field  approximation, 
valid  when  the  distance  from  the  current  distribution  to  the  observation 
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point  is  large  compared  to  both  the  wavelength  and  the  dimensions  of  the 
current  distribution,  treats  the  distance  |r  -  r'|  as  constant  within  the 
integral  except  in  the  phase  term,  exp(-jk|r  -  r ' | ) .  For  a  structure 
consisting  of  a  wire  portion  with  contour  L  and  current  distribution  I(s), 
and  a  surface  portion  S  with  current  Jg(r),  the  far-zone  field  is 


E(;o> 


Ikn 

4tt 


exp(-jkrQ) 

r 

o 


exp(jk*r)ds 


(207) 


fs  |(k*Jg(r))  k-Jg(r)]  exp(jk*r)dA| 


where  rQ  is  the  position  of  the  observation  point  k  =  r  /|r  |,  k  =  27r/A,  and 
k  *  kk.  The  first  integral  can  be  evaluated  in  closed  form  over  each  straight 
wire  segment  for  the  constant,  sine,  and  cosine  components  of  the  basis 
functions,  and  reduces  to  a  summation  over  the .wire  segments.  With  the 
surface  current  on  each  patch  represented  by  a  delta  function  at  the  patch 
center,  the  second  integral  becomes  a  summation  over  the  patches. 

The  radiation  pattern  of  an  antenna  can  be  computed  by  exciting  the 
antenna  with  a  voltage  source  and  using  equation  (207)  to  compute  the  radiated 
field  for  a  set  of  directions  in  space.  Alternatively,  since  the  transmitting 
and  receiving  patterns  are  required  by  reciprocity  to  be  the  same,  the  pattern 
can  be  determined  by  exciting  the  antenna  with  plane-waves  incident  from  the 
same  directions  and  computing  the  currents  at  the  source  point.  The  solution 
procedure  in  NEC  does  not  guarantee  reciprocity,  however,  since  the  different 
expansion  and  weighting  functions  may  produce  asymmetry  in  the  matrix.  Large 
differences  between  the  receiving  and  transmitting  patterns  or  a  significant 
lack  of  reciprocity  in  bistatic  scattering  are  indications  of  inaccuracy  in 
the  solution,  possibly  from  too  coarse  a  segmentation  of  the  wires  or  surfaces. 

The  power  gain  of  an  antenna  in  the  direction  specified  by  the 
spherical  coordinates  (0,<J>)  is  defined  as 

Gp(0,4>)  =  4tt  , 

in 


where  P(0,<J>)  is  the  power  radiated  per  unit  solid  angle  in  the  direction 
(0,<{>),  and  Pin  is  the  total  power  accepted  by  the  antenna  from  the  source. 
Pin  is  computed  from  the  voltage  and  current  at  the  source  as 


pla  ■  2  Re(VI*>  • 


PCS,*)  -  R2  Re(E  x  3*)  -  lu  (E-f*)  . 

E  is  obtained  from  equation  (207)  with  r  in  the  direction  (0,d>),  and  r  *  R. 

o  o 

Directive  gain  is  similarly  defined  as 


Gd(0,<j>)  -  Air  , 

rad 

where  pra(j  is  the  total  power  radiated  by  the  antenna, 

P  ■  p  -  p 
rad  in  loss  ’ 

and  I*logg  is  the  total  ohmic  loss  in  the  antenna. 

The  radiated  field  of  an  antenna  over  ground  is  modified  by  the  ground 

interaction,  as  discussed  in  section  IV.  When  the  range  from  the  antenna 

to  the  observer,  R,  approaches  infinity,  the  Sommerfeld  formulation  for  the 

field  reduces  exactly  to  a  direct  field  determined  by  equation  (207)  and  a 

field  from  the  image  modified  by  the  Fresnel  reflection  coefficient.  In  some 

cases,  however,  when  the  observer  is  at  a  finite  distance  from  the  antenna, 

2 

the  field  components  proportional  to  1/R  may  be  significant.  While  the  1/R 

2 

terms  are  generally  much  larger  than  the  1/R  terms  at  practical  observation 

distances  from  an  antenna,  the  1/R  terms  vanish  at  grazing  angles  over  an 

imperfect  ground  plane  leaving  only  the  1/R  terms,  dominated  by  a  term  known 

as  the  ground  wave.  The  ground  wave  is,  of  course,  included  in  Sommerfeld' s 

expressions.  Norton's  asymptotic  approximations  (ref.  26)  are  used,  however, 

since  they  are  more  easily  evaluated  and  give  adequate  accuracy.  Norton's 

fo^ulas,  which  are  in  Part  II  of  this  manual  under  subroutine  GWAVE,  are  valid 

2  2 

for  R  greater  than  a  few  wavelengths  and  to  second  order  in  k^k^  When  the 
ground  wave  is  included,  the  field  has  radial  as  well  as  transverse  components. 


6.  ANTENNA  COUPLING 


Coupling  between  antennas  is  often  a  parameter  of  interest,  especially 
when  a  receiving  system  must  be  protected  from  a  nearby  transmitter.  Maximum 
power  transfer  between  antennas  occurs  when  the  source  impedance  and  receiver 
load  impedance  are  conjugate-matched  to  their  antennas.  Determination  of  this 
condition  is  complicated  by  the  antenna  interaction,  however,  since  the  input 
impedance  of  one  antenna  depends  on  the  load  connected  to  the  other  antenna. 
NEC-2  includes  an  algorithm  for  determining  the  matched  loads  and  maximum 
coupling  by  a  method  that  was  added  to  special  versions  of  the  previous  codes 
NEC-1  and  AMP  (ref.  34). 

The  coupling  problem  can  be  solved  in  closed  form  by  the  Linville  method 
(ref.  35),  a  technique  used  in  rf  amplifier  design.  The  first  step  is  to 
determine  the  two-port  admittance  parameters  for  the  coupled  antennas  by 
exciting  each  antenna  with  the  other  short-circuited  and  computing  the  self 
and  mutual  admittances  from  the  currents  computed  by  NEC.  The  maximum  coupling 


is  then 


it- 


2 

(1~L  ; 


where 


_ I Y12Y21 1 _ 

=  2Re(Yn)  Re(Y22)  -  R.0^)  * 

The  matched  load  admittance  on  antenna  2  for  maximum  coupling  is 


YL-[fT^+1]Re(Y22>-lr22  ’ 


where 


GMAX(Y12Y21)* 

lY12Y2ll 


and  the  corresponding  input  admittance  of  antenna  1  is 


Y  ■  Y 
IN  11 


Y  Y 
21  12 

Y  +  Y 
L  22 
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Part  II:  Program  Description  -  Code 


Preface 


The  Numerical  Electromagnetics  Code  (NEC)  has  been  developed  at  the 
Lawrence  Livermore  Laboratory,  Livermore,  California,  under  the  sponsorship  of 
the  Naval  Ocean  Systems  Center  and  the  Air  Force  Weapons  Laboratory.  It  is  an 
advanced  version  of  the  Antenna  Modeling  Program  (AMP)  developed  in  the  early 
1970's  by  MBAssociates  for  the  Naval  Research  Laboratory,  Naval  Ship 
Engineering  Center,  U.S.  Army  ECOM/Communications  Systems,  U.S.  Army  Strategic 
Communications  Command,  and  Rome  Air  Development  Center  under  Office  of  Naval 
Research  Contract  N00014-71-C-0187.  The  present  version  of  NEC  is  the  result 
of  efforts  by  G.  J.  Burke  and  A.  J.  Poggio  of  Lawrence  Livermore  Laboratory. 
The  documentaton  for  NEC  consists  of  three  parts: 

Part  I:  NEC  Program  Description  -  Theory 

Part  II:  NEC  Program  Description  -  Code 

Part  III:  NEC  User's  Guide 

The  documentation  has  been  prepared  by  using  the  AMP  documents  as 
foundations  and  by  modifying  those  as  needed.  In  some  cases  this  led  to  minor 
changes  in  the  original  documents  while  in  many  cases  major  modifications  were 
required. 

Over  the  years  many  individuals  have  been  contributors  to  AMP  and  NEC 
and  are  acknowledged  here  as  follows: 

R.  W.  Adams  R.  J.  Lytle 

J.  N.  Brittingham  E.  K.  Miller 

G.  J.  Burke  J.  B.  Morton 

F.  J.  Deadrick  G.  M.  Pjerrou 

K.  K.  Hazard  A.  J.  Poggio 

D.  L.  Knepp  E.  S.  Selden 

D.  L.  Lager 

The  support  for  the  development  of  NEC-2  at  the  Lawrence  Livermore  Laboratory 

has  been  provided  by  the  Naval  Ocean  Systems  Center  under  MIPR-N0095376MP. 

Cognizant  individuals  under  whom  this  project  was  carried  out  include: 

# 

J.  Rockway  and  J.  Logan.  Previous  development  of  NEC  also  included  the 
support  of  the  Air  Force  Weapons  Laboratory  (Project  Order  76-090)  and  was 
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Abstract 


The  Numerical  Electromagnetics  Code  (NEC-2)  is  a  computer  code  for 
analyzing  the  electromagnetic  response  of  an  arbitrary  structure  consisting  of 
wires  and  surfaces  in  free  space  or  over  a  ground  plane.  The  analysis  is 
accomplished  by  the  numerical  solution  of  integral  equations  for  induced 
currents.  The  excitation  may  be  an  incident  plane  wave  or  a  voltage  source  on 
a  wire,  while  the  output  may  include  current  and  charge  density,  electric  or 
magnetic  field  in  the  vicinity  of  the  structure,  and  radiated  fields.  Hence, 
the  code  may  be  used  for  antenna  analysis  or  scattering  and  EMP  studies. 

This  document  is  Part  II  of  a  three-part  report.  It  contains  a  detailed 
description  of  the  Fortran  coding,  including  the  definitions  of  variables  and 
constants,  and  a  listing  of  the  code.  The  other  two  documents  cover  the 
equations  and  numerical  methods  (Part  I)  and  instructions  for  use  of  the  code 
(Part  III). 


KEY  WORDS  FOR  DD  FORM  1473: 
EM  scattering 
EMP 

Wire  Model 
Method  of  moments 


Section  I 
Introduction 

The  Numerical  Electromagnetics  Code  (NEC-2)*  is  a  user-oriented  computer 
code  for  the  analysis  of  the  electromagnetic  response  of  antennas  and  other 
metal  structures.  It  is  built  around  the  numerical  solution  of  integral 
equations  for  the  currents  induced  on  the  structure  by  sources  or  incident 
fields.  This  approach  avoids  many  of  the  simplifying  assumptions  required  by 
other  solution  methods  and  provides  a  highly  accurate  and  versatile  tool  for 
electromagnetic  analysis. 

The  code  combines  an  integral  equation  for  smooth  surfaces  with  one 
specialized  to  wires  to  provide  for  convenient  and  accurate  modeling  of  a  wide 
range  of  structures.  A  model  may  Include  nonradiating  networks  and  transmis¬ 
sion  lines  connecting  parts  of  the  structure,  perfect  or  imperfect  conductors, 
and  lumped-element  loading.  A  structure  may  also  be  modeled  over  a  ground 
plane  that  may  be  either  a  perfect  or  imperfect  conductor. 

The  excitation  may  be  either  voltage  sources  on  the  structure  or  an 
incident  plane  wave  of  linear  or  elliptic  polarization.  The  output  may  include 
induced  currents  and  charges,  near  electric  or  magnetic  fields,  and  radiated 
fields.  Hence,  the  program  is  suited  to  either  antenna  analysis  or  scattering* 
and  EMP  studies. 

This  document  is  Vol.  II  of  a  three-part  report  on  NEC.  It  contains 
a  detailed  description  of  the  Fortran  coding.  Section  II  contains  for  each 
routine:  (1)  a  statement  of  purpose,  (2)  a  narrative  description  of  the 

methodology,  (3)  definitions  of  variables  and  constants,  and  (4)  a  listing  of 
the  code.  The  remaining  sections  cover  the  common  blocks,  system  library 
functions,  array  dimension  limitations,  and  subroutine  linkage. 

The  information  in  Vol.  II  will  be  Cf  use  mainly  to  persons  attempting  to 
modify  the  code  or  to  use  it  on  a  computer  system  with  which  the  delivered 
deck  is  not  compatible. 

Vol. I  describes  the  equations  and  numerical  methods  used  in  NEC  and 
Vol.  Ill  contains  instructions  for  using  the  code,  including  preparation  of 
input  data  and  interpretation  of  output.  Persons  attempting  to  use  NEC  for 
the  first  tim«  should  start  by  reading  Vol.  III.  Vol. I  will  help  the  new 
user  to  understand  the  capabilities  and  limitations  of  NEC. 

*NEC-2  will  be  abbreviated  to  NEC  elsewhere  in  this  volume. 


Section  II 
Code  Description 


In  this  section,  each  routine  in  NEC  is  described  in  detail.  The  main 
program  is  described  first  and  is  followed  by  the  subroutines  in  alphabetical 
order.  For  each  routine,  there  is  a  brief  statement  of  its  purpose,  a 
description  of  the  code,  an  alphabetized  listing  and  definition  of  important 
variables  and  constants,  and  a  listing  of  the  code.  Variables  that  are  in 
common  blocks,  and  hence  occur  in  several  routines,  are  usually  omitted  from 
the  lists  for  individual  routines.  They  are  defined  in  Section  III  under  their 
common  block  labels. 

Following  line  MA  495  in  the  main  program,  all  quantities  of  length  have 
been  normalized  to  wavelength.  Current  is  normalized  to  wavelength  throughout 
the  solution.  This  changes  the  appearance  of  many  of  the  equations.  In 
particular  the  wave  number,  k  ■  2tt/X,  usually  appears  as  2ir. 


MAIN 


MAIN 


PURPOSE 


To  handle  input  and  output  and  to  call  the  appropriate  suoroutines. 


METHOD 


The  structure  o£  MAIN  is  shown  in  the  flow  charts  of  Figures  1  and  2 
where  Figure  I  represents  the  first  half  of  the  code  to  about  line  MA  459. 
Comment  cards  are  read  and  printed  after  line  MA  72  and  subroutine  DATAGN  is 
called  at  MA  90  to  read  and  process  structure  data.  If  a  Numerical  Green's 
Function  (NGF)  file  was  read  in  DATAGN  then  subroutine  FBNFG  is  called  to 
determine  whether  file  storage  is  needed  for  the  matrix  and  to  allocate  core 
storage.  When  a  NGF  has  not  been  read  the  mode  of  matrix  storage  cannot  be 
determined  until  line  MA  464  since  it  depends  on  whether  a  NFG  file  is  to  be 


written. 


The  box  labeled  "Read  data  card"  in  Figure  1  refers  to  the  READ 
statement  at  MA  139.  Any  of  the  types  of  data  cards  in  Table  1  may  be  read  at 
this  point  to  set  parameters  or  to  request  execution  of  the  solution  part  of 


the  code. 


The  integer  variables  IG0  and  IFLOW  are  keys  to  the  operation  of  the 
code.  IG0  indicates  the  stage  of  completion  of  the  solution  as  listed  in 
Table  2.  When  a  card  requesting  execution  is  read  (NE,  NH,  RP,  WG,  or  XQ)  the 
solution  part  of  the  code  (Figure  2)  is  entered  at  the  point  determined  by 
IG0  (see  MA  385,  MA  420,  MA  429,  and  MA  457).  After  the  current  has  been 
computed  IG0  is  given  the  value  five.  If  subsequent  data  cards  change 
parameters,  the  value  of  IG0  is  reduced  to  the  value  in  Table  1  to  indicate 
the  point  beyond  which  the  solution  must  be  repeated.  For  example,  when  an  EX 
card  is  read  IG0  is  set  equal  to  three  if  it  was  greater  than  three  but  is 
not  changed  if  it  was  less  than  three.  For  cards  that  request  execution  "ex." 


is  shown  in  Table  1. 


IFLOW  is  used  to  indicate  the  type  of  the  previous  data  card.  When 
several  cards  of  the  same  type  can  be  used  together  (CP,  LD,  NT,  TL,  and  EX 
for  voltage  sources)  a  counter  is  incremented  and  data  is  added  to  arrays  if 
the  card  is  the  same  as  the  previous  card  as  indicated  by  IFLOW.  If  the 
previous  card  was  different  the  counter  is  initialized  and  previous  data  in 
the  arrays  is  destroyed.  IFLOW  is  also  used  to  indicate  what  type  of  card 
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Numerical 
Green1 s 
Function  data 


Jl 


Start  of  new  case 
Read  and  print  comments 


Call  DATAGN  to  read 
structure  data 


Allocate  matrix  storage 
when  NGF  is  used 


Read  data  card 


NX  card? 

'  I^T 


EN  card? 
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Branch  to  section  for 
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request? 
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Go  to  B 

Figure  2 

Figure  1.  Flow  Diagram  of  Main  Program  Input  Section 
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Figure  2 


Flow  Diagram  of  Main  Program 
Computation  Section 
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MAIN 


TABLE  1 


I 

AIN(I) 

GO  TO 

Line 

IG0 

IFLOW 

1 

21 

CP 

304 

202 

- 

2 

2 

19 

EK 

320 

194 

2 

1 

3 

13 

EN 

ST0P 

166 

- 

- 

4 

5 

EX 

24 

275 

3 

5 

5 

2 

FR 

16 

172 

1 

1 

6 

9 

GD 

34 

389 

- 

9 

7 

4 

GN 

21 

245 

2 

4 

8 

16 

XH 

305 

187 

2 

1 

9 

3 

LD 

17 

221 

2 

3 

10 

8 

NE 

32 

370 

ex.  * 

8 

11 

17 

NH 

208 

368 

ex.* 

8 

12 

6 

NT 

28 

321 

3 

6 

13 

12 

NX 

1 

69 

1 

1 

14 

18 

PQ 

319 

358 

- 

- 

15 

15 

PT 

31 

348 

- 

- 

16 

10 

RP 

36 

398 

ex. 

10 

17 

14 

TL 

28 

321 

3 

6 

18 

20 

WG 

322 

424 

ex. 

12 

19 

7 

XQ 

37 

433 

ex. 

7  or  11 

*  NE  and  NH  do  not  cause  execution  when  multiple  frequencies  have  been 

requested  on  the  FR  card.  This  allows  computation  of  both  near  fields  and 
radiated  fields  in  a  frequency  loop. 


(Jinnpinarn**  r 


Table  2. 


Completion  Point 


Start 


Frequency  has  been  set  and  geometry 
scaled  to  wavelength 

Interaction  matrix  filled  and  factored 

Current  computed  and  printed 
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MAIN 


requested  the  solution  (NE,  RP,  etc.).  Cards  such  as  RP  may  be  stacked 
togetner  but  are  not  stored  since  they  are  acted  upon  as  they  are  encountered. 

The  solution  part  of  the  code  contains  a  loop  over  frequency  starting  at 
MA  463  and  a  loop  over  incident  field  direction  starting  at  MA  362.  FBLOCK  is 
called  at  MA  465  to  determine  whether  file  storage  is  required  for  the 
matrix.  From  MA  466  to  MA  493  the  structure  data  are  scaled  from  units  of 
meters  to  wavelength  or  from  one  wavelength  to  the  next  wnen  frequency  is 
changed.  Subroutine  LOAD  is  called  at  MA  497  to  fill  array  ZARRAY  for  the 
given  frequency.  At  MA  520  the  Sommerfeld  interpolation  tables  are  read  from 
file  TAPE 21  if  this  option  is  used.  NXA(l)  is  set  to  zero  at  MA  67  so  the 
test  ensures  that  the  tape  is  read  only  once. 

When  the  NGF  option  is  not  in  use  the  matrix  is  filled  by  subroutine 
CMSET  at  MA  537  and  factored  by  subroutine  FACTRS  at  MA  540.  When  the  NGF  is 
used  the  equivalent  steps  are  performed  by  CMNGF  and  FACGF.  If  a  NGF  file  is 
to  he  written,  subroutine  GFOUT  is  called  at  MA  557  to  write  TAPE20. 

Subroutine  ETMNS,  called  at  MA  582,  fills  the  excitation  array  and  the 
current  is  computed  in  subroutine  NETWK  called  at  MA  611.  If  transmission 
lines  or  two  port  networks  are  used  NETWK  combines  the  network  equations  with 
driving-point  interaction  equations  derived  from  the  primary  interaction 
matrix.  Otherwise  the  current  is  computed  directly  from  the  primary  matrix. 

The  remainder  of  MAIN  prints  the  currents  and  calls  subroutines  for  near 
fields,  radiated  fields  or  coupling.  • 


SYMBOL  DICTIONARY; 
AIN 
ATST 
CMAG 
COM 
CURI 
CVEL 
DELFRQ 
DPH 


■  mnemonic  from  data  card 
3  array  of  possible  data  card  mnemonics 
3  magnitude  of  tne  current  in  amperes 
3  array  to  store  text  from  comment  cards 


3  current  on  segment  I  in  amperes 

-,~b 


DTH 


(velocity  of  lignt)  (10  )  in  meters/second 

frequency  increment  (additive  or  multiplicative) 
far-field  <p  angle  increment  in  degrees  (input 
quantity) 

far-field  0  angle  increment  in  degrees  (input 
quantity) 
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MAIN 


DXNR'l 

DYNR 

DZNR  J 

EPH 

EPHA 

EPHM 

EPSC 


EPSCF 

EPSR 

EPSR2 

ETH 

ETHA 

ETHM 

EX 

EXTIM 

EY 

EZ 

FJ 

FMHZ 

FMHZS 

FNORM 


FR 

FR2 

GNOR 


HPOL 

IAVP 

IAX 

Iflll 


1C1I 


near-field  observation  point  increments  (input 
quantities  with  multiple  meanings  —  see  NE  card) 


current  component  in  direction  ^  on  patch 
phase  angle  of  EPH 
magnitude  of  EPH 

complex  dielectric  constant  of  ground  ec  *  er  " 

jo/u»eQ.) 


e  read  from  file  TAPE21 
c 


Gj.  for  outer  ground  region 
current  component  in  direction  t^  on  patch 
phase  angle  of  ETH 
magnitude  of  ETH 

x  component  of  current  on  a  patch 
time  at  start  of  run  (seconds) 
y  component  of  current  on  a  patch 
z  component  of  current  on  a  patch 

J=\ 

frequency  in  MHz 
frequency  in  MHz 

multiply  used  array;  stores  impedances  for  printing  of 
the  normalized  impedance  or  stores  currents  in  the 
receiving  pattern  case  for  printing  normalized 
receiving  pattern 

(next  frequency) /(present  frequency) 

(FR) (FR) 

if  non-zero,  equals  gain  normalization  factor  (dB) 
from  RP  card 

array  containing  polarization  types  (Hollerith) 
input  integer  flag  used  in  average  gain  logic  (RP  card) 
ihput  integer  flag  specifying  gain  type  (RP  card) 
location  in  array  CM  for  start  of  storage  of  submatrix 
B  when  NGF  is  used 

location  in  array  CM  for  start  of  storage  of  submatrix 
C  when  NGF  is  used 
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i 


r.vSf 


MAIM 


ID11 

IEXK 

IFAR 


I  FLOW 

IFRQ 

I  GO 

INC 
I  NOR 

I  PD 

IPED 

IPTAG 

I PTAGF 

IPTAGT 

IPTFLG 

IPTAQ  1 
IPTAQF 
IPTAQT 
IPTFLQ 
IRESRV 
IRNGF 

ISANT 
I  SAVE 


locaCion  in  CM  for  submacrix  D 
flag  Co  select  the  extended  thin-wire  kernel 
input  integer  flag  specifying  type  of  field 
calculation  and  type  of  ground  system  in  far  field 
(RP  card) 

integer  flag  used  to  distinguish  various  input 
sections 

input  integer  flag  specifying  type  of  frequency 
stepping  (FR  card) 

integer  to  indicate  stage  of  completion  of  the 
solution 

incident  field  loop  index 

input  integer  flag  used  for  normalized  gain  request 
(RP  card) 

input  integer  flag  selects  gain  type  for 
normalization  (RP  card) 

input  integer  flag  used  for  impedance  normalization 
request  (EX  card) 

input  integer  for  print  control  equal  to  segment  tag 
number  (PT  card) 

input  integer  for  print  control  specifying  segment 
placement  in  a  set  of  equal  tags  (PT  card) 
same  function  as  IPTAGF  (input,  PT  card) 
input  integer  flag  specifying  type  of  print  control 
(PT  card) 

same  as  above  four  variables  but  for  PQ  card 


length  of  array  CM  in  complex  numbers 

storage  in  array  CM  that  is  reserved  for  later  use 

when  a  NGF  file  is  written 

array  of  segment  numbers  for  voltage  sources 
segment  number  for  normalized  receiving  pattern 
calculation 

$ 
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main 


ISEG1  (I) 

ISEG2  (I) 

ITMP1  to  ITMP5 

IX 

1X11 

IXTYP 

KCOM 

LDTAG 

LDTAGF 


LDTAGT 

LDTYP 

LOADMX 

MASYM 

MHZ 

MPCNT 

NCOUP 

NCSEG 

NCTAG 

d 

NEAR 

NEQ 

NEQ2 

NETMX 

NFEH 

NFRQ 

NONET 

NORMF 

NPHI 

NPHIC 

NPRINT 


NRX 
NRY 
NRZ 
NSANT 


NSMAX 


segment  numbers  of  end  1  and  end  2  of  the  i 
network  connection 
temporary  storage 

array  for  matrix  pivot  element  information 
location  in  CM  of  the  start  of  an  array  in  the  NGF 
solution 

excitation  type  from  EX  card 
number  of  comment  cards  read 
tag  number  of  loaded  segment 

number  of  first  loaded  segment  in  set  of  segments 
having  given  tag 
last  loaded  segment 
loading  type 

maximum  number  of  loading  cards 

flag  to  request  matrix  asymmetry  calculation 

frequency  loop  index 

counter  for  data  cards 

number  of  excitation  points  for  coupling  calculation 
excitation  segment  for  coupling  calculation 

increment  option  for  near  field  points 
order  of  the  primary  interaction  matrix 
number  of  new  unknowns  in  NGF  mode 
maximum  number  of  network  data  cards 
0  for  near  E  field,  1  for  near  H 
number  of  frequency  steps 
number  of  network  data  cards 
dimension  of  FNORM 

number  of  phi  steps  in  incident  field 
loop  index  for  phi  in  incident  field 
print  control  flag  for  subroutine  NETWK 

number  of  steps  in  near  field  evaluation  loops 

number  of  voltage  sources 
maximum  number  of  voltage  sources 
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MAIN 


NTHI 

NTHIC 

PH 

PHISS 

PIN 


PLOSS 

PNET 

RFLO 

RKH 

SCRWLT 

SCRw'RT 

SIG 

SIG2 

TA 

THETIS 

THETS 

TIM 

TMPI  Co 
XPRI  to 

ZLC 

ZLI 

ZLR 

ZPNORM 

CONSTANTS 

l.E-20 


TMP6 

XPR6 


number  of  cheta  seeps  in  incident  field 

loop  index  for  checa  in  incidenc  field 

phase  angle  of  currenc  or  charge  (degrees) 

inicial  <j>  value  for  incidenc  field 

P^n  ■  coCal  power  supplied  Co  a  scrucCure  by  all 

volcage  sources  (I  Re(VI*)/2).  For  a  HerCzian 

2 

dipole  source  P.  -  nC n/3)  I  iJt/X  I  . 
in 

power  lose  in  distribuCed  and  poinC  scrucCure  loads 
in  waccs 

array  conCains  Hollerich  transmission  line  type 
if  non-zero,  equal  Co  inpuC  far-field  observation 
distance  in  meters 

minimum  separation  for  use  of  approximate 
interaction  equations 

input  length  of  radials  in  radial  wire  screen  (GN 
card)  in  meters 

radius  of  wires  in  radial  wire  ground  screen  in 
meters 

conductivity  of  ground  (a  in  mhos/meter  on  GN  card) 
conductivity  of  second  medium  in  mhos/meter  (GN  and 
GD  card) 
it/180 

initial  6  for  incident  field 
initial  0  for  radiated  field 
matrix  computation  time  (seconds) 
temporary  input  variables 

input  quantities  for  incident  field  or  Hertzian 
dipole  illumination 


input  quantities  for  loading 
impedance  normalization  quantity 


used  as  small  value  test 
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MAIN 


1. 745329252 
2  367.067 
59.96 
299.8 


ir/180 

2irr\) 

l/(2Trce  ) 
c/106 


MAIN 


1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
56 

59 

60 
61 
62 
63 


PROGRAM  NEC( INPUT. TAPE5=INPUT, OUTPUT. TAPE11 , TAPE1 2 . TAPE1 3 .TAPE1 4 . 
1 TAPE15 . TAPE16 . 7APE20 . TAPE21 ) 

NUMERICAL  ELECTROMAGNETICS  CODE  (NEC2)  DEVELOPED  AT  LAWRENCE 
LIVERMORE  LAB..  LIVERMORE.  CA.  (CONTACT  G.  BURKE,  415-422-8414) 
FILE  CREATED  4/11/80. 


. NOTICE**** . 

THIS  COMPUTER  CODE  MATERIAL  WAS  PREPARED  AS  AN  ACCOUNT  OF  WORK 
SPONSORED  BY  THE  UNITED  STATES  GOVERNMENT.  NEITHER  THE  UNITED 
STATES  NOR  THE  UNITED  STATES  DEPARTMENT  OF  ENERGY,  NOR  ANY  OF 
THEIR  EMPLOYEES.  NOR  ANY  OF  THEIR  CONTRACTORS.  SUBCONTRACTORS.  OR 
THEIR  EMPLOYEES.  MAKES  ANY  WARRANTY,  EXPRESS  OR  IMPLIED,  OR 
ASSUMES  ANY  LEGAL  LIABILITY  OR  RESPONSIBILITY  FOR  THE  ACCURACY, 
COMPLETENESS  OR  USEFULNESS  OF  ANY  INFORMATION.  APPARATUS.  PRODUCT 
OR  PROCESS  DISCLOSED.  OR  REPRESENTS  THAT  ITS  USE  WOULD  NOT 
INFRINGE  PRIVATELY-OWED  RIGHTS. 

INTEGER  AIN.ATST.PNET.HPOL 

COMPLEX  CM . F  J . VSANT . ETH . EPH . 2RATI . CUR . CURI . ZARRAY . ZRATI2 
COMPLEX  EX , EY , EZ . ZPED , VQD , VQDS , T 1 ,Y1 1A.Y12A.EPSC.U.U2.XX1 , XX2 
COMPLEX  AR1 .AR2.AR3.EPSCF.FRATI 

COMMON  /DATA/  LD.N1 . N2.N.NP.M1 ,M2 , M ,MP . X ( 300 ) ,Y(300) , Z(300) , 

1 S I ( 300 ) . BI ( 300 ) . ALP ( 300 ) . B  E  T ( 300 ) , ICON 1(300). IC0N2 ( 300 ) . 

2ITAG(300) ,ICONX(300) .WLAM.IPSYM 
COMMON  /CMB/CM(4000) 

COMMON  /MATPAR/  ICASE . NBLOKS , NPBLK , NLAST , NBLS YM . NPSYM . NLSYM , IMAT , 

1 1CASX . NBBX , NPBX . NLBX . NBBL . NPBL . NLBL 

COMMON/SAVE/IP( 600 ) . KCOM . COM( 13,5), EPSR , SIG . SCRWLT , SCRWRT . FMHZ 
COMMON  /CRNT/  AIR(300) ,AII(300) ,BIR(300) ,BII(300) ,CIR(300) , 

1  CII(300) ,CUR(900) 

COMMON  /GND/ZRATI . ZRATI2 . FRATI . CL . CH . SCRWL . SCRWR . NRADL . KSYMP , IFAR . 
1IPERF.T1 , T2 

COMMON  /ZLOAO/  ZARRAY(300) .NLOAD.NLODF 

COMMON/YPARM/NCOUP . ICOUP , NCTAG( 5 ) , NCSEG ( 5 ) . Y 1 1 A( 5 ) , Y 1 2A ( 20 ) 

COMMON  /SEGJ/  AX(30) . BX(30) ,CX(30) , JCO(30) , JSNO . ISC0N(50) .NSCON . 

1 IPCON( 1 0) .NPCON 

COMMON ASORC ADD ( 30 )  .  VSANT ( 30 )  .  VQDS ( 30 )  ,  IVQD(  30 ) ,  ISANT (  30 ) . 

1 IQDS( 30) . NVQO . NS ANT . NODS 

COMMON/NETCX/ZPED . PIN . PNLS . NEQ . NPEQ . NEQ2 . NONET , NTSOL , NPRINT , 
1MASYM.ISEG1 (30) , ISEG2(30) . X1 1 R(30) , X1 11(30) ,X12R(30)  . XI 21(30)  . 

1 X22R(30) , X22I( 30) ,NTYP( 30) 

COMMON/FPAT/NTH ,NPH . IPD . IAVP . INOR , IAX , THETS . PHIS . DTH , DPH . 

1 RFLD . GNOR.CLT, CHT , EPSR2 . SIG2 . IXTYP , XPR6 , PINR , PNLR , PLOSS , 

1  NEAR . NFEH , NRX . NRY .NRZ.XNR, YNR , ZNR , DXNR , DYNR , DZNR 
COMMON  /GGRID/  AR 1(11 ,10,4) , AR2( 17 ,5,4) , AR3(9 ,8.4), EPSCF ,DXA(3) , 

1 DYA(3) , XSA(3 ) , YSA(3) ,NXA(3) ,NYA(3) 

COMMON/GWAV/U , U2 , XX 1 .XX2.R1 . R2.ZMH.ZPH 
DIMENSION  CAB(  1  )  .  SAB(  1  )  . X2(  1  )'.  Y2(  1  )  ,  Z2(  1  ) 

DIMENSION  LDTYP(30) , LDTAG(30) ,LDTAGF(30) ,LDTAGT(30) ,ZLR(30) . 
1ZLI(30) ,ZLC(30) 

DIMENSION  ATST(21 ) ,PNET(6) ,HPOL( 3) . IX( 600) 

DIMENSION  FN0RM(200) 

DIMENSION  T1X(1),T1Y(1),T1Z(1).T2X(1),T2Y(1),T2Z(1) 

EQUIVALENCE  (CAB. ALP) . (SAB . BET) . ( X2 . SI) . (Y2 .ALP) . (Z2.BET) 
EQUIVALENCE  ( T1 X , SI) , ( T1 Y . ALP) . (T1 Z . BET) . ( T2X . IC0N1 ) . ( T2Y . IC0N2) . 

1  (T2Z.ITAG) 

DATA  ATST/2HCE , 2HFR . 2HLD . 2HGN , 2HEX , 2HNT . 2HXQ . 2HNE , 2HGD , 2HRP , 2HCM , 

1  2HNX . 2HEN , 2HTL, 2HPT . 2HKH , 2HNH . 2HPQ . 2HEK , 2HWG , 2HCP/ 

OATA  HP0L/6HLINEAR . 5HRIGHT . 4HLEFT/ 

DATA  PNET/6H  ,2H  . 6HSTRAIG . 2HHT , 6HCR0SSE . 1  HD/ 

DATA  TA/1 . 745329252E-02/, CVEL/299 . 8/ 

DATA  LOADMX , NSMAX . NETMX/30 , 30 . 30/. NORMF/200/ 
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MA 

1 

MA 

2 

MA 

3 

MA 

4 

MA 

5 

MA 

6 

MA 

7 

MA 

8 

MA 

9 

MA 

10 

MA 

11 

MA 

12 

MA 

13 

MA 

14 

MA 

15 

MA 

16 

MA 

17 

MA 

18 

MA 

19 

MA 

20 

MA 

21 

MA 

22 

MA 

23 

MA 

24 

MA 

25 

MA 

26 

MA 

27 

MA 

28 

MA 

29 

MA 

30 

MA 

31 

MA 

32 

MA 

33 

MA 

34 

MA 

35 

MA 

36 

MA 

37 

MA 

38 

MA 

39 

MA 

40 

MA 

41 

MA 

42 

MA 

43 

MA 

44 

MA 

45 

MA 

46 

MA 

47 

MA 

48 

MA 

49 

MA 

50 

MA 

51 

MA 

52 

MA 

53 

MA 

54 

MA 

55 

MA 

56 

MA 

57 

MA 

58 

MA 

59 

MA 

60 

MA 

61 

MA 

62 

MA 

63 

MAIN 


<4 

CALL  SECOND(EXTXM) 

MA 

64 

■ 

65 

fj*(o..i.) 

MA  65 

mm 

66 

L 0=300 

MA 

66 

B 

67 

NXA( 1 )=0 

MA 

67 

68 

IRESRV=4000 

MA  68 

69 

1 

KCOMaO 

MA 

69 

1 

70 

2 

KC0M=KC0M+1 

MA 

70 

71 

IF  (KCOM.GT .5)  KC0M=5 

MA  71 

72 

REA0(5.125)AIN.(C0M(I.KC0M).I=1 .13) 

MA 

72 

73 

IF( KCOM.GT. 1 )G0  TO  3 

MA 

73 

74 

PRINT  126 

MA  74 

a 

75 

PRINT  127 

MA 

75 

a 

76 

PRINT  128 

MA 

76 

M 

77 

3 

PRINT  129.  (COM(I.KCOM) ,1=1 . 13) 

MA  77 

■ 

78 

IF  (AIN.EQ.ATST(II))  GO  TO  2 

MA 

78 

79 

IF  (AIN.EQ.ATST(I))  GO  TO  4 

MA  79 

1 

80 

PRINT  130 

MA 

80 

K 

81 

STOP 

MA  81 

>3 

82 

4 

CONTINUE 

MA  82 

83 

00  5  1=1 .LD 

MA  83 

84 

5 

ZARRAY( I)=(0 . ,0 . ) 

MA  84 

39 

85 

MPCNT=0 

MA  85 

m 

86 

XMAT=0 

MA  86 

m 

87 

C 

MA 

87 

■ 

88 

C 

SET  UP  GEOMETRY  OATA  IN  SUBROUTINE  OATAGN 

MA  88 

w. 

89 

c 

MA 

89 

'M 

90 

CALL  OATAGN 

MA  90 

m 

91 

IFL0W=1 

MA  91 

sol 

92 

IF ( IMAT . EQ . 0 ) GO  TO  326 

MA  92 

m 

93 

c 

MA  93 

m 

94 

c 

CORE  ALLOCATION  FOR  ARRAYS  B,  C,  ANO  0  FOR  N.G.F.  SOLUTION 

MA 

94 

m 

95 

c 

MA 

95 

1 

96 

NEQ=N1+2*M1 

MA 

96 

97 

NEQ2=N-N 1 +2 • (M-M 1 ) +NSC0N+2 • NPCON 

MA 

97 

m 

98 

CALL  FBNGF ( NEQ , NEQ2 , IRESRV ,1811 , IC1 1 ,1011,1X11) 

MA  98 

■ 

99 

GO  TO  6 

MA  99 

100 

326 

NEQ=N+2*M 

MA  100 

q79 

101 

NEQ2=0 

MA  101 

102 

IB1 1=1 

MA  102 

$ 

103 

IC1 1=1 

MA  103 

104 

1011=1 

MA  104 

U 

105 

1X11=1 

MA  105 

106 

ICASX=0 

MA  106 

■^3 

107 

6 

NP  EQ=NP+2  *MP 

MA  107 

i 

108 

PRINT  135 

MA  108 

109 

C 

MA  109 

■ 

110 

c 

DEFAULT  VALUES  FOR  INPUT  PARAMETERS  AND  FLAGS 

MA  110 

111 

c 

MA  111 

112 

IG0=1 

MA  1  12 

■ 

113 

FMHZS=CVEL 

MA  113 

114 

NFRQ=1 

MA  1  14 

115 

RKH=1 . 

MA  1  15 

1 

116 

IEXK=0 

MA  1  16 

m 

117 

IXTYP=0 

MA  117 

118 

NLOA0=0 

MA  118 

a 

119 

N0NET=0 

MA  119 

120 

NEAR=-1 

MA  120 

■ 

121 

IPTFLG=-2 

MA  121 

■ 

122 

IPTFLQ=-1 

MA  122 

123 

IFAR*-1 

MA  123 

■ 

124 

ZRATI=( 1 . ,0.) 

MA  124 

125 

IPED=0 

MA  125 

B 

126 

IRNGFsO 

MA  126 

127 

NC0UP=0 

MA  127 

a 

128  ICOURsO  MA  128 

129  IF(ICASX.GT.O)GO  TO  14  MA  129 

130  FMHZ=CVEL  MA  130 

131  NL0DF=0  MA  131 

132  KSYMP=1  MA  132 

133  NRADL=0  MA  133 

134  IPERF=0  MA  134 

135  C  MA  135 

138  C  MAIN  INPUT  SECTION  -  STANDARD  READ  STATEMENT  -  JUMPS  TO  APPRO-  MA  136 

137  C  PRIATE  SECTION  FOR  SPECIFIC  PARAMETER  SET  UP  MA  137 

138  C  MA  138 

139  14  READ( 5 , 1 36 ) AIN , ITMP 1 , ITMP2 , ITMP3 , ITMP4 , TMP 1 , TMP2 , TMP3 , TMP4 , TMP5 ,  MA  139 

140  1TMP6  MA  140 

141  MPCNT=MPCNT+1  MA  141 

142  PRINT  137,  MPCNT, AIN. ITMP1 , ITMP2 . ITMP3.ITMP4. TMP1 , TMP2 . TMP3 , TMP4,  MA  142 

143  1TMP5.TMP6  MA  143 

144  IF  ( AIN . EQ . ATST ( 2 ) )  GO  TO  16  MA  144 

145  IF  (AIN. EQ.ATST(3) )  GO  TO  17  MA  145 

146  IF  (AIN . EQ . ATST ( 4) )  GO  TO  21  MA  146 

147  IF  (AIN. EQ.ATST(5) )  GO  TO  24  MA  147 

148  IF  (AIN. EQ. ATST(6) )  GO  TO  28  MA  148 

149  IF  (AIN.EQ.ATST(14))  GO  TO  28  MA  149 

150  IF  (AIN . EQ. ATST( 1 5) )  GO  TO  31  MA  150 

151  IF  (AIN.EQ.ATST(18))  GO  TO  319  MA  151 

152  IF  ( AIN . EQ . ATST( 7 ) )  GO  TO  37  MA  152 

153  IF  (AIN . EQ . ATST ( 8 ) )  GO  TO  32  MA  153 

154  IF  (AIN . EQ . ATST( 1 7) )  GO  TO  208  MA  154 

155  IF  ( AIN . EQ . ATST( 9 ) )  GO  TO  34  MA  155 

156  IF  (AIN.EQ.ATST(IO))  GO  TO  36  MA  156 

157  IF  (AIN . EQ . ATST( 16))  GO  TO  305  MA  157 

158  IF  (AIN . EQ. ATST( 19))  GO  TO  320  MA  158 

159  IF  (AIN.EQ.ATST(12))  GO  TO  1  MA  159 

160  IF  (AIN . EQ. ATST(20) )  GO  TO  322  MA  160 

161  •  IF  (AIN. EQ . ATST(21 ) )  GO  TO  304  MA  161 

162  IF  (AIN.NE.ATST(13))  GO  TO  15  MA  162 

163  CALL  SECOND(TMPI)  MA  1 63 

164  TMPIaTMPI-EXTIM  MA  164 

165  PRINT  201. TMP 1  MA  165 

166  STOP  MA  166 

167  15  PRINT  138  MA  167 

168  STOP  MA  168 

169  C  MA  169 

170  C  FREQUENCY  PARAMETERS  MA  170 

171  C  MA  171 

172  16  IFRQ=ITMP1  MA  172 

173  IF ( ICASX . EQ . 0)GO  TO  8  MA  173 

174  PRINT  303. AIN  MA  174 

175  STOP  MA  175 

176  8  NFRQ-ITMP2  MA  176 

177  IF  (NFRQ.EQ.O)  NFRQ=1  MA  177 

178  FMHZ=TMP1  MA  178 

179  DELFRQ=TMP2  MA  179 

180  IF(IPED. EQ. 1 )ZPN0RM=0.  MA  180 

181  IG0=1  MA  181 

182  IFL0W=1  MA  182 

183  GO  TO  14  MA  183 

184  C  MA  184 

185  C  MATRIX  INTEGRATION  LIMIT  MA  185 

186  C  MA  186 

187  305  RKHsTMPI  MA  187 

188  IF(IGO.GT.2)IGO=2  MA  188 

189  IFL0W=1  MA  189 

190  GO  TO  14  MA  190 


MAIN 


192  C 

EXTENDED  THIN  WIRE  KERNEL  OPTION 

MA 

192 

193  C 

MA 

193 

194  320 

IEXK=1 

MA 

194 

195 

IF(ITMPl.EQ.-1)IEXK=0 

MA 

195 

196 

IF(IGO.GT.2)IGO=2 

MA 

196 

197 

IFL0W=1 

MA 

197 

198 

GO  TO  14 

MA 

198 

199  C 

MA 

199 

200  C 

MAXIMUM  COUPLING  BETWEEN  ANTENNAS 

MA 

200 

201  C 

MA 

201 

202  304 

IF(IFLOW.NE.2)NCOUP=0 

MA 

202 

203 

ICOUP=0 

MA 

203 

204 

IFL0W*2 

MA 

204 

205 

IF(ITMP2 . EQ. 0)GO  TO  14 

MA 

205 

206 

NCOUP-NCOUP+1 

MA 

206 

207 

IF ( NCOUP . GT . 5 ) GO  TO  312 

MA 

207 

208 

NCTAG(NCOUP)=ITMP1 

MA 

208 

209 

NCS  EG ( NCOUP ) =1 TMP2 

MA 

209 

210 

IF(ITMP4.EQ.O)GO  TO  14 

MA 

210 

211 

NCOUP=NCOUP+1 

MA 

21 1 

212 

IF (NCOUP . GT .5)GO  TO  312 

MA 

212 

213 

NCTAG( NCOUP )=ITMP3 

MA 

213 

214 

NCSEG(NC0UP)=ITMP4 

MA 

214 

215 

GO  TO  14 

MA 

215 

216  312 

PRINT  313 

MA 

216 

217 

STOP 

MA 

217 

218  C 

MA 

218 

219  C 

LOAOING  PARAMETERS 

MA 

219 

220  C 

MA 

220 

221  17 

IF  (IFL0W.EQ.3)  GO  TO  18 

MA 

221 

222 

NLOAD=0 

MA 

222 

223 

IFL0W=3 

MA 

223 

224 

IF  (IG0.GT.2)  IG0=2 

MA 

224 

225 

IF  (ITMP1 . EQ. (-1 ) )  GO  TO  14 

MA 

225 

226  18 

NL0AD=NL0AD+1 

MA 

226 

227 

IF  (NLOAD . LE . LOADMX)  GO  TO  19 

MA 

227 

228 

PRINT  139 

MA 

228 

229 

STOP 

MA 

229 

230  19 

LDTYP( NLOAD )=ITMP1 

MA 

230 

231 

LDTAG( NLOAD )=ITMP2 

MA 

231 

232 

IF  (ITMP4.EQ.0)  ITMP4=ITMP3 

MA 

232 

233 

LDTAGF(NL0AD)=ITMP3 

MA 

233 

234 

LDTAGT(NL0AD)=ITMP4 

MA 

234 

235 

IF  ( ITMP4 . GE . ITMP3 )  GO  TO  20 

MA 

235 

236 

PRINT  140,  NLOAD. ITMP3.ITMP4 

MA 

236 

237 

STOP 

MA 

237 

238  20 

ZLR( NLOAD )=TMP1 

MA 

238 

239 

ZLI(NL0AD)=TMP2 

MA 

239 

240 

ZLC(NL0AD)=TMP3 

MA 

240 

241 

GO  TO  14 

MA 

241 

242  C 

MA 

242 

243  C 

GROUND  PARAMETERS  UNDER  THE  ANTENNA 

MA 

243 

244  C 

MA 

244 

245  21 

IFL0W=4 

MA 

245 

246 

IF(ICASX . EQ . 0)GO  TO  10 

MA 

246 

247 

PRINT  303, AIN 

MA 

247 

248 

STOP 

MA 

248 

249  10 

IF  (IG0.GT.2)  IG0=2 

MA 

249 

250 

IF  (TTMP1 .NE. (-1 ))  GO  TO  22 

MA 

250 

251 

KSYMP=1 

MA 

251 

252 

NRADL=0 

MA 

252 

253 

IPERF*0 

MA 

253 

254 

GO  TO  14 

MA 

254 

255  22 

IPERF*ITMP1 

MA 

255 
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256 

NRADL=ITMP2 

MA 

256 

237 

KSYMP=2 

MA 

257 

238 

EPSRsTMPI 

MA 

258 

239 

SIG=TMP2 

MA 

259 

260 

IF  (NRA0L.EQ.0)  GO  TO  23 

MA 

260 

261 

IF( IPERF .NE . 2)G0  TO  314 

MA 

261 

262 

PRINT  390 

MA 

262 

263 

STOP 

MA 

263 

264  314 

SCRWLT*TMP3 

MA 

264 

265 

SCRWRT=TMP4 

MA 

265 

266 

GO  TO  14 

MA 

266 

267  23 

EPSR2*TMP3 

MA 

267 

268 

SIG2=TMP4 

MA 

268 

269 

CLT*TMP3 

MA 

269 

270 

CHT=TMP6 

MA 

270 

271 

GO  TO  14 

MA 

271 

272  C 

MA 

272 

273  C 

EXCITATION  PARAMETERS 

MA 

273 

274  C 

MA 

274 

273  24 

IF  (IFL0W.EQ.5)  GO  TO  25 

MA 

275 

276 

NSANTsO 

MA 

276 

277 

NVQD=0 

MA 

277 

278 

IPED=0 

MA 

278 

279 

IFL0W=5 

MA 

279 

280 

IF  (I00.GT.3)  IGO=3 

MA 

280 

281  25 

MASYM=ITMP4/10 

MA 

281 

282 

IF  (ITMP1 .GT.0.AND.ITMP1 .NE.5) 

GO  TO  27 

MA 

282 

283 

IXTYP=ITMP1 

MA 

283 

284 

NTS0L=0 

MA 

284 

285 

IF( IXTYP . EQ .0)GO  TO  205 

MA 

285 

286 

NVQD=NVQD+1 

MA 

286 

287 

IF ( NVQO . GT . NSMAX ) GO  TO  206 

MA 

287 

288 

IVQD(NVQO)=ISEGNO( ITMP2 . ITMP3) 

MA 

288 

289 

VQD(NVQ0)=CMPLX(TMP1 ,TMP2) 

MA 

289 

290 

IF(CABS(VQD(NVQD)).LT.1 . E-20)VQD(NV0D)=( 1 . ,0.) 

MA 

290 

291 

GO  TO  207 

MA 

291 

292  203 

NSANT=NSANT+1 

MA 

292 

293 

IF  (NSANT.LE. NSMAX)  GO  TO  26 

MA 

293 

294  206 

PRINT  141 

MA 

294 

295 

STOP 

MA 

295 

296  26 

ISANT(NSANT)=sISEGNO(ITMP2.ITMP3) 

MA 

296 

297 

VSANT(NSANT)=CMPLX( TMP1  ,TMP2) 

MA 

297 

298 

IF  (CABS(VSANT(NSANT) ) . LT . 1 . E— 20)  VSANT(NSANT)=( 1 . , 0 . ) 

MA 

298 

299  207 

IPE0=ITMP4-MASYM* 1 0 

MA 

299 

300 

ZPNORM=TMP3 

MA 

300 

301 

IF  (IPED. EQ. 1 . AND. ZPNORM.GT .0) 

IPED=2 

MA 

301 

302 

GO  TO  14 

MA 

302 

303  27 

IF  (IXTYP. EQ.O. OR. IXTYP. EQ. 5) 

NTSOL=0 

MA 

303 

304 

IXTYP=ITMP1 

MA 

304 

305 

NTHI=ITMP2 

MA 

305 

306 

NPHI=ITMP3 

MA 

306 

307 

XPR1=TMP1 

MA 

307 

308 

XPR2=TMP2 

MA 

308 

309 

XPR3=TMP3 

MA 

309 

310 

XPR4=TMP4 

MA 

310 

311 

XPR5=TMP5 

MA 

31 1 

312 

XPR6*TMP6 

MA 

312 

313 

NSANTsO 

MA 

313 

314 

NVQD=0 

MA 

314 

313 

THETIS=XPR1 

MA 

315 

316 

PHISS=XPR2 

MA 

316 

317 

GO  TO  14 

MA 

317 

318  C 

MA 

318 

319  C 

NETWORK  PARAMETERS 

MA 

319 
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MAIN 


320  C 

MA  320 

321  28 

IF  ( IFLOW. EQ .6)  GO  TO  29 

MA  321 

322 

NONETsO 

MA  322 

323 

NTSOLsO 

MA  323 

324 

IFL0W=6 

MA  324 

325 

IF  (IG0.GT.3)  IG0=3 

MA  325 

326 

IF  (ITMP2 . EQ. (-1 ) )  GO  TO  14 

MA  326 

327  29 

N0NET=N0NET+1 

MA  327 

328 

IF  (NONET. LE.NETMX)  GO  TO  30 

MA  328 

329 

PRINT  142 

MA  329 

330 

STOP 

MA  330 

331  30 

NTYP(N0NET)=2 

MA  331 

332 

IF  (AIN.EQ.ATST(6))  NTYP(N0NET)=1 

MA  332 

333 

ISEG1 (N0NET)=ISEGN0(ITMP1 , ITMP2) 

MA  333 

334 

IS  EG2 ( NONE  T ) =IS  EGNO (ITMP3 , ITMP4) 

MA  334 

335 

XI 1R(N0NET)=TMP1 

MA  335 

336 

XI 1I(N0NET)=TMP2 

MA  336 

337 

X12R(NONET)=TMP3 

MA  337 

338 

XI 2I(N0NET)=TMP4 

MA  338 

339 

x22R(no;:et)=tmps 

MA  339 

340 

X22I(NONET)=TMP6 

MA  340 

341 

IF  ( NTYP( NONET ).E0.1 .0R.TMP1 .GT.O.)  GO  TO  14 

MA  341 

342 

NTYP(N0NET)=3 

MA  342 

343 

XI 1 R(N0NET)=-TMP1 

MA  3*:  3 

344 

GO  TO  14 

MA  344 

345  C 

MA  345 

346  C 

PRINT  CONTROL  FOR  CURRENT 

MA  346 

347  C 

MA  347 

348  31 

IPTFLG=ITMP1 

MA  348 

349 

IPTAG=ITMP2 

MA  349 

350 

IPTAGF=ITMP3 

• 

MA  350 

351 

IPTAGT=ITMP4 

MA  351 

352 

IF( ITMP3 . EQ . 0 . AND . IPTFLG . NE . -1 ) IPTFLG=-2 

MA  352 

353 

IF  (ITMP4. EQ.O)  IPTAGT=IPTAGF 

MA  353 

354 

GO  TO  14 

MA  354 

355  C 

MA  355 

356  C 

PRINT  CONTROL  FOR  CHARGE 

MA  356 

357  C 

MA  357 

358  319 

IPTFLQ=ITMP1 

MA  358 

359 

IPTAQ=ITMP2 

MA  359 

360 

IPTAQF=ITMP3 

MA  360 

361 

IPTA0T=ITMP4 

MA  361 

362 

IF( ITMP3 . EQ . 0 . AND . IPTFLQ . NE . -1 ) IPTFLQ=-2 

MA  362 

363 

IF ( ITMP4 .EQ.O) IPTAQT=IPTAQF 

MA  363 

364 

GO  TO  14 

MA  364 

365  C 

MA  365 

366  C 

NEAR  FIELD  CALCULATION  PARAMETERS 

MA  366 

367  C 

MA  367 

368  208 

NFEH=1 

MA  368 

369 

GO  TO  209 

MA  369 

370  32 

NFEH=0 

MA  370 

371  209 

IF  ( . NOT . ( IFLOW. EQ . 8 . AND . NFRQ . NE . 1 ) )  GO  TO  33 

MA  371 

'372 

PRINT  143 

MA  372 

373  33 

NEAR=ITMP1 

MA  373 

374 

NRX=ITMP2 

MA  374 

375 

NRY=ITMP3 

MA  375 

376 

NRZ=ITMP4 

MA  376 

377 

XNR=TMP1 

MA  377 

378 

YNR=TMP2 

MA  378 

379 

ZNR=TMP3 

MA  379 

380 

DXNRsTMP4 

MA  380 

381 

DYNRaTMP5 

MA  381 

382 

DZNR»TMP6 

MA  382 

383 

IFLOW-8 

MA  383 
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384. 

IF  (NFRQ.NE.1 )  GO  TO  14 

MA 

384 

38S 

GO  TO  (41,46.53,71.72).  IG0 

MA 

385 

386 

C 

MA 

386 

387 

C 

GROUND  REPRESENTATION 

MA 

387 

388 

C 

MA 

388 

389 

34 

EPSR2=TMP1 

MA 

389 

390 

SIG2=TMP2 

MA 

390 

391 

CLT=TMP3 

MA 

391 

392 

CHT=TMP4 

MA 

392 

393 

IFLOW=9 

MA 

393 

394 

GO  TO  14 

MA 

394 

395 

C 

MA 

395 

396 

C 

STANDARD  OBSERVATION  ANGLE  PARAMETERS 

MA 

396 

397 

c 

MA 

397 

398 

36 

IFAR=ITMP1 

MA 

398 

399 

NTH=ITMP2 

MA 

399 

400 

NPH=ITMP3 

MA 

400 

401 

IF  (NTH.EQ.0)  NTH=1 

MA 

401 

402 

IF  (NPH.EQ.0)  NPH=1 

MA 

402 

403 

IPD=ITMP4/1 0 

MA 

403 

404 

IAVP=ITMP4— IPD* 1 0 

MA 

404 

405 

IN0R=IPD/1 0 

MA 

405 

406 

IPD=IP0-INOR* 1 0 

MA 

406 

407 

IAX=IN0R/10 

MA 

407 

408 

INOR=INOR-IAX* 1 0 

MA 

408 

409 

IF  (IAX.NE.0)  IAX=1 

MA 

409 

410 

IF  (IPD.NE.0)  IPD=1 

MA 

410 

41  1 

IF  (NTH. LT. 2. 0R.NPH.LT. 2)  IAVP=0 

MA 

41  1 

412 

IF  (IFAR.E0.1)  IAVP=0 

MA 

412 

413 

THETS=TMP1 

MA 

413 

414 

PHIS=TMP2 

MA 

414 

415 

DTH=TMP3 

MA 

415 

416 

DPH=TMP4 

MA 

416 

417 

RFLD=TMP5 

MA 

417 

418 

GN0R=TMP6 

MA 

418 

419 

IFL0W=1 0 

MA 

419 

420 

GO  TO  (41.46.53.71.78).  IGO 

MA 

420 

421 

C 

MA 

421 

422 

c 

WRITE  NUMERICAL  GREEN'S  FUNCTION  TAPE 

MA 

422 

423 

c 

MA 

423 

424 

322 

IFLOW=1 2 

MA 

424 

425 

IF( ICASX .  EQ . 0)GO  TO  301 

MA 

425 

426 

PRINT  302 

MA 

426 

427 

STOP 

MA 

427 

428 

301 

IRNGF=IRESRV/2 

MA 

428 

429 

GO  TO  (41 .46,52.52,52) .IGO 

MA 

429 

430 

C 

MA 

430 

431 

C 

EXECUTE  CARD  -  CALC.  INCLUDING  RADIATED  FIELDS 

MA 

431 

432 

C 

MA 

432 

433 

37 

IF  ( IF LOW. EO . 1 0 . AND . ITMP1 . EO . 0 )  GO  TO  14 

MA 

433 

434 

IF  (NFRQ.EQ.1 .AND.ITMP1 . EO . 0 . AND . IFLOW. GT . 7 )  GO  TO  14 

MA 

434 

435 

IF  ( ITMP1 . NE . 0)  GO  TO  39 

MA 

435 

436 

IF  (IFLOW. GT. 7)  GO  TO  38 

MA 

436 

437 

IFLOW=7 

MA 

437 

438 

GO  TO  40 

MA 

438 

439 

38 

IFL0W=1 1 

MA 

439 

440 

GO  TO  40 

MA 

440 

441 

39 

IFAR=0 

MA 

441 

442 

RFLD=0 

MA 

442 

443 

IP  0=0 

MA 

443 

444 

IAVP=0 

MA 

444 

445 

INOR=0 

MA 

445 

446 

IAX=0 

MA 

446 

447 

NTH=91 

MA 

447 
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MAIN 
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448 

NPH=1 

MA 

448 

449 

THETS=0. 

MA 

449 

4S0 

PHIS=0. 

MA 

450 

4S1 

OTHsI . 0 

MA 

451 

4S2 

DPH=0. 

MA 

452 

453 

IF  (ITMP1.EQ.2)  PHIS=90 . 

MA 

453 

454 

IF  (ITMP1 .NE.3)  GO  TO  40 

MA 

454 

455 

NPH=2 

MA 

455 

456 

DPH=90 . 

MA 

456 

457  40 

GO  TO  (41.48,53,71,78).  IGO 

MA 

457 

458  C 

MA 

458 

459  C 

END  OF  THE  MAIN  INPUT  SECTION 

MA 

459 

460  C 

MA 

460 

461  C 

BEGINNING  OF  THE  FREQUENCY  DO  LOOP 

MA 

461 

462  C 

MA 

462 

463  41 

MHZ=1 

MA 

463 

464  C 

CORE  ALLOCATION  FOR  PRIMARY  INTERACTON  MATRIX.  (A) 

MA 

464 

465 

IF( IMAT . EQ . 0)CALL  FBLOCK( NPEQ , NEQ . IRESRV , IRNGF , IPSYM) 

MA 

465 

466  42 

IF  (MHZ.EQ.1)  GO  TO  44 

MA 

466 

467 

IF  (IFRQ.EQ. 1 )  GO  TO  43 

MA 

467 

468 

FMHZ=FMHZ+DELFRQ 

MA 

468 

469 

GO  TO  44 

MA 

469 

470  43 

FMHZ=FMHZ*DELFRQ 

MA 

470 

471  44 

FR=FMHZ/FMHZS 

MA 

471 

472 

WLAM=CVEL/FMHZ 

MA 

472 

473 

PRINT  145,  FMHZ.WLAM 

MA 

473 

474 

PRINT  196.RKH 

MA 

474 

475 

IF(IEXK. EQ. 1 )PRINT  321 

MA 

475 

476  C 

FREQUENCY  SCALING  OF  GEOMETRIC  PARAMETERS 

MA 

476 

477 

FMHZS=FMHZ 

MA 

477 

478 

IF(N . EQ . 0 )G0  TO  306 

MA 

478 

479 

DO  45  1=1 . N 

MA 

479 

480 

X(I)=X(I)*FR 

* 

MA 

480 

481 

Y(I)=Y(I)»FR 

MA 

481 

482 

Z(I)=Z(I)*FR 

MA 

482 

483 

SI(I)=SI(I)*FR 

MA 

483 

484  45 

BI(I)=BI(I)*FR 

MA 

484 

485  306 

IF(M.EQ.O)GO  TO  307 

MA 

485 

486 

FR2=FR»FR 

* 

MA 

486 

487 

J=LD+1 

MA 

487 

488 

DO  245  1=1 ,M 

MA 

488 

489 

J=J— 1 

MA 

489 

490 

X( J )=X( J )*FR 

MA 

490 

491 

Y(J)=Y(J)»FR 

MA 

491 

492 

Z(J)=Z(J)*FR 

MA 

492 

493  245 

BI( J )=BI( J ) *FR2 

MA 

493 

494  307 

IG0=2 

MA 

494 

495  C 

STRUCTURE  SEGMENT  LOADING 

MA 

495 

496  46 

PRINT  146 

MA 

496 

497 

IF(NLOAD.NE.O)  CALL  LOAO( LDTYP , LDTAG , LDTAGF , LDTAGT , ZLR , ZLI , ZLC) 

MA 

497 

498 

IF(NLOAD. EO.O . AND.NLODF . EQ.O) PRINT 

147 

MA 

498 

499 

IF(NLOAD.EO.O. AND. NLODF.NE.O) PRINT 

327 

MA 

499 

500  C 

GROUND  PARAMETER 

MA 

500 

501 

PRINT  148 

MA 

501 

502 

IF  (KSYMP.EQ. 1 )  GO  TO  49 

MA 

502 

503 

FRATI=(1 . .0.) 

MA 

503 

504 

IF  (IPERF.EQ.1)  GO  TO  48 

MA 

504 

505 

IF(SIG . LT . 0 . )SIG=-SIG/( 59 . 96*WLAM) 

MA 

505 

506 

EPSC=CMPLX( EPSR ,-SIG*WLAM*59 . 96) 

MA 

506 

507 

ZRATI=1 ./CSQRT(EPSC) 

MA 

507 

508 

U=ZRATI 

MA 

508 

509 

U2=U*U 

MA 

509 

510 

IF  (NRADL.EO.O)  GO  TO  47 

MA 

510 

511 

SCRWL=SCRWLT/WLAM 

MA 

51 1 

MAIN 
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51  2 
513 
31 4 
SIS 
SI  6 

517  47 

518 

519 

520  328 


521 

522 

523 

524 

525  330 

526  329 

527 

528  48 

529 

530  49 

531  50 

532  C  • 

533  C 


551 

552 

553 

554 

555 

556  C 

557  52 

558 

559  C 

560  C 

561  C 

562  53 

563 

564 

565 

566  54 

567 

568 
369 

570 

571 

572 

573 

574 
573 


SCRWRaSCRWR  T/VfLAM 

T1»F  J*2367 . 067/FLOAT (NRADL) 

T2*SCRWR*FL0AT(NRADL) 

PRINT  170.  NRADL. SCRWLT , SCRWRT 
PRINT  149 

IF(IPERF.EQ.2)GO  TO  328 
PRINT  391 
GO  TO  329 

IF(NXA( 1 ) . EQ . 0 )READ(21 )AR1 .AR2.AR3.EPSCF.DXA,DYA.XSA,YSA.NXA,NYA 
FRATI=(EPSC-1 . )/(EPSC+1 . ) 

IF ( CABS ( ( EPSCF-EPSC)/EPSC) . LT . 1 . E-3)GO  TO  330 

PRINT  393.EPSCF.EPSC 

STOP 

PRINT  392 

PRINT  150,  EPSR.SIG.EPSC 

GO  TO  50 

PRINT  151 

GO  TO  50 

PRINT  152 

CONTINUE 


FILL  AND  FACTOR  PRIMARY  INTERACTION  MATRIX 


534  C 

535 

536 

537 

538 

539 

540 

541 

542  C 

543  C 

544  C 

545  324 


CALL  SECOND  (TIM1) 

IF( ICASX . NE .0)G0  TO  324 
CALL  CMSET(NEQ.CM.RKH.IEXK) 

CALL  SECOND  (TIM2) 

TIM=TIM2— TIM1 

CALL  FACTRS(NPEQ. NEQ.CM.IP.IX.il ,12,13,14) 
GO  TO  323 


N.G.F.  -  FILL  B.  C.  AND  D  AND  FACTOR  D-C(INV(A)B) 


546 

547 

548 

549 

550  323 


CALL  CMNGF(CM( IB  1 1 ) , CM( IC1 1 ) ,CM(ID1 1 ) . NPBX .NEQ . NEQ2 . RKH , IEXK) 
CALL  SECONO  (TIM2) 

TIM*TIM2-TIM1 

CALL  FACGF(CM.CM(IB1 1 ) .CM(IC1 1 ) ,CM(ID1 1 ) ,CM(IX1 1 ) . IP .IX .NP.Ml ,MP 
1M1 .NEQ.NEQ2) 

CALL  SECONO  (TIM1) 

TIM2=TIM1 -TIM2 
PRINT  153,  TIM.TIM2 
IGO=3 
NTS0L=0 

IF(IFL0W.NE.12)G0  TO  53 
WRITE  N.G.F.  FILE 
CALL  GFOUT 
GO  TO  14 


EXCITATION  SET  UP  (RIGHT  HAND  SIDE.  -E  INC.) 


NTHIC=1 

NPHIC=1 

INC=1 

NPRINT=0 

IF  ( IXTYP . EQ . 0 . OR . IXTYP . EQ . 5 )  GO  TO  56 
IF  (IPTFLG. LE .0 .OR . IXTYP . EO. 4)  PRINT  154 
TMP5=TA*XPR5 
TMP4=TA*XPR4 

IF  (IXTYP. NE. 4)  GO  TO  55 
TMP 1  =XPR  1  /VfLAM 
TMP2=XPR2/V1LAM 
TMP3=XPR3/V1LAM 
TMP6=XPR6/(WLAM*WLAM) 

PRINT  156,  XPR1 .XPR2.XPR3.XPR4.XPR5.XPR6 


MA  512 
MA  513 


MA  514 
MA  515 


MA  516 
MA  517 


MA  518 
MA  519 


MA  520 
MA  521 


MA  522 
MA  523 


MA  524 
MA  525 
MA  526 
MA  527 


MA  528 
MA  529 


MA  530 
MA  531 
MA  532 
MA  533 
MA  534 
MA  535 
MA  536 
MA  537 
MA  538 
MA  539 
MA  540 
MA  541 
MA  542 
MA  543 
MA  544 
MA  545 
MA  546 
MA  547 
MA  548 
MA  549 
MA  550 
MA  551 
MA  552 
MA  553 
MA  554 
MA  555 
MA  556 
MA  557 
MA  558 
MA  559 
MA  560 
MA  561 
MA  562 
MA  563 
MA  564 
MA  565 
MA  566 
MA  567 
MA  568 
MA  569 
MA  570 
MA  571 
MA  572 
MA  573 
MA  574 
MA  575 


MAIN 


57C 

GO  TO  56 

MA 

576 

377  53 

TMP1*TA*XPR1 

MA 

577 

378 

TMP2=TA*XPR2 

MA 

578 

579 

TMP3=TA*XPR3 

MA 

579 

380 

TMP6«XPR6 

MA 

580 

381 

IF  (IPTFLG. LE.O)  PRINT  155,  XPR1 ,XPR2 .XPR3 .HPOL(IXTYP) ,XPR6 

MA 

581 

382  56 

CALL  ETMNS  (TMP1 , TMP2 , TMP3 , TMP4 . TMP5 . TMP6 , IXTYP , CUR) 

MA 

582 

583  C 

MA 

583 

384  C 

MATRIX  SOLVING  (NETWK  CALLS  SOLVES) 

MA 

584 

385  C 

MA 

585 

586 

IF  (NONET. EQ.O. OR. INC. GT.1)  GO  TO  60 

MA 

586 

387 

PRINT  158 

MA 

587 

588 

ITMP3=0 

MA 

588 

589 

ITMP1=NTYP( 1 ) 

MA 

589 

590 

00  59  1=1 ,2 

MA 

590 

591 

IF  (ITMP1.EQ.3)  ITMP1=2 

MA 

591 

592 

IF  (ITMP1.EQ.2)  PRINT  159 

MA 

592 

593 

IF  (ITMPt . EG. 1 )  PRINT  160 

MA 

593 

594 

DO  58  J=1 .NONET 

MA 

594 

595 

ITMP2=NTYP(J) 

MA 

595 

596 

IF  ( ( ITMP2/ITMP1 ) . EQ. 1 )  GO  TO  57 

MA 

596 

597 

ITMP3=ITMP2 

MA 

597 

598 

GO  TO  58 

MA 

598 

599  57 

ITMP4=ISEG1(J) 

MA 

599 

600 

ITMP5=ISEG2 ( J ) 

MA 

600 

601 

IF  (ITMP2 .GE . 2. ANO .X11I(J).LE.O.)  XI 1 I( J )=WLAM*SQRT( (X(ITMP5)- 

MA 

601 

602 

1  X(ITMP4) )**2+( Y(ITMP5)-Y(ITMP4) ) **2+(Z( ITMP5)-Z(ITMP4) ) • • 2 ) 

MA 

602 

603 

PRINT  157,  ITAG(ITMP4),ITMP4,ITAG(ITMP5).ITMP5,X11R(J).X11I(J), 

MA 

603 

604 

1X12R(J),X12I(J) ,X22R( J).X22I(J) ,PNET(2*ITMP2-1 ) . PNET(2»ITMP2) 

MA 

604 

605  58 

CONTINUE 

MA 

605 

606 

IF  (ITMP3.EQ.0)  GO  TO  60 

MA 

606 

607 

ITMP1=ITMP3 

MA 

607 

608  59 

CONTINUE 

MA 

608 

609  60 

CONTINUE 

MA 

609 

610 

IF  (INC. GT.1 .AND.IPTFLG.GT.O)  NPRINT=1 

MA 

610 

611 

CALL  NETWK(CM,CM(IB1 1 ) ,CM(IC1 1 ) ,CM(ID1 1 ) , IP, CUR) 

MA 

611 

612 

NTS0L=1 

MA 

612 

613 

IF  (IPED.EQ.O)  GO  TO  61 

MA 

613 

614 

ITMP1=MHZ+4»(MHZ-1 ) 

MA 

614 

615 

IF  ( ITMP1 . GT. (NORMF-3) )  GO  TO  61 

MA 

615 

616 

FN0RM(ITMP1 )=REAL(ZPED) 

MA 

616 

617 

FNORM( ITMP1 +1 )=AIMAG(ZPED) 

MA 

617 

618 

FNORM( ITMP1 +2)=CABS( ZPED) 

MA 

618 

619 

FNORM ( I TMP 1 +3 ) =CANG ( Z  P  ED ) 

MA 

619 

620 

IF  (IPED.EQ.2)  GO  TO  61 

MA 

620 

621 

IF  ( FNORM( ITMP1 +2) . GT . ZPNORM)  ZPNORM=FNORM( ITMP1 +2) 

MA 

621 

622  61 

CONTINUE 

MA 

622 

623  C 

MA 

623 

624  C 

PRINTING  STRUCTURE  CURRENTS 

MA 

624 

625  C 

MA 

625 

626 

IF(N.EQ.O)GO  TO  308 

MA 

626 

627 

IF  (IPTFLG . EC. (-1 ) )  GO  TO  63 

MA 

627 

628 

IF  (IPTFLG. GT.O)  GO  TO  62 

MA 

628 

629 

PRINT  161 

MA 

629 

630 

PRINT  162 

MA 

630 

631 

GO  TO  63 

MA 

631 

632  62 

IF  (IPTFLG. EQ. 3. OR. INC. GT.1)  GO  TO  63 

MA 

632 

633 

PRINT  163,  XPR3 , HPOL( IXTYP) , XPR6 

MA 

633 

634  63 

PLOSS=0 . 

MA 

634 

635 

ITMP1 =0 

MA 

635 

636 

JUMP=IPTFLG+1 

MA 

636 

637 

DO  69  1=1 ,N 

MA 

637 

638 

CURI=CUR ( I ) *WLAM 

MA 

638 

639 

CMAG=CABS(CURI) 

MA 

639 
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MAIN  9 

640 

PHaCANG(CURX) 

MA 

640 

641 

IF  (NL0A0 . EQ . 0 . AND . NLODF . EQ . 0 )  CO  TO  64 

MA 

641 

642 

IF  (ABS(REAL(ZARRAY(I) ) ) . LT . 1 . E-20)  GO  TO  64 

MA 

642 

643 

PLOSS=PLOSS+. S*CMAG*CMAG*REAL( ZARRAY( I) ) *SI( I) 

MA 

643 

644  64 

IF  (JUMP)  68,69.65 

MA 

644 

645  65 

IF  (IPTAG.EQ.O)  GO  TO  66 

MA 

645 

646 

IF  (ITAG(I).NE.IPTAG)  GO  TO  69 

MA 

646 

647  66 

ITMP1=ITMP1+1 

MA 

647 

646 

IF  (ITMP1 .LT.TPTAGF.0R.ITMP1 .GT.IPTAGT)  GO  TO  69 

MA 

648 

649 

IF  (IPTFLG. EQ.O)  GO  TO  68 

MA 

649 

650 

IF  ( IPTFLG . LT . 2 . OR . INC . GT . NORMF )  GO  TO  67 

MA 

650 

651 

FNORM( INC )=CMAG 

MA 

651 

652 

ISAVE*I 

MA 

652 

653  67 

IF  (IPTFLG. NE. 3)  PRINT  164,  XPR1 . XPR2 .CMAG.PH . I 

MA 

653 

j 

654 

GO  TO  69 

MA 

654 

; 

655  68 

PRINT  165,  I. ITAG(I),X(I),Y(I),Z(I).SI(I).CURI. CMAG.PH 

MA 

655 

j 

656  69 

CONTINUE 

MA 

656 

> 

657 

IF( IPTFLQ. EQ. (— 1 ) )G0  TO  308 

MA 

657 

I 

658 

PRINT  315 

MA 

658 

659 

ITMP 1 =0 

MA 

659 

660 

FR=1 . E-6/FMHZ 

MA 

660 

) 

661 

00  316  1=1 ,N 

MA 

661 

n 

662 

IF(IPTFLQ.EQ.(-2))G0  TO  318 

MA 

662 

663 

IF( IPTAQ. EQ.O)GO  TO  317 

MA 

663 

i 

664 

IF(ITAG(I).NE.IPTAQ)GO  TO  316 

MA 

664 

665  317 

ITMP 1=ITMP 1+1 

MA 

665 

666 

IF(ITMP1 .LT.IPTAQF.0R.ITMP1 .GT . IPTAQT)GO  TO  316 

MA 

666 

667  318 

CURI=FR*CMPLX(-BII(I) , BIR(I) ) 

MA 

667 

668 

CMAG=CABS ( CUR I ) 

MA 

668 

689 

PH=CANG(CURI) 

MA 

669 

670 

PRINT  165. I. ITAG(I).X(I).Y(I),Z(I).SI(I).CURI. CMAG.PH 

MA 

670 

|i 

671  316 

CONTINUE 

MA 

671 

672  308 

IF(M.£Q.O)GO  TO  310 

MA 

672 

e 

673 

PRINT  197 

MA 

673 

674 

J=N-2 

MA 

674 

675 

ITMP1 =L0+1 

MA 

675 

! 

676 

DO  309  1=1  ,M 

MA 

676 

*1 

V 

1  677 

J=J+3 

MA 

677 

678 

ITMP 1=ITMP 1-1 

MA 

678 

1 

679 

EX=CUR( J ) 

MA 

679 

' 

680 

EY=CUR( J+1 ) 

MA 

680 

681 

EZ=CUR( J+2) 

MA 

681 

s 

682 

ETH=EX*T1 X( ITMP1 )+EY*T1 Y( ITMP1 )+EZ*T1 Z( ITMP1 ) 

MA 

682 

1 

683 

EPH=EX*T2X( ITMP1 )+EY*T2Y ( ITMP1 )+EZ*T2Z(ITMP1 ) 

MA 

683 

1 

684 

ETHM=CABS(ETH) 

MA 

684 

N 

685 

ETHA=CANG(ETH) 

MA 

685 

5 

686 

EPHM=CABS(EPH) 

MA 

686 

687 

EPHA=CANG(EPH) 

MA 

687 

688  309 

PRINT  1 98 . I ,X( ITMP1 ) ,Y(ITMP1 ) ,Z(ITMP1 ) . ETHM . ETHA . EPHM , EPHA . EX . EY . 

MA 

688 

689 

1  EZ 

MA 

689 

! 

690  310 

IF  (IXTYP.NE.0.AND.IXTYP.NE.5)  GO  TO  70 

MA 

690 

u 

p, 

691 

TMP1 =PIN-PNLS-PLOSS 

MA 

691 

692 

TMP2=1 00 . *TMP1 /PIN 

MA 

692 

v 

693 

PRINT  166,  PIN.TMP1 , PLOSS . PNLS , TMP2 

MA 

693 

694  70 

CONTINUE 

MA 

694 

m 

j  695 

IG0=4 

MA 

695 

Jr 

696 

IF(NCOUP .GT .0)CALL  COUPLE(CUR .WLAM) 

MA 

696 

> 

|  697 

IF  (IFL0W.NE.7)  GO  TO  71 

MA 

697 

■y 

]  698 

IF  (IXTYP.GT.O. AND. IXTYP.LT. 4)  GO  TO  113 

MA 

698 

S  699 

IF  (NFRQ.NE. 1 )  GO  TO  120 

MA 

699 

. 

700 

PRINT  135 

MA 

700 

N 

\  701 

GO  TO  14 

MA 

701 

j 

702  71 

I  GO =5 

MA 

702 

#  3 

703  C 

MA 

703 
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NEAR  FIELD  CALCULATION 


I 


704 

C 

705 

C 

706 

72 

707 

708 

709 

710 

711 

712 

C 

713 

C 

714 

C 

715 

78 

716 

717 

718 

719 

113 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

C 

733 

734 

735 

736 

737 

114 

738 

739 

740 

115 

74 1 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

116 

752 

117 

753 

754 

118 

755 

756 

119 

757 

758 

759 

760 

120 

761 

762 

763 

764 

765 

766 

199 

767 

204 

IF  (NEAR.EQ.(-I))  GO  TO  78 
CALL  NFPAT 

IF  (MHZ.EQ.NFRQ)  NEAR=-1 
IF  (NFRQ.NE. 1 )  GO  TO  78 
PRINT  135 
GO  TO  14 

STANDARD  FAR  FIELD  CALCULATION 

IF(IFAR.EQi-1 )GO  TO  113 

PINR=PIN 

PNLR*PNLS 

CALL  RDPAT 

IF  ( IXTYP . EQ . 0 . OR . IXTYP . GE . 4)  GO  TO  119 

NTHIC=NTHIC+1 

INC=INC+1 

XPR1 =XPR1 +XPR4 

IF  (NTHIC. LE.NTHI)  GO  TO  54 

NTHIC=1 

XPR1=THETIS 

XPR2=XPR2+XPR5 

NPHIC=NPHIC+1 

IF  (NPHIC.LE.NPHI)  GO  TO  54 

NPHIC=1 

XPR2=PHISS 

IF  (IPTFLG.LT. 2)  GO  TO  119 

NORMALIZED  RECEIVING  PATTERN  PRINTED 

ITMP1 =NTHI*NPHI 

IF  (ITMP1 .LE.NORMF)  GO  TO  114 

ITMP1=NORMF 

PRINT  181 

TMP1=FNORM( 1 ) 

DO  115.  J=2,ITMP1 

IF  (FNORM( J) .GT.TMP1 )  TMP1 =FNORM( J ) 

CONTINUE 

PRINT  182.  TMP1 , XPR3 ,HPOL( IXTYP) , XPR6 , ISAVE 
DO  118  J=1 , NPHI 
ITMP2=NTHI»(J-1 ) 

DO  116  1=1 .NTHI 
ITMP3=I+ITMP2 

IF  (ITMP3.GT.ITMP1 )  GO  TO  117 
TMP2=FNORM(ITMP3)/TMP1 
TMP3=0B20 ( TMP2 ) 

PRINT  183,  XPR1 .XPR2.TMP3.TMP2 

XPR1 =XPR1 +XPR4 

CONTINUE 

XPR1 sTHETIS 

XPR2=XPR2+XPR5 

CONTINUE 

XPR2=PHISS 

IF  (MHZ . EQ . N^PC/  IFAR=-1 
IF  (NFRQ.NE. 1 )  GO  TO  120 
PRINT  135 
GO  TO  14 
MHZ=MHZ+1 

IF  (MHZ.LE.NFRQ)  GO  TO  42 
IF  (IPEO.EQ.O)  GO  TO  123 
IF(NVQ0 . LT . 1 )GO  TO  199 
PRINT  1 84 , IVQD(NVQD) .ZPNORM 
GO  TO  204 

PRINT  184,  ISANT ( NSANT ) , ZPNORM 
ITMP1 =NFRQ 
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755 
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788  IF  (ITMP1 .LE.(N0RMF/4))  GO  TO  121  MA  768 

769  ITMP1*N0RMF/4  MA  769 

770  PRINT  185  MA  770 

771  121  IF  (IFRQ.EQ.O)  TMP1=FMHZ-(NFRQ-1 )*DELFRQ  MA  771 

772  IF  (IFRQ.EQ.1)  TMP1 =FMHZ/(DELFRQ»»(NFRQ-1 ) )  MA  772 

773  DO  122  I*1,ITMP1  MA  773 

774  ITMP2*I+4*(I-1)  MA  774 

775  TMP2=FNORM(ITMP2)/ZPNORM  MA  775 

776  TMP3*FN0RM(ITMP2+1)/ZPN0RM  MA  776 

777  TMP4*FN0RM( ITMP2+2 )/ZPNORM  MA  777 

778  TMP5=FNORM( ITMP2+3 )  MA  778 

779  PRINT  186,  TMP1 ,FNORM(ITMP2) . FNORM(ITMP2+1 ) . FN0RM(ITMP2+2) .  MA779 

780  1 FNORM(ITMP2+3) , TMP2 , TMP3 , TMP4, TMP5  MA  780 

781  IF  (IFRQ.EQ.O)  TMP1  *TMP1 +DELFRQ  MA  781 

782  IF  (IFRQ.EQ.1)  TMP1 =TMP1 »DELFRQ  MA  782 

783  122  CONTINUE  MA  783 

784  PRINT  135  MA  784 

785  123  CONTINUE  MA  785 

786  NFRQ=1  MA  786 

787  MHZ=1  MA  787 

788  GO  TO  14  MA  788 

789  125  FORMAT  (A2.13A6)  MA  789 

790  126  FORMAT  ( 1  HI )  MA  790 

791  127  FORMAT  (///.33X . 36H»***«»* . . . •*,//, 36X,  MA  791 

792  1  31HNUMERICAL  ELECTROMAGNETICS  C0DE.//.33X,  MA  792 

793  2  . . . MA  793 

794  128  FORMAT  (////. 37X .24H - COMMENTS - ,//)  MA  794 

795  129  FORMAT  (25X.13A6)  MA  795 

796  130  FORMAT  (///, 10X.34HINCORRECT  LABEL  FOR  A  COMMENT  CARD)  MA  796 

797  135  FORMAT  (/////)  MA  797 

798  136  FORMAT  (A2 . 13 .315 . 6E1 0 . 3)  MA  798 

799  137  FORMAT  (IX.  19H**»**  DATA  CARD  NO . , 13 . 3X . A2 . 1 X . 13 . 3( 1 X . 15) .  MA  799 

800  1  6( 1 X . El  2 . 5) )  MA  800 

801  138  FORMAT  (///, 1 0X , 45HFAULTY  DATA  CARD  LABEL  AFTER  GEOMETRY  SECTION)  MA  801 

802  139  FORMAT  (///, 1 0X , 48HNUMBER  OF  LOADING  CARDS  EXCEEDS  STORAGE  ALLOTTE  MA  802 

803  10)  MA  803 

804  140  FORMAT  (///. 1 0X .31 HDATA  FAULT  ON  LOADING  CARD  NO.  =  , 15 ,5X . 1 1 HITAG  S  MA  804 

805  1TEP1=,I5,29H  IS  GREATER  THAN  ITAG  STEP2=.I5)  MA  805 

806  141  FORMAT  (///, 1 0X ,51 HNUMBER  OF  EXCITATION  CARDS  EXCEEDS  STORAGE  ALLO  MA  806 

807  1TTED)  MA  807 

808  142  FORMAT  (///, 1 0X , 48HNUMBER  OF  NETWORK  CARDS  EXCEEDS  STORAGE  ALLOTTE  MA  808 

809  ID)  MA  809 

810  143  FORMAT(///, 1 0X , 79HWHEN  MULTIPLE  FREQUENCIES  ARE  REQUESTED.  ONLY  ON  MA  810 

811  IE  NEAR  FIELD  CARD  CAN  BE  USED  10X.22HLAST  CARD  READ  IS  USED)  MA  811 

812  145  FORMAT  (////, 33X . 33H - FREQUENCY - ,//,36X  ,  10HFR  MA  812 

813  1 EQUENCY=, Ell . 4, 4H  MHZ./.36X, 1 1 HWAVELENGTH*. El  1 .4,7H  METERS)  MA  813 

814  146  FORMAT  (///.30X.40H  -  STRUCTURE  IMPEDANCE  LOADING  - )  MA  814 

815  147  FORMAT  (/  .35X.28HTHIS  STRUCTURE  IS  NOT  LOADED)  MA  815 

816  148  FORMAT  (///.34X.31H -  ANTENNA  ENVIRONMENT  - ./)  MA  816 

817  149  FORMAT  (40X ,21 HMEDIUM  UNDER  SCREEN  -)  MA  817 

818  150  FORMAT  ( 40X , 27HRELATIVE  DIELECTRIC  CONST.*, F7 . 3 ,/,40X , 1 3HC0NDUCTIV  MA  818 

819  1 1TY=, El 0 . 3 , 1 1H  MHOS/METER./. 40X . 28HC0MPLEX  DIELECTRIC  CONSTANT*.  MA  819 

820  12E12.5)  MA  820 

821  151  FORMAT  (  42X , 1 4HPERFECT  GROUND)  MA  821 

822  152  FORMAT  (  44X, 10HFREE  SPACE)  MA  822 

823  153  FORMAT  (///.32X.25H -  MATRIX  TIMING  - ,//, 24X , 5HFILL*. F9 . 3 .  MA  823 

824  1 15H  SEC. .  FACTOR*. F9 . 3. 5H  SEC.)  MA  824 

825  154  FORMAT  (///.40X.22H - EXCITATION - )  MA  825 

826  155  FORMAT  (/. 4X . 1 OHPLANE  WAVE . 4X , 6HTHETA*. F7 . 2 , 1 1 H  DEG,  PHI=,F7.2,  MA  826 

827  1  11H  DEG,  ETA*. F7 . 2 . 1 3H  DEG,  TYPE  -.A6.15H*  AXIAL  RATIO*. F6. 3)  MA  827 

828  156  FORMAT  (/,3 1 X . 1 7HP0SITI0N  (METERS) . 1 4X , 1 8H0RIENTATI0N  (DEG)=/.28X,  MA  828 

82*  T 1 HX , 1 2X , 1 HY . 1 2X , 1  HZ . 1 0X , 5HALPHA , 5X , 4HBETA , 4X , 1 3HDIP0LE  MOMENT,//  MA  829 

830  2  , 4X, 14HCURRENT  SOURCE . 1 X , 3(3X . FI 0 . 5) . 1 X . 2(3X , F7 . 2) . 4X , F8 . 3)  MA  830 

831  157  FORMAT  (4X, 4(15, IX). 6(3X, Ell .4). 3X.A6.A2)  MA831 


-26- 


# 


% 


8 


3  I 


& 


mm 


MAIN 


832 

158 

833 

159 

834 
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860 
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864 
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867 
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869 
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870 
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871 

872 
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875 

876 

877 

185 

878 

879 

186 

880 

881 

196 

882 

883 

197 

884 

885 

886 

887 

888 

889 

890 

198 

891 

201 

892 

315 

893 

894 

895 

FORMAT  (///.44X.24H - NETWORK  DATA - ) 

FORMAT  (/.6X.18H-  FROM  -  -  TO  11 X , 1 7HTRANSMISSION  LINE.15X.36 

1 H-  -  SHUNT  ADMITTANCES  (MHOS)  -  1 4X , 4HlINE ,/. 6X . 21 HTAC  SEG. 

2  TAG  SEG . , 6X , 9HIMPEDANCE , 6X , 6HLENGTH , 1 2X , 1 1 H-  END  ONE  -.17X.11H 
3-  END  TWO  -.12X.4HTYPE,/  .6X.21HNO.  NO.  NO.  NO . , 9X , 4H0HMS 

4 . AX , 6HMETERS . 9X .  4HREAL , 1 0X . 5HIMAG . . 9X . 4HREAL , 1 0X , 5HIMAG . ) 

FORMAT  (/.6X.8H-  FROM  -.4X.6H-  TO  -.26X.45H-  -  ADMITTANCE  MATRIX 

1  ELEMENTS  (MHOS)  -  -,/  .6X.21HTAG  SEG.  TAG  SEG . , 1 3X ,9H(ON 

2E,ONE),19X,  9H(ONE , TWO) , 1 9X ,9H( TWO , TWO) ,/  .6X.21HNO.  NO.  NO 
3.  NO. , 8X . 4HREAL , 1  OX , 5HIMAG. , 9X . 4HREAL . 1 0X . SHIMAG. , 9X , 4HREAL , 

4  10X, SHIMAG.) 

FORMAT  (///, 29X , 33H -  CURRENTS  AND  LOCATION  - .//.33X . 24HDIS 

1TANCES  IN  WAVELENGTHS) 

FORMAT  (  //, 2X , 4HSEG . , 2X , 3HTAG , 4X , 2 1 HCOORD .  OF  SEG.  CENTER. 5X, 

1  4HSEG. .12X.26H - CURRENT  (AMPS)  - ./. 2X . 3HNO . . 3X .3HNO. . 

2  5X , 1 HX . 8X , 1 HY , 8X , 1  HZ . 6X , 6HLENGTH . 5X . 4HREAL , 8X . 5HIMAG . , 7X . 4HMAG . . 

3  8X.5HPHASE) 

FORMAT  (///.33X.40H -  RECEIVING  PATTERN  PARAMETERS  - ./  ,43 

1 X , 4HETA=, F7 . 2 ,8H  DEGREES ./. 43X .6HTYPE  -, A6 ,/. 43X , 1 2HAXIAL  RATIO=, 

2  F6 . 3 ,//  .nX.5HTHETA.6X.3HPHI.10X.13H-  CURRENT  -.9X.3HSEG./ 

3 . 1 1 X .  5H(  DEG)  .  5X '.  5H( DEG) ,  7X . 9HMAGNITUDE  .  4X  .  5HPHASE . 6X  . 3HN0 .  ./) 
FORMAT  ( 10X ,2(F7 . 2 , 3X) , IX , El  1 . 4.3X , F7 . 2 , 4X , IS) 

FORMAT  ( 1 X , 215 . 3F9 . 4 . F9 . 5 , 1 X . 3E 1 2 . 4 , F9 . 3 ) 

FORMAT  (///.40X.24H -  POWER  BUDGET  - .//  , 43X , 1 5HINPUT  PO 

1WER  =.E1 1 .4.6H  WATTS,/  , 43X . 1 5HRADIATED  POWER=, El  1 . 4 . 6H  WATTS ./ 

2  ,43X, 15HSTRUCTURE  LOSS=. El  1 . 4 . 6H  WATTS ./  , 43X . 1 5HNETW0RK  LOSS  =. 

3  Ell .4,6H  WATTS, /.43X, 1 5HEFFICIENCY  =  ,  F7. 2. 8H  PERCENT) 

FORMAT  ( 40X , 25HRADIAL  WIRE  GROUND  SCREEN ,/. 40X ,  15, 6H  WIRES,/, 40 

1 X , 1 2HWIRE  LENGTH®, FB. 2, 7H  METERS ,/. 40X , 1 2HWIRE  RADIUS®, El 0 . 3 , 7H  ME 
2TERS) 

FORMAT  (///.4X.51HRECEIVING  PATTERN  STORAGE  TOO  SMALL. ARRAY  TRUNCA 
1  TED) 

FORMAT  (///.32X.40H -  NORMALIZED  RECEIVING  PATTERN  - ,/,41X, 

1  21HN0RMALIZATI0N  FACTOR®, El  1 . 4./. 41 X . 4HETA®, F7 . 2 ,8H  DEGREES ./, 41 X 
2 , 6HTYPE  — , A6 ,/, 41 X , 1 2HAXIAL  RATIO® , F6 . 3 ,/. 41 X . 1 2HSEGMENT  NO.®, IS,/ 
3/ , 21 X . 5HTHETA , 6X , 3HPHI , 9X , 1 3M-  PATTERN  - ./ . 21 X , 5H( DEG) , 5X . 5H( DEG 
4) . 8X . 2HDB . 8X , 9HMAGNITUDE ./) 

FORMAT  (20X.2(F7.2.3X) , 1X.F7.2.4X.E1 1 .4) 

FORMAT  (///, 36X ,32H -  INPUT  IMPEDANCE  DATA  - ./  .45X.18HS0 

1URCE  SEGMENT  NO., 14,/  , 45X , 21 HNORMALIZATION  FACTOR®, El  2 . 5 ,// 

2.7X.5HFREQ. .13X.34H-  -  UNNORMALIZED  IMPEDANCE  -  -,21X,  32H- 

3  -  NORMALIZED  IMPEDANCE  -  -./  . 1 9X , 1 OHRESISTANCE . 4X , 9HREACTA 

4NCE . 6X , 9HMAGNITUDE . 4X , 5HPHASE . 7X . 1 OHRESISTANCE . 4X , 9HREACTANCE , 6X , 

5  9HMAGNITUDE , 4X , 5HPHASE ./  , 8X , 3HMHZ , 1 1 X , 4H0HMS , 1  OX , 4H0HMS , 1 1 X , 

6  4H0HMS , 5X , 7HDEGREES , 47X , 7HDEGREES ,/) 

FORMAT  (///, 4X , 62HST0RAGE  FOR  IMPEDANCE  NORMALIZATION  TOO  SMALL,  A 
1RRAY  TRUNCATED) 

FORMAT  ( 3X , F9 . 3 . 2X . 2 ( 2X , E 1 2 . 5 ) , 3X , E 1 2 . 5 , 2X , F7 . 2 , 2X , 2 ( 2X , El  2 . 5 ) , 3X , 
1  E12.5.2X.F7.2) 

FORMAT(  ////, 20X , S5HAPPR0XIMATE  INTEGRATION  EMPLOYED  FOR  SEGMENT 
IS  MORE  THAN , F8 . 3 , 1 8H  WAVELENGTHS  APART) 

FORMAT (  ////, 41 X , 38H -  SURFACE  PATCH  CURRENTS  - ,//, 

1  50X , 23HDISTANCE  IN  WAVELENGTHS ,/, 50X , 21 HCURRENT  IN  AMPS/METER, 

1  //.28X.26H -  SURFACE  COMPONENTS  -  -.19X.34H -  RECTANGULAR  COM 

1 PONENTS  - ,/, 6X , 1 2HPATCH  CENTER . 6X , 1 6HTANGENT  VECTOR  1,3X, 

1 1 6HTANGENT  VECTOR  2 . 1 1 X , 1 HX . 1 9X . 1 HY . 1 9X , 1  HZ ./ . 5X . 1 HX , 6X . 1 HY . 6X . 

1 1HZ.SX.4HMAG. . 7X , 5HPHASE ,3X , 4HMAG. , 7X , 5HPHASE , 3( 4X , 4HREAL . 6X , 

1  6HIMAG.  )) 

FORMAT (IX, 14,/, 1X,3F7.3,2(E1 1 .4.F8.2) , 6E 1 0 . 2) 

FORMAT (/, 1 1 H  RUN  TIME  =,F10.3) 

F0RMAT(///.34X,28H - CHARGE  DENSITIES - ,//,36X, 

1  24HDISTANCES  IN  WAVELENGTHS ,///, 2X , 4HSEG ., 2X , 3HTAG . 4X , 

2  21 HCOORD.  OF  SEG.  CENTER . 5X . 4HSEG .. 1  OX , 

3  31 HCHARGE  DENSITY  (COULOMBS/METER) ,/, 2X , 3HN0 . , 3X , 3HN0 . , 5X , 1 HX , 8X , 
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4  1 HY , 8X . 1  HZ . 6X , 6HLENGTH . 5X , 4HREAL , 8X , 5HIMAG . , 7X , 4HMAG . , 8X . 5HPHASE ) 
FORMA T(  /, 20X , 42HTHE  EXTENDED  THIN  WIRE  KERNEL  WILL  BE  USED) 

FORMAT (/,9H  ERROR  -  .A2.32H  CARD  IS  NOT  ALLOWED  WITH  N.G.F.) 

FORMAT (/, 35X , 31 H  LOADING  ONLY  IN  N.G.F.  SECTION) 

FORMAT (48H  ERROR  -  N.G.F.  IN  USE.  CANNOT  WRITE  NEW  N.G.F.) 
F0RMAT(/,62H  NUMBER  OF  SEGMENTS  IN  COUPLING  CALCULATION  (CP)  EXCEE 
IDS  LIMIT) 

F0RMAT(78H  RADIAL  WIRE  G.  S.  APPROXIMATION  MAY  NOT  BE  USED  WITH  SO 
1MMERFELD  GROUND  OPTION) 

FORMAT(40X , 52HFINITE  GROUND.  REFLECTION  COEFFICIENT  APPROXIMATION 

0 

FORMAT(40X .35HFINITE  GROUND.  SOMMERFELD  SOLUTION) 

FORMAT (/ , 29H  ERROR  IN  GROUNO  PARAMETERS  -,/,41H  COMPLEX  DIELECTRIC 
1  CONSTANT  FROM  FILE  IS . 2E1 2 . 5 ./. 32X , 9HREQUESTED , 2E1 2 . 5) 

END 
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ARC 


PURPOSE 

To  fill  COMMON/DATA/  with  segment  coordinates  for  a  circular  arc  of 
segments. 

METHOD 

The  formal  parameters  specify  the  number  of  segments,  radius  of  the  arc, 
starting  angle,  final  angle  and  wire  radius.  Segment  coordinates  are  computed 
for  the  arc  in  the  x,  z  plane  with  a  left  hand  rotation  about  the  y  axis. 


SYMBOL  DICTIONARY 


CONSTANTS 


.01745329252 

360.00001 


angle  of  point  on  the  arc  (radians,  zero  on  x  axis) 

angle  at  first  end 

angle  at  second  end 

angle  covered  by  each  segment 

number  of  initial  segment 

tag  number  assigned  to  each  segment 

number  of  segments 

wire  radius 

arc  radius 

ir/180 

x  coordinate  of  first  end  of  segment 
x  coordinate  of  second  end  of  segment 
z  coordinate  of  first  end  of  segment 
z  coordinate  of  second  end  of  segment 


11/ 180 

test  for  angle  greater  than  360  degrees 
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ARC 


1 

SUBROUTINE  ARC  ( ITG ,NS . RADA . ANG1 . ANG2 , RAD) 

AR 

1 

2  C 

AR 

2 

3  C 

ARC  GENERATES  SEGMENT  GEOMETRY 

DATA  FOR  AN  ARC  OF  NS  SEGMENTS 

AR 

3 

4  C 

AR 

4 

5 

COMMON  /OATA/  LD ,N1 ,N2  ,N  ,NP  ,M1 , 

M2.M,MP.X(300),Y(300),Z(300),SI(300  AR 

5 

6 

1 ) ,BI(300) ,ALP(300) ,BET(300) .IC0N1 (300) ,ICON2(300) ,ITAG(300) ,ICONX( 

AR 

6 

7 

2300) .WLAM.IPSYM 

AR 

7 

8 

DIMENSION  X2(1).  Y2(1).  Z2(l) 

AR 

8 

9 

EQUIVALENCE  (X2.SI),  (Y2.ALP), 

(Z2.BET) 

AR 

9 

10 

DATA  TA/. 01745329252/ 

AR 

10 

11 

IST=N+1 

AR 

1 1 

12 

n=n+ns 

AR 

12 

13 

NP=N 

AR 

13 

14 

MP=M 

AR 

14 

15 

IPSYM=0 

AR 

15 

16 

IF  (NS.LT.1)  RETURN 

AR 

16 

17 

IF  (ABS(ANG2-ANG1).LT. 360. 00001 

)  GO  TO  1 

AR 

17 

18 

PRINT  3 

AR 

18 

19 

STOP 

AR 

19 

20  1 

ANG=ANG1 *TA 

AR 

20 

21 

DANG=( ANG2-ANG 1 ) • T A/NS 

AR 

21 

22 

XS1 =RADA*COS(ANG) 

AR 

22 

23 

ZS1 =RADA*SIN( ANG) 

AR 

23 

24 

DO  2  I=IST,N 

AR 

24 

25 

ANG=ANG+OANG 

AR/ 

25 

26 

XS2=RADA*C0S ( ANG ) 

AR 

26 

27 

ZS2=RADA*SIN( ANG) 

AR 

27 

28 

X(I)=XS1 

AR 

28 

29 

Y(I)=0. 

AR 

29 

30 

Z(I)=ZS1 

AR 

30 

31 

X2( I)=XS2 

AR 

31 

32 

Y2( I)=0 . 

AR 

32 

33 

Z2(I)=ZS2 

AR 

33 

34 

•  XS1 =XS2 

AR 

34 

35 

ZS1 =ZS2 

AR 

35 

36 

BI(I)=RAD 

AR 

36 

37  2 

ITAG(I)=ITG 

AR 

37 

38 

RETURN 

AR 

38 

39  C 

AR 

39 

40  3 

FORMAT  ( 40H  ERROR  —  ARC  ANGLE 

EXCEEDS  360.  DEGREES) 

AR 

40 

41 

END 

AR 

41- 
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ATGN2 


ATGN2 


PURPOSE 


To  return  zero  when  both  arguments  of  a  two-argument  arctangent  function 
are  zero.  (Most  standard  arctangent  functions  give  an  error  return  when  both 
arguments  are  zero.) 


METHOD 

System  function  ATAN2  is  used  except  when  both  arguments  are  zero,  in 
which  case  the  value  zero  is  returned.  The  value  returned  is  the  angle  (in 
radians)  whose  sine  is  X  and  cosine  is  Y. 

SYMBOL  DICTIONARY 

X  -  first  argument 
Y  ■  second  argument 

CODE  LISTING 


1 

FUNCTION  ATGN2  (X.Y) 

AT 

1 

^1 

2  C 

3  C 

4  C 

ATGN2  IS  ARCTANGENT  FUNCTION  MODIFIED  TO  RETURN  0.  WHEN  X=Y=0 . 

AT 

AT 

AT 

2 

3 

4 

S 

IF  (X)  3,1,3 

AT 

5 

6  1 

IF  ( Y)  3,2,3 

AT 

6 

7  2 

ATGN2=0 . 

AT 

7 

8 

RETURN 

AT 

8 

9  3 

ATGN2=ATAN2(X , Y) 

AT 

9 

to 

RETURN 

AT 

10 

11 

END 

AT 

11 

9® 

-31- 
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BLCKOT 


BLCKOT 

PURPOSE 

To  control  the  writing  and  reading  of  matrix  blocks  on  files  for  the  out- 
of-core  matrix  solution.  The  routine  also  checks  for  the  end-of-file  condi¬ 
tion  during  reading. 

METHOD 

The  routine  uses  a  binary  read  and  write  with  implied  DO  loops  for 
reading  and  writing  variable  length  strings  into  and  out  of  various  core 
locations.  The  end-of-file  condition  is  checked  by  a  call  to  function  ENF. 

If  an  unexpected  end  of  file  is  detected  (governed  by  NEOF)  the  program  stops. 

CODING 

BL9  -  BL12  Write  a  record  on  file  NUNIT. 

BLlk  -  BL20  Read  NBLKS  records  from  NUNIT,  and  check  for  end  of  file. 

BL21  -  BL2h  Code  if  end  of  file  detected. 

SYMBOL  DICTIONARY 

AR  -  matrix  array 

ENF  =  external  function  (checks  end-of-file  condition) 

I  =  DO  loop  index 

II  »  implied  DO  loop  limits,  inclusive  matrix  locations  written  from 

12  or  read  into 

J  *  implied  DO  index 

NBLKS  *  number  of  records  to  be  read 

NEOF  *  EOF  check  flag,  also  used  to  trace  the  call  to  BLCKOT 
NUNIT  *  file  number 

CONSTANT 

777  *  NEOF  when  EOF  is  expected  by  calling  program 


-32- 


BLCKOT 


1 

SUBROUTINE  BLCKOT  ( AR . NUNIT , 1X1 , 1X2 . NBLKS , NEOF ) 

BL 

1 

2 

C 

BL 

2 

3 

C 

BLCKOT  CONTROLS  THE  READING  AND  WRITING  OF  MATRIX  BLOCKS  ON  FILES 

BL 

3 

4 

C 

FOR  THE  OUT-OF-CORE  MATRIX  SOLUTION. 

BL 

4 

5 

C 

BL 

5 

6 

LOGICAL  ENF 

BL 

6 

7 

COMPLEX  AR 

BL 

7 

8 

DIMENSION  AR(  1  ) 

BL 

8 

9 

11 =( 1X1 +1 )/2 

BL 

9 

10 

I2=( 1X2+1 )/2 

BL 

10 

1 1 

1 

WRITE  (NUNIT)  ( AR( J ) , J=I1 , 12) 

BL' 

1 1 

12 

RETURN 

BL 

12 

13 

ENTRY  BLCKIN 

BL 

13 

14 

I1=(IX1+1 )/2 

BL 

14 

15 

I2=(IX2+1)/2 

BL 

15 

16 

DO  2  1=1, NBLKS 

BL 

16 

17 

REAO  (NUNIT)  (AR( J) , J=I1 .12) 

BL 

17 

18 

IF  ( ENF(NUNIT) )  GO  TO  3 

BL 

18 

19 

2 

CONTINUE 

BL 

19 

20 

RETURN 

BL 

20 

21 

3 

PRINT  4,  NUNIT. NBLKS, NEOF 

BL 

21 

22 

IF  (NEOF. NE. 777)  STOP 

BL 

22 

23 

NE0F=0 

BL 

23 

24 

RETURN 

BL 

24 

25 

C 

BL 

25 

26 

4 

FORMAT  (13H  EOF  ON  UNIT, 13, 9H  NBLKS=  .I3.8H  NE0F=  ,151 

BL 

26 

27 

END 

8L 
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CABC 


CABC 


PURPOSE 

To  compute  the  coefficients  in  the  current  function  on  each  segment, 
given  the  basis  function  amplitudes.  Surface  current  components  are  also 
computed . 


METHOD 


The  total  current  on  segment  i  is 


I^s)  -  A±  +  Bi  sin  [k(s  -  s^)  ]  +  cos  [k(s  -  sj  ]  , 


s^  at  the  center  of  segment  i. 


where  s  is  distance  along  the  wire,  and  s 
The  coefficients  A^,  B^,  and  are  the  sums  of  the  corresponding  coefficients 
in  the  portion  of  each  basis  function  that  extends  onto  segment  i. 


CODING 


CB35 

CB36 


Call  to  TBF  computes  components  of  basis  function  I. 

CBk3  The  basis  function  components  are  multiplied  by  the  basis 
function  amplitude  from  array  CURX  and  summed  for  each 
segment. 

CBU5  -  CB63  For  a  current  slope  discontinuity  source,  the  special  basis 
function  with  discontinuous  slope,  from  which  the  exciting 
electric  field  was  computed,  is  recomputed  and  added  to  the 
current  coefficients.  The  call  to  TBF,  with  the  second 
argument  zero  and  ICONl(I)  temporarily  zero,  computes  a 
basis  function  going  to  zero  with  non-zero  derivative  at 
end  one  of  segment  I. 

CB65  Total  current  at  the  center  of  each  segment  is  computed  and 
stored  in  place  of  the  basis  function  amplitudes. 

CB79  The  and  components  of  surface  current  for  each  patch 
are  expanded  to  x,  y,  and  z  components. 


CB64 

CB68 


SYMBOL  DICTIONARY 

AR,  AI  *  real  and  imaginary  parts  of  the  basis  function  amplitude 
CCJ 
CCX 
CS1 
CS2 


-j/60 

and  ^  components  of  surface  current  on  a  patch 
-34- 
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CAEC 


*  amplitude  of  the  special  basis  function  for  a  current  slope 
discontinuity  source 

■  input  array  of  basis  function  amplitudes  that  are  replaced  by 
values  of  current  at  segment  centers 

«  number  of  a  segment  onto  which  a  basis  function  extends 

■  array  locations  of  the  and  surface  current  components 
for  a  patch 

*  DO  loop  index;  temporary  storage  of  connection  number 

-  array  location  for  patch  geometry  data 

■  (half  segment  length) /X 
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CABC 


1 

SUBROUTINE  CABC  (CURX) 

CB 

1 

2  C 

CB 

2 

3  C 

CABC  COMPUTES  COEFFICIENTS  OF  THE  CONSTANT  (A).  SINE  (B).  AND 

CB 

3 

4  C 

COSINE  (C)  TERMS  IN  THE  CURRENT  INTERPOLATION  FUNCTIONS  FOR  THE 

CB 

4 

5  C 

CURRENT  VECTOR  CUR. 

CB 

5 

6  C 

CB 

6 

7 

COMPLEX  CUR, CURX. VQDS. CURD. CCJ.VSANT.VQD.CS1 .CS2 

CB 

7 

a 

COMMON  /DATA/  LD.N1 ,N2 ,N ,NP ,M1 , M2 ,M ,MP , X(300) , Y(300) , Z( 300 ) , SI (300  CB 

8 

9 

1 ) ,BI(300) , ALP (300) , BET (300) , ICON1 (300) , ICON2( 300 ) , I TAG ( 300 ) , ICONX ( 

CB 

9 

10 

2300) .WLAM.IPSYM 

CB 

10 

11 

COMMON  /CRNT/  AIR(300) , AII(300) . BIR(300) . BII(300) . CIR(300) ,CII(300  CB 

11 

12 

1 )  ,CUR(900) 

CB 

12 

13 

COMMON  /SEGJ/  AX( 30 ) , 8X( 30 ) , CX( 30 ) , JCO( 30 ) . JSNO , ISCON( 50) , NSCON , IP 

CB 

13 

14 

1 CON( 10) .NPCON 

CB 

14 

15 

COMMON  /VSORC/  VQD( 30 ) , VSANT ( 30 ) . VQDS ( 30 ) . IVQD ( 30 ) , ISANT ( 30 ) , IQDS ( 

CB 

15 

16 

130) .NVQD.NSANT. NODS 

CB 

16 

17 

COMMON  /ANGL/  SALP(300) 

CB 

17 

18 

DIMENSION  T1X( 1 ) ,  T1Y(1),  T1Z(1).  T2X(1),  T2Y(1).  T2Z(1) 

CB 

18 

19 

DIMENSION  CURX(I),  CCJX(2) 

CB 

19 

20 

EQUIVALENCE  (T1X.SI),  (T1Y.ALP).  (T1Z.BET) ,  (T2X.IC0N1).  (T2Y.IC0N 

CB 

20 

21 

12).  (T2Z.ITAG) 

CB 

21 

22 

EQUIVALENCE  (CCJ.CCJX) 

CB 

22 

23 

DATA  TP/6. 283185308/. CCJX/O. .-0.01666666667/ 

CB 

23 

24 

IF  (N.EQ.O)  GO  TO  6 

CB 

24 

25 

DO  1  1=1 ,N 

CB 

25 

26 

AIR( I)=0 . 

CB 

26 

27 

AII(I)=0. 

CB 

27 

28 

BIR(I)=0. 

CB 

28 

29 

BII(I)=0. 

CB 

29 

30 

CIR( I)=0 . 

CB 

30 

31  1 

CII(I)=0. 

CB 

31 

32 

DO  2  1=1 ,N 

CB 

32 

33 

•AR=REAL(CURX(I) ) 

CB 

33 

e 

34 

AI=AIMAG(CURX(I) ) 

CB 

34 

35 

CALL  TBF  (1,1) 

CB 

35 

36 

DO  2  JX=1 , JSNO 

CB 

36 

37 

J=JCO( JX) 

CB 

37 

38 

AIR( J )=AIR( J )+AX( JX ) *AR 

CB 

38 

39 

AII(J)=AII( J )+AX( JX ) *AI 

CB 

39 

40 

BIR(  J )=BIR(  J )+BX( JX)*AR 

CB 

40 

41 

BII(J)=8II(J)+BX(JX)*AI 

CB 

41 

42 

CIR(J)=CIR( J )+CX( JX ) *AR 

CB 

42 

43  2 

CII( J)=CII( J)+CX( JX)»AI 

CB 

43 

44 

IF  (NQDS.EQ.O)  GO  TO  4 

CB 

44 

45 

DO  3  IS=1 , NQOS 

CB 

45 

46 

I=IQDS(IS) 

CB 

46 

47 

JX=IC0N1 (I) 

CB 

47 

48 

IC0N1 (I)=0 

CB 

48 

49 

CALL  TBF  (1,0) 

CB 

49 

50 

IC0N1 ( I)=JX 

CB 

50 

51 

SH=SI(I)* .5 

CB 

51 

52 

CURD=CC J*V0DS( IS )/( (A LOG (2 . *SH/BI( I) )-1 . )  • ( BX( JSNO) *COS( TP*SH)+CX( 

CB 

52 

53 

1 JSNO)»SIN(TP»SH))»WLM) 

CB 

53 

54 

AR=REAL(CURD) 

CB 

54 

55 

AI=AIMAG( CURD ) 

CB 

55 

56 

DO  3  JX=1 . JSNO 

CB 

56 

57 

J=JCO( JX) 

CB 

57 

58 

AIR(J)=AIR( J )+AX( JX ) *AR 

CB 

58 

59 

AII(J)=AII( J )+AX( JX ) *AI 

CB 

59 

60 

BIR(J)=BIR(J )+BX( JX ) *AR 

CB 

60 

61 

BII(J)=BII(J)+BX(JX)*AI 

CB 

61 

62 

CIR( J)=CIR( J)+CX( JX)*AR 

CB 

62 

63  3 

CII(J)=CII(J)+CX(JX)*Al 

CB 

63 

# 

64  4 

DO  5  1=1  ,N 

CB 

64 
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63  5 

CURX(I)=CMPLX(AIR(I)+CIR(I).AII(I)+CII(I)) 

C8 

65 

66  6 

IF  (M.EQ.O)  RETURN 

CB 

66 

67  C 

CONVERT  SURFACE  CURRENTS  FROM  T1.T2  COMPONENTS 

TO  X.Y.Z  COMPONENTS  CB 

67 

68 

K=LD— M 

CB 

68 

69 

JC01 =N+2*M+1 

CB 

69 

70 

JC02=JC01+M 

CB 

70 

71 

DO  7  1=1, M 

CB 

71 

72 

K=K+1 

CB 

72 

73 

JC01=JC01-2 

CB 

73 

74 

JC02=JC02-3 

CB 

74 

75 

CS1=CURX( JC01 ) 

CB 

75 

76 

CS2=CURX( JC01+1 ) 

CB 

76 

77 

CURX( JC02)=CS1 *T1 X(K)+CS2*T2X(K) 

CB 

77 

78 

CURX( JC02+1 )=CS1*T1Y(K)+CS2»T2Y(K) 

CB 

78 

79  7 

CURX(JC02+2)=CS1*T1Z(K)+CS2*T2Z(K) 

CB 

79 

80 

RETURN 

CB 

80 

81 

END 

CB 

81- 
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CANG 


PURPOSE 

To  calculate  the  phase  angle  of  a  complex  number  In  degrees. 


METHOD 

z  ■  x  +  jy 

$  -  [arctan  (y/x) ]  57.29577951 
SYMBOL  DICTIONARY 

AIMAG  •  external  routine  (Imaginary  part  of  complex  number) 
ATGN2  ■  external  routine  (arctan  for  all  quadrants) 

CANG  -  4> 

REAL  ■  external  routine  (real  part  of  a  complex  number) 

Z  ■  input  complex  quantity 

CONSTANT 

57.29577951  conversion  from  radians  to  degrees 
CODE  LISTING 


1 

FUNCTION  CANG  (Z) 

CA 

1 

2  C 

CA 

2 

3  C 

CANG  RETURNS  THE  PHASE  ANGLE  OF  A  COMPLEX  NUMBER  IN  OEGREES. 

CA 

3 

4  C 

CA 

4 

5 

COMPLEX  Z 

CA 

5 

6 

CANG=ATGN2( AIMAG(Z) , REAL(Z) ) *57 . 29577951 

CA 

6 

7 

RETURN 

CA 

7 

8 

ENO 

CA 

8 

CMNGF 


CMNGF 

PURPOSE 

To  compute  and  store  the  matrices  B,  C  and  D  for  the  NGF  solution. 

METHOD 

The  structure  of  matrices  B,  C  and  D  is  described  in  Section  VI.  The 
coding  to  fill  these  matrices  is  involved  due  to  their  complex  structure,  as 
shown  in  Figure  12  of  Section  VI.  The  complexity  is  increased  by  the  need  to 
divide  the  matrices  into  blocks  of  rows  when  they  are  stored  on  files  (see 
Section  VII). 

Much  of  the  coding  in  CMNGF  has  to  do  with  connections  between  new  and 
NGF  segments  and  patches.  When  a  new  segment  or  patch  connects  to  a  NGF 
segment  the  basis  function  associated  with  the  NGF  segment  is  modified  due  to 
the  new  junction  condition.  The  amplitude  of  the  modified  basis  function  is  a 
new  unknown  associated  with  the  B1  and  D'  sections  of  the  matrix.  The 
modified  basis  function  may  extend  onto  other  NGF  segments  that  may  or  may  not 
connect  directly  to  new  segments.  Also,  the  basis  function  of  the  new  segment 
extends  onto  the  NGF  segment  to  which  it  connects.  Hence  fields  must  be 
computed  for  the  currents  on  some  NGF  segments  as  well  as  all  new  segments. 

Comments  in  the  code  should  be  of  some  help  in  understanding  the 
procedure.  The  notation  D(WS)  in  the  comments  corresponds  to  Dgw  in 
Figure  12.  Some  parts  of  the  code  are  explained  below. 

CG61  -  CG70  TRIO  computes  the  components  of  all  basis  functions  on 
segment  J,  where  J  is  a  new  segment,  and  stores  the 
coefficients  in  COMMON/SEGJ/.  The  array  JCO  contains  the 
basis-function  numbers  which  ordinarily  are  the  matrix 


columns  associated  with  the  basis  functions.  If  the 


basis  function  is  for  a  new  segment  then  JCO  is  set  at 
CG66  to  the  column  relative  to  the  beginning  of  the 


matrix  B.  If  the  basis  function  is  for  a  NGF  segment 


modified  by  the  connection,  then  JCO  is  set  at  CG68  to 


the  column  in  B  relative  to  the  beginning  of  B. 
ww 


Thus  the  calls  to  CMWW  and  CMWS  may  store  contributions 


in  B  and  B  as  well  as  B  and  B 
ww  sw  ww  sw 
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CG90  -  CG108  In  this  section  the  fields  are  evaluated  for  NGF  segments 

that  connect  to  new  segments  or  patches.  TRIO  finds  all 

basis  functions  that  contribute  to  the  current  on  the 

segment.  For  a  component  of  a  new  basis  function  IR  is 

set  to  the  column  in  at  CG95.  For  a  component  of  a 

modified  basis  function  IR  is  set  to  the  column  in 
• 

B  ,  relative  to  the  start  of  B,  at  CG99.  If  the 
ww 

basis  function  component  is  for  a  NGF  basis  function  that 
has  not  been  modified  the  test  at  CG98  skips  to  the  end 
of  the  loop.  The  arrays  in  COMMON/SEGJ/  are  adjusted 
from  CG101  to  CG104  so  that  CMWW  and  CMWS  will  store  the 
matrix  element  contributions  in  the  correct  locations. 
CG109  -  CGI 19  If  a  NGF  segment  connects  to  a  new  segment  on  one  end  and 
to  a  NGF  patch  on  the  opposite  end  the  modified  basis 
function  extends  onto  the  patch  as  a  singular  component  . 
of  the  patch  current.  The  field  due  to  this  component  on 
the  patch  is  added  to  the  matrix  element  of  the  modified 
basis  function  at  CG119. 

CG122-CG136  This  is  similar  to  CG90  to  CG108,  but  evaluates  fields  of 
NGF  segments  that  get  contributions  from  modified  basis 
functions,  but  do  not  connect  directly  to  new  segments. 
TBF  is  called,  rather  than  TRIO  to  compute  modified  basis 
function  J  on  all  segments  on  which  it  exists.  New 
segments  and  NGF  segments  for  which  contributions  have 
already  been  evaluated  are  skipped  at  CG133  and  CG134. 
CG163  -  CG263  Filling  C  and  D  is  similar  to  that  for  B  but  fields  must 
be  evaluated  for  all  NGF  segments  and  patches  as  well  as 
new  segments  and  patches. 

SYMBOL  DICTIONARY 

CB  ■  array  for  matrix  B 

CC  *  array  for  matrix  C 

CD  ■  array  for  matrix  D 

IEXKX  ■  flag  to  select  extended  thin-wire  kernel 

MIEQ  *  number  of  patch  equations  in  NGF 
MEQ  ■  total  number  of  patch  equations 
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NB  ■  row  dimension  of  CB.  CB  will  contain  only  one  block  of  B  when 
ICASX  -  3  or  4 

NC  *  row  dimension  of  CC  (C  transposed) 

ND  *  row  dimension  of  CD  (D  transposed) 

NEQN  *  starting  column  of  D  ,  relative  to  start  of  C 

ws  l 

NEQP  ■  starting  column  of  zeros  after  D  ,  relative  to  start  of  D 

NEQS  »  starting  column  of  D^,  relative  to  start  of  D 

NEQSP  *  starting  column  of  D  ,  relative  to  start  of  C 

RKHX  »  minimum  range  for  using  the  lumped  current  approximation  for 

the  field  of  a  segment 
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1 

SUBROUTINE  CMNGF  (CB ,CC . CD ,NB , NC ,ND , RKHX , IEXKX) 

CG 

1 

2 

C 

CMNGF  FILLS  INTERACTION  MATRICIES  B,  C,  AND  0  FOR  N.G.F.  SOLUTION 

CG 

2 

3 

COMPLEX  CB . CC . CD . ZARRAY , EXK , EYK . EZK . EXS . EYS , EZS . EXC . EYC , EZC 

CG 

3 

4 

COMMON  /DATA/  LD.N1 ,N2,N,NP,M1 ,M2 ,M ,MP , X(300) , Y( 300) , Z( 300) ,SI(300 

CG 

4 

5 

1  )  ,BI(300) , ALP (300) , BET( 300) , IC0N1 (300) , ICON2(300) , ITAG( 300 ) , ICONX( 

CG 

5 

6 

2300 ) , WLAM , IPS YM 

CG 

6 

7 

COMMON  /ZLOAD/  ZARRAY ( 300 ) , NLOAD , NLODF 

CG 

7 

8 

COMMON  /SEGJ/  AX (30) , BX(30) , CX( 30) , JCO( 30) , JSNO , ISCON( 50) , NSCON , IP 

CG 

8 

9 

1C0N( 10) , NPCON 

CG 

9 

10 

COMMON  /DATAJ/  S . B , X J , Y J , Z J .CAB J . SAB J ,SALP J . EXK , EYK , EZK . EXS , EYS , EZ 

CG 

10 

1 1 

1 S . EXC . EYC , EZC . RKH , IEXK , IND1 . IND2 , IPGND 

CG 

11 

12 

COMMON  /MATPAR/  ICASE .NBLOKS .NPBLK . NLAST , NBLSYM , NPSYM , NLSYM , IMAT , I 

CG 

12 

13 

1CASX.NBBX.NPBX.NLBX.NBBL.NPBL.NLBL 

CG 

13 

14 

DIMENSION  CB(NB,1),  CC(NC,1).  CD(ND.I) 

CG 

14 

15 

RKH=RKHX 

CG 

15 

16 

IEXK=IEXKX 

CG 

16 

17 

Ml  EQ=2*M1 

CG 

17 

18 

M2EQ=M1 £0+1 

CG 

18 

19 

MEQ=2*M 

CG 

19 

20 

NEQP=ND-NPC0N*2 

CG 

20 

21 

NEOS=NEQP-NSCON 

CG 

21 

22 

NEQSP=NEQS+NC 

CG 

22 

23 

NEQN=NC+N-N1 

CG 

23 

24 

ITX=1 

CG 

24 

25 

IF  (NSCON. GT.O)  ITX=2 

CG 

25 

26 

IF  (ICASX.EQ.1)  GO  TO  1 

CG 

26 

27 

REWIND  12 

CG 

27 

28 

REWIND  14 

CG 

28 

29 

REWIND  15 

CG 

29 

30 

IF  (ICASX.GT.2)  GO  TO  5 

CG 

30 

31 

1 

DO  4  J=1 , ND 

CG 

31 

32 

DO  2  1=1 ,ND 

CG 

32 

33 

2 

CD( I , J )=(0 . .0. ) 

CG 

33 

34 

DO  3  1=1 .NB 

CG 

34 

35 

CB(I, J)=(0. .0.) 

CG 

35 

36 

3 

CC(I, J)=(0. .0.  ) 

CG 

36 

37 

4 

CONTINUE 

CG 

37 

38 

5 

IST=N— N1 +1 

CG 

38 

39 

IT=NPBX 

CG 

39 

40 

ISV=-NPBX 

CG 

40 

41 

C 

LOOP  THRU  24  FILLS  B.  FOR  ICASX=1  OR  2  ALSO  FILLS  D(WW) .  D(WS) 

CG 

41 

42 

DO  24  IBLK=1,NBBX 

CG 

42 

43 

ISV=ISV+NPBX 

CG 

43 

44 

IF  (IBLK. EQ.NBBX)  IT=NLBX 

CG 

44 

45 

IF  (ICASX.LT. 3)  GO  TO  7 

CG 

45 

46 

DO  6  J=1 ,ND 

CG 

46 

47 

DO  6  1=1 .IT 

CG 

47 

48 

6 

C8(I.J)=(0. .0.) 

CG 

48 

49 

7 

I1=ISV+1 

CG 

49 

50 

I2=ISV+IT 

CG 

50 

51 

IN2=I2 

CG 

51 

52 

IF  (IN2.GT.N1)  IN2=N1 

CG 

52 

53 

IM1 =11 -N1 

CG 

53 

54 

IM2=I2-N1 

CG 

54 

55 

IF  (IM1 .LT. 1 )  IM1 =1 

CG 

55 

56 

IMX=1 

CG 

56 

57 

IF  (I1.LE.N1)  IMX=N1— 11+2 

CG 

57 

58 

IF  (N2.GT.N)  GO  TO  12 

CG 

58 

59 

C 

FILL  B(WW) , B(WS ) .  FOR  ICASX=1 ,2  FILL  D(WW).D(WS) 

CG 

59 

60 

DO  11  J=N2 ,N 

CG 

60 

61 

CALL  TRIO  (J) 

CG 

61 

62 

00  9  1=1 .JSNO 

CG 

62 

63 

JSS=JCO(I) 

CG 

63 

64 

IF  (JSS.LT.N2)  GO  TO  8 

CG 

64 

m 
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C 

SET  JCO  WHEN  SOURCE  IS  NEW  BASIS  FUNCTION  ON  NEW  SEGMENT 

CG 

65 

66 

JCO(I)=JSS-N1 

CG 

66 

67 

GO  TO  9 

CG 

67 

68 

C 

SOURCE  IS  PORTION  OF  MODIFIED  BASIS  FUNCTION  ON  NEW  SEGMENT 

CG 

68 

69 

8 

JCO(I)=NEQS+ICONX( JSS ) 

CG 

69 

70 

9 

CONTINUE 

CG 

70 

71 

IF  (I1.LE.IN2)  CALL  CMWW  ( J . 11 . IN2 . CB . NB ,CB . NB .0) 

CG 

71 

72 

IF  (IM1.LE.IM2)  CALL  OWS  ( J . IM1 , IM2 , CB ( IMX , 1 ) , NB , CB , NB , 0 ) 

CG 

72 

73 

IF  (ICASX.GT.2)  GO  TO  11 

CG 

73 

74 

CALL  CMWW  (J.N2.N.CD.ND.CD.N0.1) 

CG 

74 

75 

IF  (M2.LE.M)  CALL  CMWS  ( J .M2EQ.MEQ ,CD( 1 . 1ST) ,ND .CD , ND . 1 ) 

CG 

75 

76 

C 

LOADING  IN  D(WW) 

CG 

76 

77 

IF  (NLOAD.EQ.O)  GO  TO  1 1 

CG 

77 

78 

IR=J-N1 

CG 

78 

79 

EXK=ZARRAY( J) 

CG 

79 

80 

DO  10  1=1 , JSNO 

CG 

80 

81 

JSS=JC0(I) 

CG 

81 

82 

10 

CD( JSS , IR)=CD( JSS , IR)-( AX(I)+CX(I) ) *EXK 

CG 

82 

83 

1 1 

CONTINUE 

CG 

83 

84 

12 

IF  (NSCON.EQ.O)  GO  TO  20 

CG 

84 

85 

C 

FILL  B(WW)PRIME 

CG 

85 

86 

DO  19  1=1 ,NSC0N 

CG 

86 

87 

J=ISCON(I) 

CG 

87 

88 

C 

SOURCES  ARE  NEW  OR  MODIFIED  BASIS  FUNCTIONS  ON  OLD  SEGMENTS 

WHICH 

CG 

88 

89 

C 

CONNECT  TO  NEW  SEGMENTS 

CG 

89 

90 

CALL  TRIO  (J) 

CG 

90 

91 

JSS=0 

CG 

91 

92 

DO  15  IX=1 , JSNO 

CG 

92 

93 

IR=JCO(IX) 

CG 

93 

94 

IF  (IR.LT.N2)  GO  TO  13 

CG 

94 

95 

IR=IR— N1 

CG 

95 

96 

GO  TO  14  • 

CG 

96 

97 

13 

IR=ICONX(IR) 

CG 

97 

98 

IF  (IR.EQ.O)  GO  TO  15 

CG 

98 

99 

IR=NEQS+IR 

CG 

99 

100 

14 

JSS=JSS+1 

CG 

100 

101 

JC0( JSS)=IR 

CG 

101 

102 

AX( JSS)=AX(IX ) 

CG 

102 

103 

BX( JSS )=BX( IX ) 

CG 

103 

104 

CX(JSS)=CX(IX) 

CG 

104 

105 

15 

CONTINUE 

CG 

105 

106 

JSNO=JSS 

CG 

106 

107 

IF  (I1.LE.IN2)  CALL  CMWW  ( J . 11 . IN2 , CB . NB ,CB . NB .0) 

CG 

107 

108 

IF  (IM1.LE.IM2)  CALL  CMWS  ( J , IM1 . IM2 . CB( IMX , 1 ) ,N0 , CB . NB . 0) 

CG 

108 

109 

C 

SOURCE  IS  SINGULAR  COMPONENT  OF  PATCH  CURRENT  THAT  IS  PART 

OF 

CG 

109 

110 

c 

MODIFIED  BASIS  FUNCTION  FOR  OLD  SEGMENT  THAT  CONNECTS  TO  A 

NEW 

CG 

110 

111 

c 

SEGMENT  ON  END  OPPOSITE  PATCH. 

CG 

1 1 1 

112 

IF  (I1.LE.IN2)  CALL  CMSW  ( J . I . 11 , IN2 . CB . CB . 0 , NB .-1 ) 

CG 

112 

113 

IF  (NL00F.EQ.0)  GO  TO  17 

CG 

113 

114 

JX=J-ISV 

CG 

114 

115 

IF  ( JX . LT . 1 .OR.JX.GT.IT)  GO  TO  17 

CG 

115 

116 

EXK=ZARRAY( J ) 

CG 

116 

117 

DO  16  IX=1 , JSNO 

CG 

117 

118 

JSS=JCO(IX)  - 

CG 

118 

119 

16 

CB( JX , JSS)=CB( JX , JSS)-( AX( IX)+CX( IX) ) *EXK 

CG 

119 

120 

C 

SOURCES  ARE  PORTIONS  OF  MODIFIED  BASIS  FUNCTION  J  ON  OLD  SEGMENTS 

CG 

120 

121 

C 

EXCLUDING  OLD  SEGMENTS  THAT  DIRECTLY  CONNECT  TO  NEW  SEGMENTS. 

CG 

121 

122 

17 

CALL  TBF  (J.1) 

CG 

122 

123 

JSX=JSNO 

CG 

123 

124 

JSNO=1 

CG 

124 

125 

IR=JCO( 1 ) 

CG 

125 

126 

JCO(1 )=NEQS+I 

CG 

126 

127 

DO  19  IX=1 . JSX 

CG 

127 

128 

IF  (IX.EQ.1 )  CO  TO  18 

CG 

128 

129 

IR=JCO(IX) 

CG 

129 

130 

AX( 1 )=AX( IX) 

CG 

130 

131 

BX(  1 )=BX( IX) 

CG 

131 

132 

CX(1 )=CX(IX) 

CG 

132 

133  18 

IF  (IR.GT.N1)  GO  TO  19 

CG 

133 

134 

IF  (ICONX(IR) .NE.O)  GO  TO  19 

CG 

134 

135 

IF  (I1.LE.IN2)  CALL  CUMt  ( IR . 11 , IN2 . CB . 

NB.CB.NB.O) 

CG 

135 

136 

IF  (IM1.LE.IM2)  CALL  CMWS  ( IR . IM1 . IM2 . C8( IMX , 1 ) . NB . CB , NB . 0) 

CG 

136 

137  C 

LOADING  FOR  B(W) PRIME 

CG 

137 

138 

IF  (NLODF.EQ.O)  GO  TO  19 

CG 

138 

139 

JX=IR-ISV 

CG 

139 

140 

IF  ( JX . LT. 1 .OR.JX.GT.IT)  GO  TO  19 

CG 

140 

141 

EXK=ZARRAY(IR) 

CG 

141 

142 

JSS=JC0( 1 ) 

CG 

142 

143 

CB( JX , JSS )=CB( JX , JSS)-(AX( 1 )+CX( 1 ) ) *EXK 

CG 

143 

144  19 

CONTINUE 

CG 

144 

145  20 

IF  (NPCON.EQ.O)  GO  TO  22 

CG 

145 

146 

JSS=NEQP 

CG 

146 

147  C 

FILL  B(SS)PRIME  TO  SET  OLD  PATCH  BASIS 

FUNCTIONS  TO  ZERO  FOR 

CG 

147 

148  C 

PATCHES  THAT  CONNECT  TO  NEW  SEGMENTS 

CG 

148 

149 

DO  21  1=1 , NPCON 

CG 

149 

150 

IX=IPCON ( I ) • 2+N 1 -ISV 

CG 

150 

151 

IR=IX-1 

CG 

151 

152 

JSS=JSS+1 

CG 

152 

153 

IF  (IR.GT.O. ANO.IR.LE.IT)  CB(IR, JSS)=( 1 

..0.) 

CG 

153 

154 

JSS=JSS+1 

CG 

154 

155 

IF  (IX. GT.O. AND.IX.LE.IT)  CB( IX . JSS)=( 1 

..0.) 

CG 

155 

156  21 

CONTINUE 

CG 

156 

157  22 

IF  (M2.GT.M)  GO  TO  23 

CG 

157 

158  C 

FILL  B(SW)  AND  B(SS) 

CG 

158 

159 

IF  (I1.LE.IN2)  CALL  CMSW  (M2 ,M . 11 , IN2 . CB(  1  , 1ST) . CB . N1 , NB , 0) 

CG 

159 

160 

IF  (IM1.LE.IM2)  CALL  CMSS  (M2 , M . IM1 . IM2 , CB( IMX , 1ST ) . NB , 0 ) 

CG 

160 

161  23 

IF  (ICASX.EQ.1)  GO  TO  24 

CG 

161 

162 

WRITE  (14)  ((CB(I. J) .1=1 .IT) . J=1 ,ND) 

CG 

162 

163  24 

CONTINUE 

CG 

163 

164  C 

FILLING  B  COMPLETE.  START  ON  C  AND  D 

CG 

164 

165 

IT=NPBL 

CG 

165 

166 

ISV=— NPBL 

CG 

166 

167 

DO  43  IBLK=1 , NBBL 

CG 

167 

168 

ISV=ISV+NPBL 

CG 

168 

169 

ISW=ISV+NC 

CG 

169 

170 

IF  (IBLK.EO.NBBL)  IT=NLBL 

CG 

170 

171 

IF  (ICASX.LT. 3)  GO  TO  27 

CG 

171 

172 

DO  26  J=1 , IT 

CG 

172 

173 

DO  25  1=1 , NC 

CG 

173 

174  25 

CC(I. J)=(0. .0.) 

CG 

174 

175 

DO  26  1=1 ,ND 

CG 

175 

176  26 

CD(I, J)=(0. ,0. ) 

CG 

176 

177  27 

I1=ISVV+1 

CG 

177 

178 

I2=ISVV+IT 

CG 

178 

179 

INI =11 -Ml EQ 

CG 

179 

180 

IN2=I2-M1 EO 

CG 

180 

181 

IF  (IN2.GT.N)  IN2=N 

CG 

181 

182 

IM1 =11— N 

CG 

182 

183 

IM2=I2-N 

CG 

183 

184 

IF  (IM1 .LT.M2EQ)  IM1=M2EQ 

CG 

184 

185 

IF  (IM2.GT.ME0)  IM2=ME0 

CG 

185 

186 

IMX=1 

CG 

186 

187 

IF  (IN1.LE.IN2)  IMX=NEON-I 1 +2 

CG 

187 

188 

IF  (ICASX.LT. 3)  GO  TO  32 

CG 

188 

189 

IF  (N2.GT.N)  GO  TO  32 

CG 

189 

190  C 

SAME  AS  00  24  LOOP  TO  FILL  D(WW)  FOR  ICASX  GREATER  THAN  2 

CG 

190 

191 

DO  31  J=NZ,N 

CG 

191 

192 

CALL  TRIO  (J) 

CG 

192 
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DO  29  1=1 . JSNO 

CG 

193 

194 

JSS=JCO(I) 

CG 

194 

195 

IF  (JSS.LT.N2)  GO  TO  28 

CG 

195 

196 

JC0(  I)=JSS-N1 

CG 

196 

197 

GO  TO  29 

CG 

197 

198 

28 

JCO(I)=NEQS+ICONX( JSS) 

CG 

198 

199 

29 

CONTINUE 

CG 

199 

200 

IF  (IN1.LE.IN2)  CALL  CMWW  ( J , INI . IN2 , CD , ND ,CD . ND . 1 ) 

CG 

200 

201 

IF  (IM1.LE.IM2)  CALL  CWIS  ( J , IM1 , IM2 , CD( 1 , IMX ) , ND , CD , NO , 1 ) 

CG 

201 

202 

IF  (NLOAD.EQ.O)  GO  TO  31 

CG 

202 

203 

IR=J-N1 — ISV 

CG 

203 

204 

IF  (IR.LT.1 .OR.IR.GT.IT)  GO  TO  31 

CG 

204 

205 

EXK=ZARRAY(J) 

CG 

205 

206 

DO  30  1=1, JSNO 

CG 

206 

207 

JSS=JCO(I) 

CG 

207 

208 

30 

CD( JSS . IR)=CD( JSS , IR)-( AX( I)+CX(I) )*EXK 

CG 

208 

209 

31 

CONTINUE 

CG 

209 

210 

32 

IF  (M2.GT.M)  GO  TO  33 

CG 

210 

211 

C 

FILL  D(SW)  ANO  D(SS) 

CG 

21 1 

212 

IF  (IN1.LE.IN2)  CALL  CMSW  (M2 ,M, INI . IN2 . CD( 1ST . 1 ) ,CD,N1 ,ND . 1 ) 

CG 

212 

213 

IF  (IM1.LE.IM2)  CALL  CMSS  (M2 ,M . IM1 . IM2 , CD( 1ST . IMX ) .NO . 1 ) 

CG 

213 

214 

33 

IF  (N1.LT.1)  GO  TO  39 

CG 

214 

215 

C 

FILL  C(WW),C(WS).  0(WW)PRIME,  AND  D(WS)PRIME. 

CG 

215 

216 

DO  37  J=1  ,  N1 

CG 

216 

217 

CALL  TRIO  (J) 

CG 

217 

218 

IF  (NSCON.EQ.O)  GO  TO  36 

CG 

218 

219 

DO  35  IX=1 , JSNO 

CG 

219 

220 

JSS=JCO(IX) 

CG 

220 

221 

IF  (JSS.LT.N2)  GO  TO  34 

CG 

221 

222 

JCO(IX)=JSS+M1EQ 

CG 

222 

223 

GO  TO  35 

CG 

223 

224 

34 

IR=IC0NX( JSS ) 

CG 

224 

225 

IF  (IR.NE.O)  JCO(IX)=NEQSP+IR 

CG 

225 

226 

35 

CONTINUE 

CG 

226 

227 

36 

IF  (IN1.LE.IN2)  CALL  CMWW  ( J . INI . IN2 . CC . NC . CD . NO . ITX) 

CG 

227 

228 

IF  (IM1.LE.IM2)  CALL  CMWS  ( J , IM1 . IM2 . CC( 1 . IMX ) , NC ,CD( 1 . IMX ) , NO , 

,  ITX  CG 

228 

229 

0 

CG 

229 

230 

37 

CONTINUE 

CG 

230 

231 

IF  (NSCON.EQ.O)  GO  TO  39 

CG 

231 

232 

C 

FILL  C(WW)PRIME 

CG 

232 

233 

DO  38  IX=1 , NSCON 

CG 

233 

234 

IR=ISCON(IX) 

CG 

234 

235 

JSS=NEQS+IX-ISV 

CG 

235 

236 

IF  ( JSS.GT.O.AND. JSS.LE.IT)  CC(IR . JSS)=( 1 . ,0 . ) 

CG 

236 

237 

38 

CONTINUE 

CG 

237 

238 

39 

IF  (NPCON.EQ.O)  GO  TO  41 

CG 

238 

239 

JSS=NEQP-ISV 

CG 

239 

240 

C 

FILL  C(SS)PRIME 

CG 

240 

241 

DO  40  1=1 .NPCON 

CG 

241 

242 

IX=IPCON ( I ) • 2+N 1 

CG 

242 

243 

IR=IX-1 

CG 

243 

244 

JSS=JSS+1 

CG 

244 

245 

IF  (JSS.GT.O.AND. JSS.LE.IT)  CC(IR. JSS)=( 1 . ,0. ) 

CG 

245 

246 

JSS=JSS+1 

CG 

246 

247 

IF  (JSS.GT.O.AND.JSS.LE.IT)  CC(IX, JSS )=(  1  . ,0. ) 

CG 

247 

248 

40 

CONTINUE 

CG 

248 

249 

41 

IF  (Ml  .LT.  1 )  'GO  TO  42 

CG 

249 

250 

C 

FILL  C(SW)  AND  C(SS) 

CG 

250 

251 

IF  (INI .LE.IN2)  CALL  CMSW  ( 1 ,M1 . INI . IN2 . CC(N2 . 1 ) . CC , 0 . NC , 1 ) 

CG 

251 

252 

IF  (IM1.LE.IM2)  CALL  CMSS  ( 1 ,M1 . IM1 . IM2 . CC(N2 . IMX ) . NC , 1 ) 

CG 

252 

253 

42 

CONTINUE 

CG 

253 

254 

IF  (ICASX.EQ. 1 )  GO  TO  43 

CG 

254 

255 

WRITE  (12)  ((CD(J,I).J=1.ND),I=1.IT) 

CG 

255 

256 

WRITE  (15)  ( (CC( J , I) . J=! ,NC) ,1=1 ,IT) 

CG 

256 

GMNGF 


257  43 

258 

259 

260 
261 
262 
263 


CONTINUE 

IF(ICASX . EQ . 1 ) RETURN 

REWIND  12 

REWIND  14 

REWIND  15 

RETURN 

END 


CG  257 
CG  258 
CG  259 
CG  260 
CG  261 
CG  262 
CG  263- 
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CMSET 


PURPOSE 


To  control  the  filling  of  the  interaction  matrix. 


METHOD 


The  linear  equations  resulting  from  the  moment  method  solution  of 
equations  13,  14  and  the  negative  of  equation  13  in  Part  I  are  written  as 


}  a. A. .  +  >  b.B. .  3  E.  ,  i  =  1,  ...  N 

L.  j  ij  L,  j  ij  i 
j-i  j-i 


I  cAj  *  1  ■  v  k-i>- 

j»i  j-i 


where  N  *  number  of  segments 
M  »  number  of  patches 


A. .  *  s.  •  (E  at  r.  due  to  segment  basis  function  i) 
ijii®  J 


B^.  =  s^*  (E  at  r^  due  to  current  on  patch  [(j  +  1 ) / 2 ]  in 


direction  u^) 


**  -vfc  •  (H  at  P[(k+i)/2]  due  to  se8ment  ba3is  function  j] 


*  S[(k+l)/2] 


-  -vk  •  (H  at  P[(k+1)/2]  due  to  current  on  patch  [(j+l)/2] 


in  direction  u.)  S«k<.l)/2,  ♦  1  \ j 


E.  *  -s.  •  (incident  electric  field  at  r. ) 

ii  l 


Hk  *  vk  •  (incident  magnetic  field  at  p 


[(k+n/2^  S[(k+1)  /2  ] 


r^  *  position  of  the  center  of  segment  i 


CMSET 


Pi 


position  of  the  center  of  patch  i 


s. 

l 


unit  vector  in  the  direction  of  segment  i 


u. 

i 


|"t^  if  i  is  odd 


It.  if  i  i 


for  patch  [(i+l)/2] 


is  even. 


't 2  if  i  is  odd 


f  for  patch  [(i+l)/2] 


vt^  if  i  is  even J 


1  if  t^  x  tj  *  n  on  patch  i 


Xi 

X 


-1  if  t^  x  ^2  ■  -n  on  patch  i 
*  -1  if  k  ■  j  *  odd 


+1  if  k  *  j  ■  even 
0  if  k  4  j 


The  basis  function  amplitudes  a.,  b.,  c.  and  d.  are  determined  later 

J  J  J  J 

by  solving  the  matrix  equation  of  order  N  +  2M. 


The  matrix  elements  are  computed  by  calling  subroutines  CMWW,  CMSW, 
CMWS,  and  CMSS  for  the  elements  of  A,  B,  C  and  D  respectively.  For  A  and  C 
the  components  of  all  basis  functions  that  extend  across  segment  J  are 
computed  by  calling  TRIO  at  CM  52.  CMWW  and  CMWS  are  then  called  to  compute 
the  components  of  A  or  C  due  to  these  basis  function  components  on  segment  J. 


If  segment  j,  with  length  Aj ,  is  loaded  with  impedance  Z^  the 


Z  . 


elements  of  A  are  modified  as  A.,  *  A.t  -  -t4-  X  (value  of  basis  function  k 

jk  jk  Aj 


at  the  center  of  segment  j)  for  k  *  the  numbers  of  all  basis  functions  that 
extend  onto  segment  j.  The  summation  over  values  of  k  (k  *  JSS)  for  loading 
on  segment  J  occurs  at  CM  68. 

The  submatrices  are  stored  in  the  array  CM  in  transposed  form.  All 
references  to  rows  and  columns,  here,  apply  to  the  nontransposed  matrices. 
Thus  "row"  in  this  discussion  refers  to  the  second  index  of  CM  in  the  code. 
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For  a  structure  without  symmetry  the  submatrices  are  stored  in  the  order 


[A  B' 

C  D_ 


If  the  complete  matrix  is  too  large  for  the  array  CM  then  blocks  of  rows  are 
filled  and  written  on  file  11.  A  block  may  then  contain  rows  from  A  and  B, 
rows  from  C  and  D  or  a  combination.  The  row  of  CM  at  which  C  and  D  start  is 


computed  as  1ST. 

For  a  structure  having  p  symmetric  sections  the  submatrices  are  stored  in 


the  form 


A,  B  A  B  A  B' 

112  2  P  P 


C1  °1  C2  °2  Cp  Dp. 


where 


A.  B. 

1  i 


C.  D. 

.  i  i 


represents  A^  in  the  first  row  of  submatrices  in  equation  108  of  Part  I. 
Each  call  to  CMWW  and  CMWS  may  fill  elements  of  A^  or  C^  for  any  value  of 
i.  The  column  indices  in  array  JCO  are  adjusted  at  CM  55  to  allow  for  the 


columns  occupied  by  the  B.  and  D.  matrices.  B.  and  D.  are  filled  for 

ii  li 


each  value  of  i  in  the  loop  from  CM  75  to  CM  81.  The  Fourier  transform  of  the 
submatrices,  or  the  transform  for  planar  symmetry  (equation  116  of  Part  I)  is 
computed  from  CM  85  to  CM  100. 


SYMBOL  DICTIONARY 


IEXKX 


array  for  the  matrix 

number  of  first  equation  in  a  block  (patch  equation  +N  for 
patches) 

number  of  the  last  equation  in  a  block 

1  to  use  extended  thin  wire  kernel  on  wires,  0  otherwise 
number  of  first  patch  equation  in  a  block 


t 


; 


i 


.. 


R 


I* 


I’ 

i 
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CMSET 


IM2 

IN2 

IOUT 

I  PR 

1ST 

ISV 

IT 

IXBLK1 

JM1 

JM2 

JST 

MP2 

NEQ 

NOP 

NPEQ 

NROW 

RK.HX 


=  number  of  lasc  patch  equation  in  a  block 

*  number  of  the  last  segment  equation  in  a  block 
3  number  of  real  numbers  in  a  block  for  output 

3  row  in  CM  (second  index)  for  segment  J 

*  row  in  CM  of  the  first  patch  equation 
=  11-1 

=  number  of  rows  in  a  block 
3  block  number 

3  number  of  first  patch  in  a  symmetric  section 
3  number  of  the  last  patch  in  a  symmetric  section 
3  column  in  CM  of  the  first  patch  equation  for  a  symmetric  block 
3  number  of  patch  equations 
3  total  number  of  equations 
3  number  of  symmetric  sections 
3  number  of  equations  in  a  symmetric  section 
3  row  dimensions  of  the  transposed  CM  array 

3  minimum  interaction  distance  at  which  the  infinitesimal  dipole 
approximation  is  used  for  the  field  of  a  segment 


ZAJ 


CMSET 


1 

SUBROUTINE  CMSET  (NROW, CM. RKHX . IEXKX) 

CM 

1 

2 

C 

CM 

2 

3 

C 

CMSET  SETS  UP  THE  COMPLEX  STRUCTURE  MATRIX  IN  THE  ARRAY  CM 

CM 

3 

4 

C 

CM 

4 

5 

COMPLEX  CM . ZARRAY . ZAJ , ETK , ETS . ETC . EXK . EYK . EZK , EXS . EYS , EZS . EXC . EYC . 

CM 

5 

6 

1EZC.SSX.D. DETER 

CM 

6 

7 

COMMON  /DATA/  LD ,N1 , N2 ,N ,NP ,M1 .M2 ,M ,MP ,X(300) , Y( 300) , Z(300) , SI (300  CM 

7 

8 

1 ) . 8I( 300 ) . ALP( 300 ) . BET( 300 ) , ICON 1(300). IC0N2 ( 300 ) . ITAG( 300 ) . ICONX (  CM 

8 

9 

2300) .WLAM.IPSYM 

CM 

9 

10 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK , NLAST , NBLS YM , NPSYM , NLSYM , IMAT , I 

CM 

10 

1 1 

1 CASX , NBBX . NPBX . NLBX . NBBL . NPBL . NLBL 

CM 

1 1 

12 

COMMON  /SMAT/  SSX(16,16) 

CM 

12 

13 

COMMON  /SCRATM/  0(600) 

CM 

13 

14 

COMMON  /ZLOAD/  ZARRAY ( 300 ) , NLOAD , NLODF 

CM 

14 

15 

COMMON  /SEGJ/  AX( 30) , BX( 30) , CX( 30 ) , JCO( 30 ) , JSNO , ISC0N(50 ) , NSCON , IP 

CM 

15 

16 

1C0N( 10) .NPCON 

CM 

16 

17 

COMMON  /DATAJ/  S . B . X J . Y J . Z J . CAB J . SAB J .SALP J . EXK . EYK . EZK . EXS . EYS . EZ 

CM 

17 

18 

1 S . EXC . EYC . EZC . RKH , IEXK . IND1 , IND2 . IPGND 

CM 

18 

19 

DIMENSION  CM(NROW.I) 

CM 

19 

20 

MP2=2*MP 

CM 

20 

21 

NPEQ=NP+MP2 

CM 

21 

22 

NE0=N+2*M 

CM 

22 

23 

NOP=NEQ/NPEQ 

CM 

23 

24 

IF  (ICASE.GT.2)  REWINO  11 

CM 

24 

25 

RKH=RKHX 

CM 

25 

26 

IEXKsIEXKX 

CM 

26 

27 

I0UT=2»NPBLK»NR0W 

CM 

27 

28 

IT=NPBLK 

CM 

28 

29 

C 

CM 

29 

30 

C 

CYCLE  OVER  MATRIX  BLOCKS 

CM 

30 

31 

C 

CM 

31 

32 

DO  13  IXBLK1=1 .NBLOKS 

CM 

32 

33 

ISV=(IXBLK1-1 )*NPBLK 

CM 

33 

34 

IF  (IXBLK1 .EQ. NBLOKS)  IT=NLAST 

CM 

34 

35 

DO  1  1=1 , NROW 

CM 

35 

36 

DO  1  J=1 .IT  • 

CM 

36 

37 

1 

CM(I,J)=(0. .0.) 

CM 

37 

38 

I1=ISV+1 

CM 

38 

39 

I2=ISV+IT 

CM 

39 

40 

IN2=I2 

CM 

40 

41 

IF  (IN2.GT.NP)  IN2=NP 

CM 

41 

42 

IM1 =11  — NP 

CM 

42 

43 

IM2=I2-NP 

CM 

43 

44 

IF  (IM1 . LT . 1 )  IM1 =1 

CM 

44 

45 

IST=1 

CM 

45 

46 

IF  (I1.LE.NP)  IST=NP— 11 +2 

CM 

46 

47 

IF  (N.EQ.O)  GO  TO  5 

CM 

47 

48 

C 

CM 

48 

49 

c 

WIRE  SOURCE  LOOP 

CM 

49 

50 

c 

CM 

50 

51 

DO  4  J=1 , N 

CM 

51 

52 

CALL  TRIO  (J) 

CM 

52 

53 

DO  2  1=1 .JSNO 

CM 

53 

54 

IJ=JCO(I) 

CM 

54 

55 

2 

JC0(I)=((IJ-1 )/NP)*MP2+IJ 

CM 

55 

56 

IF  (11 . LE . IN2)  CALL  CMWW  ( J . 11 , IN2 , CM . NROW. CM , NROW. 1 ) 

CM 

56 

57 

IF  (IM1.LE.IM2)  CALL  CMWS  ( J . IM1 . IM2 ,CM( 1 . 1ST ), NROW, CM , NROW, 1 ) 

CM 

57 

58 

IF  (NLOAD. EQ.O)  GO  TO  4 

CM 

58 

59 

C 

CM 

59 

60 

C 

MATRIX  ELEMENTS  MODIFIED  BY  LOADING 

CM 

60 

61 

C 

CM 

61 

62 

IF  (J.GT.NP)  GO  TO  4 

CM 

62 

63 

IPR=J-ISV 

CM 

63 

64 

IF  (IPR.LT.1 .OR.IPR.GT.IT)  GO  TO  4 

CM 

64 

S» 
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65 

ZAJ=ZARRAY(J) 

CM 

65 

66 

DO  3  1=1 ,JSNO 

CM 

66 

67 

JSS=JC0(I) 

CM 

67 

68 

3 

CM(JSS.IPR)=CM(JSS,IPR)-(AX(I)+CX(I))*ZAJ 

CM 

68 

69 

4 

CONTINUE 

CM 

69 

70 

5 

IF  (M.EQ.O)  GO  TO  7 

CM 

70 

71 

C 

MATRIX  ELEMENTS  FOR  PATCH  CURRENT  SOURCES 

CM 

71 

72 

JM1 =1 -MP 

CM 

72 

73 

JM2=0 

CM 

73 

74 

JST=1 -MP2 

CM 

74 

75 

00  6  1=1 , NOP 

CM 

75 

76 

JM1 =JM1 +MP 

CM 

76 

77 

JM2=JM2+MP 

CM 

77 

78 

JST=JST+NPEQ 

CM 

78 

79 

IF  (I1.LE.IN2)  CALL  CMSW  ( JM1 , JM2 ,11 , IN2 ,CM( JST , 1 ) ,CM , 0 , NROW, 1 ) 

CM 

79 

80 

IF  (IM1.LE.IM2)  CALL  CMSS  ( JM1 , JM2 . IM1 . IM2 . CM( JST , 1ST) , NROW, 1 ) 

CM 

80 

81 

6 

CONTINUE 

CM 

81 

82 

7 

IF  (ICASE.EQ. 1 )  GO  TO  13 

CM 

82 

83 

IF  (ICASE.EQ. 3)  GO  TO  12 

CM 

83 

84 

C 

COMBINE  ELEMENTS  FOR  SYMMETRY  MODES 

CM 

84 

85 

DO  11  1=1 .IT 

CM 

85 

86 

DO  11  J=1 ,NPEQ 

CM 

86 

87 

DO  8  K=1 .NOP 

CM 

87 

88 

KA=J+(K— 1 ) *NPEQ 

CM 

88 

89 

8 

D(K)=CM( KA , I) 

CM 

89 

90 

DETER=D( 1 ) 

CM 

90 

91 

DO  9  KK=2 ,NOP 

CM 

91 

92 

9 

DETER=DETER+D(KK) 

CM 

92 

93 

CM( J , I)=DETER 

CM 

93 

94 

DO  11  K=2 , NOP 

CM 

94 

95 

KA=J+(K-1 )*NPEQ 

CM 

95 

96 

DETER=D( 1 ) 

CM 

96 

97 

DO  10  KK=2 . NOP 

CM 

97 

98 

10 

DETER=DETER+D(KK)*SSX(K,KK) 

CM 

98 

99 

CM(KA,I)=DETER 

CM 

99 

100 

11 

CONTINUE 

CM 

100 

101 

IF  (ICASE.LT. 3)  GO  TO  13 

CM 

101 

102 

c 

WRITE  BLOCK  FOR  OUT-OF-CORE  CASES. 

CM 

102 

103 

12 

CALL  BLCKOT  (CM , 1 1 . 1 , IOUT , 1 . 31 ) 

CM 

103 

104 

13 

CONTINUE 

CM 

104 

105 

IF  (ICASE.GT.2)  REWIND  11 

CM 

105 

106 

RETURN 

CM 

106 

107 

END 

CM 

107- 
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PURPOSE 

To  compute  and  score  matrix  elements  representing  the  H  field  at  patch 
centers  due  to  Che  current  on  patches. 


METHOD 

CMSS  computes  Che  matrix  elements  D.  .  defined  in  Che  description  of 
subroutine  CMSET.  Subroutine  HINTG  is  called  to  compute  the  magnetic  field  at 
the  center  of  patch  I  due  to  current  on  patch  J.  H  due  to  the  current  t^  on 
patch  J  is  stored  in  EXK,  EYK.  and  EZK,  while  H  due  to  current  t^  is  stored 
in  EXS,  EYS  and  EZS.  The  term  0.5  O  .  in  D.  •  is  added  at  CM  61  and  CM 
62  for  odd  and  even  equations.  The  matrix  elements  are  stored  in  array  CM 
from  SS63  to  SS78  in  either  normal  or  transposed  order.  Elements  for  both  the 
even  and  odd  equations  are  stored  if  both  equations  are  within  the  block. 


SYMBOL  DICTIONARY 


ICOMP 


3  array  for  matrix  storage 

3  D  .  for  k  odd,  j  odd 
xj 

3  D  .  for  k  odd,  j  even 
xj 

*  D  .  for  k  even,  j  odd 

xj 

*  D^j  for  k  even,  j  even 

3  patch  number  for  first  equation 
3  patch  number  for  last  equation 

3  equation  number  for  the  odd  numbered  equation  for 
observation  patch  I 

3  location  of  the  odd  numbered  equation  in  CM 
3  location  of  the  even  numbered  equation  in  CM 
3  array  location  for  coordinates  of  pi»tch  I 
3  patch  equation  number  for  first  equation  in  block 
3  patch  equation  number  for  last  equation  in  block 
3  0  or  1  to  select  normal  or  transposed  filling  of  CM 
3  number  of  first  source  patch 
3  number  of  last  source  patch 


CMSS 


wmmmm 


onifnanmnm 


nmnnmnnvm  raw,  raw,  «  n«wn 


JJ1 


JJ2 

JL 

NROW 

TIXI,  T1YI,  T1ZI 
T2XI,  T2YI,  T2ZI 

TIXJ,  T1YJ,  T1ZJ 
T2XJ,  T2YJ,  T2ZJ 
XI,  YI,  ZI 


column  in  non-transposed  matrix,  of  the  first 
equation  for  patch  J 

column  of  second  equation  for  patch  J 
array  location  for  coordinates  of  patch  J 
row  dimension  of  CM 


x,  y  and  z  components  of  t^  or  t2  for  patch  I 
or  J 


coordinates  of  center  of  patch  I 
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1 

SUBROUTINE  CMSS  ( J 1 , J2. IM1 , IM2 . CM , NROW, ITRP) 

SS 

1 

2  C 

CMSS  COMPUTES  MATRIX  ELEMENTS  FOR  SURFACE-SURFACE 

INTERACTIONS. 

SS 

2 

3 

COMPLEX  Oil  .G12.G21  .  G22  .CM,  EXK ,  EYK ,  EZK.,  EXS ,  EYS .  EZS .  EXC ,  EYC ,  EZC 

SS 

3 

4 

COMMON  /DATA/  LD ,N1 ,N2 ,N ,NP ,M1 ,M2 ,M,MP ,X(300) . Y(300) ,Z(300) , SI(300  SS 

4 

S 

1 ) .81(300) , ALP (300) , BET (300) , IC0N1 (300) , ICON 2 ( 300) , ITAG( 300) , ICONX( 

SS 

3 

6 

2300) .WLAM.IPSYM 

SS 

6 

7 

COMMON  /ANGL/  SALP(300) 

SS 

7 

8 

COMMON  /OATAJ/  S . B . XJ . YJ ,ZJ .CABJ . SABJ .SALP J . EXK . EYK , EZK , EXS , EYS , EZ 

SS 

6 

9 

1 S . EXC . EYC . EZC . RKH , IEXK , IND1 . IN02 , IPGNO 

SS 

9 

10 

DIMENSION  CM(NROW.I) 

SS 

10 

11 

DIMENSION  T1X( 1 ) ,  T1Y(1).  T1Z(1).  T2X(l),  T2Y(1). 

T2Z( 1 ) 

SS 

11 

12 

EQUIVALENCE  (T1X.SI),  (T1Y.ALP).  (T1Z.BET),  (T2X.IC0N1),  (T2Y.IC0N 

SS 

12 

13 

12).  (T2Z.ITAG) 

SS 

13 

14 

EQUIVALENCE  (T1XJ.CABJ).  (T1YJ.SABJ).  ( T1 Z J . SALP J) .  (T2XJ.B),  (T2Y  SS 

14 

IS 

1J.IND1),  (T2ZJ.IND2) 

SS 

15 

16 

LDP=LD+1 

SS 

16 

17 

I1=(IM1+1 )/2 

SS 

17 

18 

I2=(IM2+1 )/2 

SS 

18 

19 

ICOMP=I 1*2-3 

SS 

19 

20 

II1=— 1 

SS 

20 

21 

IF  ( ICOMP+2 . LT .  IM1  )  II1=-2 

SS 

21 

22  C 

LOOP  OVER  OBSERVATION  PATCHES 

SS 

22 

23 

DO  5  1=11,12 

SS 

23 

24 

IL=LDP— I 

SS 

24 

23 

IC0MP=IC0MP+2 

SS 

25 

26 

II 1=11 1+2 

SS 

26 

27 

112=1X1+1 

SS 

27 

28 

T1XI=T1X(IL)*SALP(IL) 

SS 

28 

29 

T1YI=T1Y(IL)*SALP(IL) 

SS 

29 

30 

T1ZI=T1Z(IL)*SALP(IL) 

SS 

30 

31 

T2XI=T2X(IL)*SALP(IL) 

SS 

31 

32 

T2YI=T2Y(IL)*SALP(IL) 

SS 

32 

33 

T2ZI=T2Z( IL) *SALP(IL) 

SS 

33 

34 

XI=X(IL) 

SS 

34 

3S 

YI=Y(IL) 

SS 

35 

36 

ZI=Z(IL) 

SS 

36 

37 

J  J 1  =— 1 

SS 

37 

38  C 

LOOP  OVER  SOURCE  PATCHES 

SS 

38 

39 

DO  3  J=J1 ,J2 

SS 

39 

40 

JL=LDP-J 

SS 

40 

41 

JJ1=JJ1+2 

SS 

41 

42 

JJ2=JJ1+1 

SS 

42 

43 

S=BI(JL) 

SS 

43 

44 

XJ=X(JL) 

SS 

44 

45 

YJ=Y( JL) 

SS 

45 

46 

ZJ=Z( JL) 

SS 

46 

47 

T1 X J=T1 X( JL) 

SS 

47 

48 

T1YJ=T1Y(JL) 

SS 

48 

49 

T1ZJ=T1Z( JL) 

SS 

49 

30 

T2XJ=T2X( JL) 

SS 

SO 

31 

T2YJ=T2Y( JL) 

SS 

51 

32 

T2ZJ=T2Z( JL) 

SS 

52 

33 

CALL  HINTG  (XI.YI.ZI) 

SS 

S3 

34 

G1 1=-( T2XI*EXK+T2YI*EYK+T2ZI*EZK) 

SS 

54 

S3 

G12=-(T2XI*EXS+T2YI*EYS+T2ZI*EZS) 

SS 

35 

36 

G21 =-( T1 XI*EXK+T1 YI*EYK+T1 ZI*EZK) 

SS 

56 

57 

G22=-(T1XI*EXS+T1 YI*EYS+T1 ZI*EZS) 

SS 

57 

38 

IF  (I.NE.J)  GO  TO  1 

SS 

58 

39 

G1 1=G1 1-.5 

SS 

39 

60 

G22=G22+. 3 

SS 

60 

61  1 

IF  ( ITRP .NE . 0)  GO  TO  3 

SS 

61 

62  C 

NORMAL  FILL 

SS 

62 

63 

IF  (ICOMP.LT. IM1)  GO  TO  2 

SS 

63 

64 

CM( III , J J 1  )=G1  1 

SS 

64 
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65 

CM(II1 , JJ2)=G12 

66  2 

IF  (IC0MP.GE.IM2) 

GO 

TO  5 

67 

CM( 112 , J J1 )=G2 1 

68 

CM(II2. JJ2)=G22 

69 

GO  TO  5 

70  C 

TRANSPOSED  FILL 

71  3 

IF  (IC0MP.LT.IM1 ) 

GO 

TO  4 

72 

CM( J J1 , III )=G1 1 

73 

CM( J J2 , III )=C1 2 

74  4 

IF  (ICOMP.GE.IM2) 

GO 

TO  5 

75 

CM( J J 1 , II2)=G21 

76 

CM( JJ2 . II2)=G22 

77  5 

CONTINUE 

78 

RETURN 

79 

END 

SS 

ss 

SS 

ss 

ss 

ss 

ss 

ss 

ss 

ss 

S3 

ss 

ss 

ss 

ss 


65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
79- 


o 
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PURPOSE 

To  compute  and  store  matrix  elements  representing  the  electric  field  at 
segment  centers  due  to  the  current  on  patches. 


METHOD 


SW30  -  SW35 
SW36  -  SW42 


SW48  -  SW57 


SM61  -  SW86 


SW88  -  SU96 


Coordinates  of  observation  segment  are  stored. 

If  either  end  of  the  observation  segment  connects  to  a 
surface  IPCH  is  set  to  the  number  of  the  first  of  the 
four  patches  at  the  connection  point. 

Coordinates  of  the  source  patch  are  stored  in 
COMMON/DATAJ/. 

IF  IPCH  *  J  then  patch  J  is  the  first  patch  at  the  point 
where  segment  I  connects  to  the  surface.  Subroutine 
PCINT  is  called  to  integrate  the  current  over  the  four 
patches  at  the  connection  point.  The  current  on  the 
patches  includes  the  eight  basis  functions  of  the  four 
patches  and  a  portion  of  the  basis  function  from  the 
segment.  Hence  contributions  to  nine  matrix  elements  are 
generated  and  stored  in  array  EMEL.  The  field  due  to  the 
segment  basis  function  extending  onto  the  patches  is 
stored  in  array  CW  at  SW76  or  SW78.  The  fields  due  to 
the  first  patch  basis  function,  EMEL(l)  and  EMEL(S),  are 
then  stored  in  array  CM  at  SU80  and  SW81  or  at  SW83  and 
SW84.  ICGO  is  then  incremented.  For  the  next  three 
times  through  the  loop  over  J  the  call  to  PCINT  is 
skipped  at  SW63  and  the  remaining  values  in  EMEL  are 
stored. 

If  segment  I  and  patch  J  are  not  connected,  subroutine 

UNERE  is  called  to  compute  the  electric  field  due  to  the 

current  on  the  patch  with  the  current  treated  as  Hertzian 
dipoles  in  the  directions  t^  and  t2«  The  matrix 

elements  are  stored  in  CM. 


Pv\  W  W 


CHSW 

SU102  -  SW138  This  is  a  special  section  of  code  to  compute  the  electric 
field  due  to  the  component  of  a  segment  basis  function 
that  extends  onto  connected  patches.  It  is  used  at  line 
CGI 12  of  subroutine  CMNGF  for  the  case  where  the 
connected  segment  and  patches  are  in  the  NGF  file  and  a 
new  segment  is  connected  to  the  outer  end  of  the  NGF 
segment  modifying  its  basis  function.  Subroutine  POINT 
is  called  to  evaluate  the  nine  matrix  elements.  Only 
EMEL(9)  is  used  since  the  patch  basis  functions  have  not 
been  modified. 

SYMBOL  DICTIONARY 

CABI  *  x  component  of  x  in  direction  of  segment  I 

CM  a  array  for  E  due  to  patch  basis  functions 

CW  ■  array  for  E  due  to  segment  basis  function  extending  onto 

surface  at  connection  point 

EMEL  ■  array  of  matrix  elements  from  integrating  over  surface 

FSIGN  *  +1  depending  on  which  end  of  segment  connects  to  surface 

11  a  number  of  first  observation  segment 

12  a  number  of  last  observation  segment 

ICG0  a  index  for  matrix  elements  at  connection  point 

IL  a  index  for  segment  basis  function  in  CW 

IP  a  1  for  direct  field,  2  for  image  in  ground 

IPCH  a  number  of  first  patch  connecting  to  a  segment 

ITRP  a  0  for  normal  matrix  fill 

1  for  transposed  fill 
-1  for  special  NGF  case 
J  a  source  patch 

J1  a  first  source  patch 

J2  a  last  source  patch 

JL  a  index  for  source  patch  in  CM 

JS  a  index  for  patch  coordinates 

K  a  index  in  CM  or  CW  for  observation  segment 

NCW  a  index  offset  for  CW 


i 
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SALPI 

XI,  YI,  ZI 


»  number  of  equations  excluding  NGF 
>  row  dimensions  of  CM  and  CW 
-  pi 

■  sin  k(s  -  Sq)  for  a  at  the  end  of  the  segment 

*  cos  k(s  -  sq)  connected  to  the  surface 

a  y  component  of  I  in  direction  of  segment  I 

■  z  component  of  i  in  direction  of  segment  I 

*  center  of  observation  segment 


1 

SUBROUTINE  CMSW  ( J 1 , J2 . 11 , 12 .CM .CW.NCW, NROW. ITRP) 

SW 

1 

2 

C 

COMPUTES  MATRIX  ELEMENTS  FOR  E  ALONG  WIRES  DUE  TO  PATCH  CURRENT 

SW 

2 

3 

COMPLEX  CM . ZRATI . ZRATI2 . T 1 . EXK . EYK , EZK . EXS . EYS . EZS . EXC . EYC . EZC . EME 

SW 

3 

4 

1L.CW.FRATI 

SW 

4 

S 

COMMON  /DATA/  LD . N1 ,N2 . N , NP ,M1 ,M2 ,M ,MP . X(300 ) , Y( 300) , Z( 300) . SI( 300 

SW 

5 

6 

1 ) .01(300) , ALP (300) , BET (300) , IC0N1 (300) . IC0N2( 300) . ITAG( 300) , ICONX( 

SW 

6 

7 

2300) .WLAM.IPSYM 

SW 

7 

8 

COMMON  /ANGL/  SALP(300) 

SW 

8 

9 

COMMON  /GND/ZRATI . ZRATI2 . FRATI . CL . CH . SCRWL . SCRWR , NRADL , KSYMP , IFAR , 

SW 

9 

to 

1IPERF.T1.T2 

SW 

10 

11 

COMMON  /OATAJ/  S . B .X J . YJ . Z J .CAB J .SABJ . SALP J . EXK . EYK . EZK . EXS , EYS . EZ 

SW 

1 1 

12 

1 S . EXC . EYC . EZC . RKH . IEXK . IN01 . IN02 . IPGND 

SW 

12 

13 

COMMON  /SEGJ/  AX( 30 ) , 8X( 30) , CX( 30 ) , JCO( 30) , JSNO , ISCON( 50) , NSCON , IP 

SW 

13 

14 

1C0N( 10) , NPCON 

SW 

14 

15 

DIMENSION  CAB ( 1 ) ,  SAB(1).  CM(NROW.I),  CW(NROW.I) 

SW 

15 

16 

DIMENSION  T1 X( 1 ) ,  T1 Y( 1 ) .  T1Z(1).  T2X(1).  T2Y(1).  T2Z( 1 ) .  EMEL(9) 

SW 

16 

17 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP).  (T1Z.BET).  (T2X.IC0N1).  (T2Y.IC0N 

SW 

17 

18 

12).  (T2Z.ITAG).  (CAB. ALP).  (SAB. BET) 

SW 

18 

It 

EQUIVALENCE  (T1XJ.CABJ).  (T1YJ.SABJ).  (T1ZJ.SALPJ) .  (T2XJ.B),  (T2Y 

SW 

19 

20 

1J.IN01).  (T2ZJ.IN02) 

SW 

20 

21 

DATA  PT/3. 141592654/ 

FW 

21 

22 

LDP*  .  cl 

SW 

22 

23 

NEQS=N-N1 ♦2« (M-M1 ) 

SW 

23 

24 

IF  (ITRP.LT.O)  GO  TO  13 

SW 

24 

25 

K*0 

SW 

25 

26 

ICG0=1 

SW 

26 

27 

C 

OBSERVATION  LOOP 

SW 

27 

28 

DO  12  1*11 .12 

SW 

28 

29 

K*K41 

SW 

29 

30 

XI*X(I) 

SW 

30 

31 

YI*Y( I) 

SW 

31 

32 

ZI=Z(I) 

SW 

32 

33 

CABI=CAB( I) 

SW 

33 

34 

SABI*SAB( I) 

SW 

34 

35 

SALPI=SALP( I ) 

SW 

35 

36 

IPCH=0 

SW 

36 

37 

IF  (IC0N1 (I) .LT. 10000)  GO  TO  1 

SW 

37 

38 

IPCH=IC0N1 ( I ) — 1 0000 

SW 

3e 

39 

FSIGN=-1 . 

SW 

39 

40 

1 

IF  (IC0N2(I).LT. 10000)  GO  TO  2 

SW 

40 

41 

IPCH=IC0N2( I)— 1 0000 

SW 

41 

42 

FSIGN=1 . 

SW 

42 

43 

2 

JL=0 

SW 

43 

44 

C 

SOURCE  LOOP 

SW 

44 

45 

DO  12  J=J1 . J2 

SW 

45 

46 

JS=LDP-J 

SW 

46 

47 

JL=JL+2 

SW 

47 

48 

T1XJ=T1X(JS) 

SW 

48 

49 

T1YJ=T1Y( JS) 

SW 

49 

50 

T1ZJ=T1Z(JS) 

SW 

50 

51 

T2XJ=T2X( JS) 

SW 

51 

52 

T2Y  J=T2Y( JS) 

SW 

52 

53 

T2ZJ=T2Z( JS) 

SW 

53 

54 

XJ=X( JS) 

SW 

54 

55 

YJ=Y(JS) 

SW 

55 

56 

ZJ=Z(JS) 

SW 

56 

57 

S=BI( JS) 

SW 

57 

58 

c 

GROUND  LOOP 

SW 

58 

59 

DO  12  IP=1, KSYMP 

SW 

59 

60 

IPGND=IP 

SW 

60 

61 

IF  ( IPCH . NE . J . AND . ICGO . EQ . 1  )  GO  TO  9 

SW 

61 

62 

IF  (IP.EQ.2)  GO  TO  9 

SW 

62 

63 

IF  (ICG0.GT.1)  GO  TO  6 

SW 

63 

64 

CALL  PCINT  (XI. YI.ZI.CABI.SABI.SALPI.EMEL) 

SW 

64 
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65 

PY=PI*SI(I)*FSIGN 

SW 

65 

66 

PX=SIN(PV) 

SW 

66 

67 

PY=C0S(  i  Y) 

SW 

67 

68 

EXC=EMEL(9 ) *FSIGN 

SW 

68 

69 

CALL  TRIO  (I) 

SW 

69 

70 

IF  (I.GT.N1)  GO  TO  3 

SW 

70 

71 

IL=NEQS+ICONX  ( I ) 

SW 

71 

72 

GO  TO  4 

SW 

72 

73 

3 

IL=I-NCW 

SW 

73 

74 

IF  (I.LE.NP)  IL=((IL-1 )/NP)*2*MP+IL 

SW 

74 

75 

4 

IF  (ITRP.NE.O)  GO  TO  5 

SW 

75 

76 

CW(K,IL)=CW(K,IL)+EXC*(AX( JSNO)+BX( JSNO) *PX+CX( JSNOl *PY) 

SW 

76 

77 

GO  TO  6 

SW 

77 

78 

5 

CW(IL , K)=CW( IL , K)+EXC*(AX( JSNO)+BX( JSNO) *PX+CX( JSNO) *PY ) 

SW 

78 

79 

6 

IF  (ITRP.NE.O)  GO  TO  7 

SW 

79 

80 

CM(K. JL-1 )=EMEL( ICGO) 

SW 

80 

81 

CM(K, JL)=EM£L( ICGO+4) 

SW 

81 

82 

GO  TO  8 

SW 

82 

83 

7 

CM( JL-1 ,K)=EMEL(ICGO) 

SW 

83 

84 

CM( J  L , K ) =EMEL ( ICGO+4 ) 

SW 

84 

85 

a 

ICG0=ICG0+1 

SW 

85 

86 

IF  ( ICGO. EQ .5)  ICG0=1 

SW 

86 

87 

GO  TO  11 

SW 

87 

88 

9 

CALL  UNERE  (XI.YI.ZI) 

SW 

88 

89 

IF  (ITRP.NE.O)  GO  TO  10 

SW 

89 

90 

C 

NORMAL  FILL 

SW 

90 

91 

CM(K. JL-1 )=CM(K , JL-1 )+EXK*CABI+EYK*SABI+EZK*SALPI 

SW 

91 

92 

CM(K, JL)=CM(K,JL)+EXS*CABI+EYS»SABI+EZS»SALPI 

SW 

92 

93 

GO  TO  11 

SW 

93 

94 

C 

TRANSPOSED  FILL 

SW 

94 

95 

10 

CM(JL— 1 ,K)=CM( JL-1 .K)+EXK»CABI+EYK»SABI+EZK*SALPI 

SW 

95 

96 

CM(  JL ,  K)=CM(  JL ,  K)+EXS*CABI+EYS*SABI+EZS*SALPI 

SW 

96 

97 

11 

CONTINUE 

SW 

97 

98 

12 

CONTINJE 

SW 

98 

99 

RETURN 

SW 

99 

100 

C 

FOR  OLD  SEG.  CONNECTING  TO  OLD  PATCH  ON  ONE  END  AND  NEW  SEG.  ON 

SW 

100 

101 

C 

OTHER  END  INTEGRATE  SINGULAR  COMPONENT  (9)  OF  SURFACE  CURRENT  ONLY 

SW 

101 

102 

13 

IF  (J1 .LT.I1 .OR. J1 .GT.I2)  GO  TO  16 

SW 

102 

103 

IPCH=IC0N1 ( J 1 ) 

SW 

103 

104 

IF  (IPCH.LT. 10000)  GO  TO  14 

SW 

104 

105 

IPCH=IPCH-1 0000 

SW 

105 

106 

FSIGN=-1 . 

SW 

106 

107 

GO  TO  15 

SW 

107 

108 

14 

IPCH=IC0N2( J 1 ) 

SW 

108 

109 

IF  (IPCH.LT. 10000)  GO  TO  16 

SW 

109 

110 

IPCH=IPCH-1 0000 

SW 

110 

111 

FSIGN=1 . 

SW 

1 1 1 

112 

15 

IF  (IPCH.GT.M1 )  GO  TO  16 

SW 

112 

113 

JS=LDP-IPCH 

SW 

113 

114 

IPGN0=1 

SW 

114 

115 

T1XJ=T1X(JS) 

SW 

115 

116 

T1YJ=T1Y(JS) 

SW 

1  16 

117 

T1ZJ=T1Z( JS) 

SW 

117 

118 

T2X J=T2X( JS) 

SW 

118 

119 

T2YJ=T2Y( JS) 

SW 

119 

120 

T2Z J=T2Z( JS) 

SW 

120 

121 

XJ=X( JS) 

SW 

121 

122 

YJ=Y( JS) 

SW 

122 

123 

ZJ=Z(JS) 

SW 

123 

124 

S=BI( JS ) 

sw 

124 

125 

XI=X( J1 ) 

SW 

125 

126 

YI=Y( J 1 ) 

sw 

126 

127 

ZI=Z( J 1  ) 

sw 

127 

128 

CABI=CAB( J 1  ) 

sw 

128 
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129 

SABI=SAB(J1 ) 

SW  129 

130 

SALPI=SALP(J1 ) 

SW  130 

131 

CALL  PCINT  (XI , YI , ZI , CABI .SABI , SALPI , EMEL  ) 

SW  131 

132 

PY=PI*SI( Jl )*FSIGN 

SW  132 

133 

PX=SIN(PY ) 

SW  133 

134 

PY=COS(PY) 

SW  134 

135 

EXC=EMEL(9)»FSIGN 

SW  135 

136 

IL=JC0( JSNO) 

SW  136 

137 

K=J 1—11+1 

SW  137 

136 

CW(K , IL)=CW(K , IL)+EXC*( AX ( JSNO) +BX( JSNO) *PX+CX( JSNO) *PY ) 

SW  138 

139  16 

RETURN 

SW  139 

140 

END 
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CMWS 

PURPOSE 

To  compute  and  store  matrix  elements  representing  the  magnetic  field  at 
patch  centers  due  to  the  current  on  wire  segments. 


METHOD 

Matrix  elements  are  computed  for  patch  equations  numbered  11  through  12 
with  the  source  segment  J.  For  odd  numbered  equations  the  matrix  element 
represents  the  first  term  on  the  right  side  of  equation  14  of  Part  I.  For 
even  numbered  equations  it  is  the  negative  of  the  first  term  on  the  right  side 
of  equation  15.  For  equation  II  and  for  all  odd  numbered  equations  subroutine 


HSFLD  is  called  to  compute  the  H  field  at  the  center  of  the  patch  due  to 
constant,  sin  k(s  -  sq)  and  cos  k(s  -  sq)  currents  on  segment  J.  The 


required  component  of  the  field,  -t^  *  H  or  -t^  *  H  for  odd  or  even 


equations  respectively,  is  computed  from  WS49  to  WS51.  Multiplication  by 
SALP(JS)  reverses  the  sign  when  (t^,  t^,  n)  has  a  left-hand  orientation  on 
a  patch  formed  by  reflection.  The  field  component  for  each  basis  function 
component  on  segment  J  is  computed  and  stored  for  WS56  through  WS75.  Storage 


of  the  matrix  elements  is  similar  to  that  in  subroutine  CMWW. 


SYMBOL  DICTIONARY 


*  array  for  matrix  elements 
■  array  for  matrix  elements  (NGF  only) 


-t^  *  H  or  -t^  *  H  due  to  current  of  constant, 


sin  k(s  -  Sq),  or  cos  k(s  -  Sq)  respectively 


I  PATCH 


=  equation  number 

*  number  of  first  equation 
s  number  of  second  equation 

*  0  if  I  is  even,  1  if  I  is  odd 

*  patch  number  for  equation  I 

=  relative  matrix  location  for  equation  I.  Position  in  complete 
matrix  depends  on  the  address  of  CM  in  the  call  to  CMWS 
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ITRP 


J 

JS 

JX 

LDP 

NR 

NW 

TX' 

TY  ► 

TZ. 

XI' 

YI  ■ 

ZI. 


»  0  for  non-transposed  fill 

1  for  Cransposed  fill 

2  for  transposed  fill  for  NGF 

■  source  segment  number 

-  location  in  COMMON/DATA/  of  parameters  for  patch  J 
»  matrix  index  for  a  particular  basis  function 

-  LD  +  1 

*  row  dimension  of  CM 
»  row  dimension  of  CW 

A  A 

■  x,  y,  and  z  components  of  t^  or  t^ 


*  x,  y  and  z  coordinates  of  the  center  of  the  patch  at 
which  the  field  is  computed 


CMWS 


SUBROUTINE  CMHS  ( J . II . 12 . CM. NR . CW, NW, ITRP) 

CkWS  COMPUTES  MATRIX  ELEMENTS  FOR  WIRE-SURFACE  INTERACTIONS 

COMPLEX  CM . CW. ETK , ETS . ETC . EXK , EYK . EZK . EXS . EYS . EZS , EXC . EYC . EZC 
COMMON  /DATA/  LD.N1 .N2.N.NP.M1 ,M2 .M ,MP . X(300) ,Y(300) ,Z(300) ,SI(300 
1 ). , 81(300) , ALP ( 300) , BET (300) , IC0N1 (300) , IC0N2(300) , I TAG (300 ) , ICONX( 
2300 ) , WLAM , IPSYM 
COMMON  /ANGL/  SALP(300) 

COMMON  /SEGJ/  AX(30) . BX(30) . CX(30) , JCO( 30) . JSNO . ISCON(50) .NSCON.IP 
1  CON ( 1 0 ) , NPCON 

COMMON  /DATAJ/  S . 0 . X J . YJ ,Z J .CAB J .SABJ . SALP J . EXK , EYK . EZK . EXS , EYS . EZ 
1 S , EXC . EYC . EZC . RKH . IEXK , IND1 . IN02 , IPGND 
DIMENSION  CM(NR.I),  CW(NW.I).  CAB(1),  SAB(1) 

DIMENSION  T1X(1),  T1Y(1).  T1Z(l),  T2X(1),  T2Y(1),  T2Z(1) 
EQUIVALENCE  (CAB. ALP).  (SAB, BET),  (T1X.SI),  (T1Y.ALP),  (T1Z.BET) 
EQUIVALENCE  (T2X.IC0N1),  (T2Y.IC0N2).  (T2Z.ITAG) 

LDP=LD+1 
S=SI( J ) 

8=BI( J ) 

XJ=X(J) 

YJ=Y(J) 

ZJ=Z(J) 

CAB J=CAB( J ) 

SABJ=SAB( J) 

SALP J=SALP( J ) 

OBSERVATION  LOOP 

IPR=0 

DO  9  1=11 .12 
IPR=IPR+1 
IPATCH=( 1+1 )/2 
IK=I-(I/2)*2 

IF  ( IK . EQ . 0 . AND . IPR . NE . 1 )  GO  TO  1 

JS=LDP-IPATCH 

XI=X(JS) 

YI=Y( JS) 

ZI=Z(JS) 

CALL  HSFLD  (XI , YI ,ZI . 0  .  ) 

IF  (IK.EQ.O)  GO  TO  1 
TX=T2X( JS) 

TY=T2Y( JS ) 

TZ=T2Z( JS) 

GO  TO  2 
TX=T1 X( JS) 

TY=T1 Y( JS) 

TZ=T1 Z( JS) 

ETK=-(EXK*TX+EYK»TY+EZK»TZ)*SALP( JS) 

ETS=-(EXS*TX+EYS*TY+EZS*TZ) *SALP( JS) 

ETC=-( EXC*TX+EYC*TY+EZC*TZ)*SALP( JS) 

FILL  MATRIX  ELEMENTS.  ELEMENT  LOCATIONS  DETERMINED  BY  CONNECTION 
DATA. 

IF  (ITRP.NE.O)  GO  TO  4 
NORMAL  FILL 
DO  3  I J=1 , JSNO 
JX=JCO(IJ) 

CM( IPR , JX )=CM( IPR,JX)+ETK*AX(IJ)+ETS*BX(IJ)+ETC*CX(IJ) 

GO  TO  9 

IF  (ITRP.EQ.2)  GO  TO  6 
TRANSPOSED  FILL 
DO  5  IJ=1 .JSNO 
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WS  10 
WS  11 
WS  12 
WS  13 
WS  14 
WS  15 
WS  16 
WS  17 
WS  18 
WS  19 
WS  20 
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WS  23 
WS  24 
WS  25 
WS  26 
WS  27 
WS  28 
WS  29 
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WS  47 
WS  48 
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WS  51 
WS  52 
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WS  55 
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WS  59 
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CMWS 


65 

JXaJCO(IJ) 

WS 

65 

66 

5 

CM( JX , IPR)=CM( JX . IPR)+ETK*AX( I J )+ETS*BX( I J )+ETC*CX( I J ) 

WS 

66 

67 

GO  TO  9 

WS 

67 

68 

C 

TRANSPOSED  FILL  -  C(WS)  AND  D(WS)PRIME  (=CW) 

WS 

68 

69 

6 

DO  8  I J=1 , JSNO 

WS 

69 

70 

JX=JC0(IJ) 

WS 

70 

71 

IF  (JX.GT.NR)  GO  TO  7 

WS 

71 

72 

CM( JX , IPR)=CM( JX . IPR)+ETK*AX(IJ)+ETS*BX(IJ )+ETC*CX( I J ) 

WS 

72 

73 

GO  TO  8 

WS 

73 

74 

7 

JX=JX-NR 

WS 

74 

75 

CW(JX,IPR)=CW(JX.IPR)+ETK»AX(IJ)+ETS«BX(IJ)+ETC*CX(IJ) 

WS 

75 

76 

8 

CONTINUE 

WS 

76 

77 

9 

CONTINUE 

WS 

77 

78 

RETURN 

WS 

78 

79 

END 

WS 
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PURPOSE 


To  call  subroutines  to  compute  the  electric  field  at  segment  centers  due 
to  current  on  other  segments  and  to  store  matrix  elements  in  array  locations. 


METHOD 


WW17  -  WW24 


WW27  -  WW43 


WW44  -  WW60 


UW66 


Parameters  of  source  segment  (J)  are  stored  in 
COMMON/DATAJ/. 

First  end  of  segment  J  is  tested  to  determine  whether  the 
extended  thin  wire  approximation  can  be  used.  It  cannot 
be  used  at  a  junction  of  more  than  two  wires  (WW30),  at  a 
bend  (WW37),  at  a  change  in  radius  (WW38),  or  at  the  base 
of  a  non-vertical  segment  connected  to  the  ground  (WW33). 
Second  end  of  segment  J  is  tested. 

Loop  over  observation  segments  ranges  from  11  to  12.  The 
index  IPR  starts  at  1  so  the  matrix  element  for  11  is 


stored  in  the  first  row  or  column  of  the  array  CM.  The 
location  in  the  complete  matrix  is  determined  by  the 
address  given  for  CM  when  CMWW  is  called. 

WW76  EFLD  computes  the  electric  fields  at  (XI,  YI,  ZI)  due  to 

segment  J  and  stores  them  in  COMMON/DATAJ/. 

WW77  -  WW79  Electric  field  tangent  to  segment  I  is  computed. 

WW84  -  WW103  Matrix  elements  are  formed  by  combining  the  field 


WW92  -  WW94 


components. 

WW86  -  WW88  Matrix  elements  are  stored  in  non-transposed  order. 

WW92  -  WW94  Matrix  elements  are  stored  in  transposed  order. 

WW97  -  WW104  When  the  source  segment  is  from  a  NGF  file  the  matrix 

elements  will  normally  be  stored  in  submatrix  C  of  the 
NGF  matrix  structure.  When  the  segment  connects  to  a  new 
segment,  however,  contributions  to  submatrix  D  result. 


The  C  and  D  contributions  are  stored  in  CM  and  CW, 


respectively,  in  transposed  order. 


rye  /' 


(■*%  «V  «V 


CMWW 


SYMBOL  DICTIONARY 
AI 

CABI 

CM 

cw 

ETK 
ETS 
ETC 

11 

12 
IJ 
IPR 
ITRP 


J 

JX 

NR 

NU 

SABI 

SALPI 


■  radius  of  observation  segment 

■  x  component  of  unit  vector  in  direction  of  segment 

*  array  for  matrix  elements 

*  array  for  matrix  elements  (NGF  only) 

*  E  field  tangent  to  segment  I  due  to  current  of 
constant,  sin  k(s  -  s^)  and  cos  k(s  -  Sq) 
distribution,  respectively,  on  segment  J. 

*  first  observation  segment 

*  final  observation  segment 

■  0  for  special  treatment  when  I  ■  J 

*  relative  matrix  location  for  observation  point 

*  0  for  non- transposed  fill 

1  for  transposed  fill 

2  for  transposed  fill  for  NGF 

*  source  segment  number 

*  matrix  index  for  a  particular  basis  function 

*  row  dimension  of  CM 

■  row  dimension  of  CW 

■  y  component  of  unit  vector  in  direction  of  segment 

*  z  component  of  unit  vector  in  direction  of  segment 


XI,  YI,  ZI  ■  coordinates  of  center  of  segment  I. 


CONSTANTS 

0.999999 


*  test  for  collinear  segments 


* 

* 

I 

I 


! 

* 

I 

t 


I 

I 
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CMWW 


1 

SUBROUTINE  CMWW  ( J .11 ,I2.CM.NR.CW.NW,ITRP) 

VWV 

1 

2 

C 

VWV 

2 

3 

c 

CMWW  COMPUTES  MATRIX  ELEMENTS  FOR  WIRE-WIRE  INTERACTIONS  VW 

3 

4 

c 

VWV 

4 

5 

COMPLEX  CM . CW. ETK . ETS , ETC . EXK . EYK . EZK . EXS , E YS , 

,  EZS 

.EXC,  EYC,  EZC  VWV 

5 

6 

COMMON  /DATA/  LD.N1 ,N2 ,N ,NP ,M1 ,M2 ,M.MP , X(300) , 

, Y(300) ,Z(300) , SI (300  VWV 

6 

7 

1 ) .81(300) . ALP( 300 ) .BET (300) .ICON 1 (300) . IC0N2(300) 

, ITAG(300) ,ICONX(  VWV 

7 

8 

2300) .WLAM.IPSYM 

VWV 

8 

9 

COMMON  /ANGL/  SALP(300) 

VWV 

9 

10 

COMMON  /SEGJ/  AX(30) . BX(30) ,CX(30) . JC0(30) . JSNO . ISCON(50) .NSCON , IP  WW 

10 

11 

1C0N(10) .NPCON 

ww 

11 

12 

COMMON  /OATAJ/  S . B.XJ . YJ .ZJ ,CABJ .SABJ .SALPJ . EXK .EYK . EZK. EXS . EYS.EZ  VWV 

12 

13 

1 S . EXC . EYC . EZC , RKH , IEXK . IN01 . IN02 . IPGNO 

WW 

13 

14 

DIMENSION  CM(NR.I).  CW(NW.I),  CAB(1).  SAB(1) 

VWV 

14 

IS 

EQUIVALENCE  (CAB, ALP) ,  (SAB. BET) 

VWV 

15 

16 

c 

SET  SOURCE  SEGMENT  PARAMETERS 

VWV 

16 

17 

SsSI(J) 

VWV 

17 

18 

B=8I(J) 

VWV 

18 

19 

XJ-X(J) 

ww 

19 

20 

YJ*Y(J) 

ww 

20 

21 

ZJ=Z(J) 

WW 

21 

22 

CABJ=CAB( J) 

VWV 

22 

23 

SABJ— SAB( J) 

WW 

23 

24 

SALPJ*SALP(J) 

VWV 

24 

25 

IF  (IEXK. EQ .0)  GO  TO  16 

WW 

25 

26 

c 

DECIDE  WETHER  EXT.  T.W.  APPROX.  CAN  BE  USED 

m 

26 

27 

IPR=ICONt(J) 

WW 

27 

28 

IF  (IPR)  1 ,6.2 

WW 

28 

29 

1 

IPR=-IPR 

WW 

29 

30 

IF  (-ICONI(IPR).NE.J)  GO  TO  7 

WW 

30 

31 

GO  TO  4 

WW 

31 

32 

2 

IF  (IPR.NE.J)  GO  TO  3 

WW 

32 

33 

IF  (CABJ*CABJ+SABJ*SABJ .GT. 1 .E-8)  GO  TO  7 

WW 

33 

34 

GO  TO  5 

WW 

34 

35 

3 

IF  (IC0N2( IPR) . NE . J )  GO  TO  7 

WW 

35 

36 

4 

XI=ABS(CAB J*CAB( IPR )+SABJ *SAB( IPR )+SALP J*SALP( IPR) )  WW 

36 

37 

IF  (XI. LT. 0.999999)  GO  TO  7 

WW 

37 

38 

IF  (ABS(BI(IPR)/B— 1 . ) . GT . 1 . E-6)  GO  TO  7 

WW 

38 

39 

5 

IN01=0 

WW 

39 

40 

GO  TO  8 

WW 

40 

41 

6 

IN01=1 

WW 

41 

42 

GO  TO  8 

WW 

42 

43 

7 

IND1=2 

WW 

43 

44 

8 

IPR=IC0N2( J ) 

WW 

44 

45 

IF  (IPR)  9.14.10 

WW 

45 

46 

9 

IPR=-IPR 

WW 

46 

47 

IF  (-IC0N2(IPR).NE.J)  GO  TO  15 

VWV 

47 

48 

GO  TO  12 

WW 

48 

49 

10 

IF  (IPR.NE.J)  GO  TO  11 

WW 

49 

50 

IF  (CABJ*CABJ+SABJ*SABJ .GT. 1 .E-8)  GO  TO  15 

WW 

50 

51 

GO  TO  13 

WW 

51 

52 

11 

IF  (ICONI(IPT).NE. J)  GO  TO  15 

WW 

52 

53 

12 

XI=ABS(CABJ-CAB(IPR)+SA0J»SA8(IPR)+SALPJ»SALP(IPR))  WW 

S3 

54 

IF  (XI. LT. 0.999999)  GO  TO  15 

WW 

54 

55 

IF  (ABS(BI( IPR)/B— 1 . ) . GT . 1 . E-6)  GO  TO  15 

WW 

55 

56 

13 

IND2=0 

WW 

56 

57 

GO  TO  16 

WW 

57 

58 

14 

IND2=1 

m 

58 

59 

GO  TO  16 

WW 

59 

60 

15 

IND2*2 

WW 

60 

61 

16 

CONTINUE 

WW 

61 

62 

C 

WW 

62 

63 

C 

OBSERVATION  LOOP 

WW 

63 

64 

C 

WW 

64 
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es 

IPR=0 

WW 

65 

66 

DO  23  1=11 .12 

m 

66 

67 

IPR=IPR+1 

ww 

67 

68 

IJ=I-J 

ww 

68 

69 

XI=X(I) 

m 

69 

70 

YI=Y(I) 

ww 

70 

71 

ZI=Z(I) 

ww 

71 

72 

41=81(1) 

ww 

72 

73 

CABI=CAB(I) 

m 

73 

74 

SABI=SAB(I) 

ww 

74 

73 

SALPI=SALP(I) 

m 

75 

76 

CALL  EFLD  (XI.YI.ZI.AI.IJ) 

ww 

76 

77 

ETK=EXK*CA8I+EYK*SABI+EZK*SALPI 

ww 

77 

78 

ETS=EXS*CABI+EYS*SABI+EZS*SALPI 

vw 

78 

79 

ETC=EXC»CABI+EYC»SABI+EZC*SALPI 

ww 

79 

80  C 

ww 

80 

81  C 

FILL  MATRIX  ELEMENTS.  ELEMENT  LOCATIONS  DETERMINED  BY  CONNECTION 

ww 

81 

82  C 

DATA. 

ww 

82 

83  C 

ww 

83 

84 

IF  (ITRP.NE.O)  GO  TO  18 

ww 

84 

85  C 

NORMAL  FILL 

ww 

85 

86 

DO  17  IJ=1 , JSNO 

ww 

86 

87 

JX=JCO(IJ) 

ww 

87 

88  17 

CM(IPR , JX)=CM(IPR , JX)+ETK*AX(IJ )+ETS*BX(I J )+ETC*CX(IJ) 

ww 

88 

89 

GO  TO  23 

ww 

89 

90  18 

IF  (ITRP.EQ.2)  GO  TO  20 

ww 

90 

91  C 

TRANSPOSED  FILL 

ww 

91 

92 

DO  19  IJ=1,JSN0 

m 

92 

93 

JX=JCO(IJ) 

ww 

93 

94  19 

CM( JX . IPR)=CM( JX , IPR)+ETK»AX( I J )+ETS*BX( I J )+ETC*CX( I J ) 

ww 

94 

95 

GO  TO  23 

ww 

95 

96  C 

TRANS.  FILL  FOR  C(W W)  -  TEST  FOR  ELEMENTS  FOR  D(WW)PRIME.  (=CW) 

ww 

96 

97  20 

DO  22  IJ=1 , JSNO 

ww 

97 

98 

JX=JCO(IJ) 

ww 

98 

99 

IF  ( JX .GT .NR)  GO  TO  21 

ww 

99 

100 

CM( JX , IPR)=CM( JX , IPR)+ETK*AX(I J)+ETS*BX(IJ )+ETC*CX(I J ) 

ww 

100 

101 

GO  TO  22 

ww 

101 

102  21 

JX=JX-NR 

ww 

102 

103 

CW( JX , IPR)=CW( JX , IPR)+ETK*AX(I J )+ETS*BX(I J)+ETC*CX( IJ ) 

ww 

103 

104  22 

CONTINUE 

ww 

104 

105  23 

CONTINUE 

ww 

105 

106 

RETURN 

ww 

106 

107 

END 

ww 
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CONECT 

PURPOSE 

To  locate  segment  ends  that  contact  each  other  or  contact  the  center  of 
a  surface  patch. 

METHOD 

The  ends  of  each  segment  are  identified  as  end  1  and  end  2,  defined 
during  geometry  input.  The  connection  data  for  segment  I  is  stored  in  array 
variables  IC0N1  (Z)  for  end  1  and  IC0N2  (I)  for  end  2. 

Four  conditions  are  possible  at  each  segment  end:  (1)  no  connection  (a 

free  end),  (2)  connection  to  one  or  more  other  segments,  (3)  connection  to  a 

ground  plane,  or  (4)  connection  to  a  surface  modeled  with  patches.  These 
conditions  are  indicated  in  the  following  way  for  end  1  of  segment  I: 

(1)  no  connection . IC0N1  (I)  -  0 

(2)  connection  to  segment  J . IC0N1  (I)  -  ±J 

(3)  connection  to  a  ground  plane . IC0N1  (I).  -  I 

(4)  connection  to  patch  K . IC0N1  (I)  -  10000  +  k 

In  case  2,  if  segment  J  has  the  same  reference  direction  as  segment  I  (end  2 

of  segment  J  connected  to  end  1  of  segment  I),  the  sign  is  positive.  For 

opposed  reference  directions  (end  1  to  end  1)  the  sign  is  negative.  If  several 
segments  connect  to  end  1  of  segment  I,  then  J  is  the  number  of  the  next 
connected  segment  in  sequence. 

If  segment  I  connects  to  patch  K,  the  segment  end  must  coincide  with  the 
patch  center.  Patch  K  is  then  divided  into  four  patches  numbered  K  through 
K  +  3  by  a  call  to  subroutine  SUBPH. 

The  connection  data  is  illustrated  in  the  following  listing  for  the  six 
segments  in  the  structure  in  figure  3. 


I CONI  (I) 
10000  +  K 


IC0N2  (I) 


\ 

% 

i 

»! 

•!« 

ft 


I 

i 

% 

h 

: 

. 
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K+2  |/t2  K+1 


Figure  3.  Structure  for  Illustrating 
Segment  Connection  Data. 


Connections  between  patches  are  not  checked,  since,  except  where  a  wire 
connects  to  a  surface,  the  current  expansion  function  on  a  patch  does  not 
extend  beyond  that  patch. 


CODING 


-  CN2T  Initialize  and  adjust  symmetry  conditions  if  necessary 

when  ground  is  present. 

-  CNk6  Check  whether  end  1  of  segment  I  is  below  ground  plane 

(error)  or  contacting  ground  plane.  If  the  separation  of 
the  segment  end  and  the  ground  is  less  than  SMIN  multiplied 
by  the  segment  length,  IG0N1  is  set  to  I  and  the  z  coor¬ 
dinate  of  the  segment  end  is  set  to  exactly  zero. 

-  CN60  Check  other  segments  from  I  +  1  through  N  and  then  1 

through  I  -  1,  until  a  connected  end  is  found.  The 
separation  of  segment  ends  is  determined  by  the  sum  of  the 
separations  in  x,  y,  and  z  to  save  time. 


1 


: 


!S 


CN95  -  CN126 


CN129  -  CN162 

CN182  -  CN258 

CN183  -  CN190 

CN191  -  CN215 

CN216  -  CN230 

CN232  -  CN244 

CN245  -  CN247 

CN248  -  CN257 

CN262  -  CN275 

SYMBOL  DICTIONARY 
IGND 


Search  for  segments  connected  to  patches.  Only  new 
patches  (not  NGF)  are  checked.  If  a  connection  is  found 
the  patch  is  divided  into  four  patches  at  its  present 
location  in  the  data  arrays  and  patches  following  it  are 
shifted  up  by  three  locations.  This  is  done  by  calling 
SUBPH,  an  entry  point  of  subroutine  PATCH. 

Search  for  new  segments  connected  to  NGF  patches.  If  a 
connection  is  found  four  patches,  covering  the  area  of 
the  original  patch,  are  added  to  the  end  of  the  data 
arrays  by  calling  SUBPH.  The  original  patch  retains  its 
location  but  the  z  coordinate  at  its  center  is  changed  to 
10000. 

The  loop  through  44  locates  segments  connected  to 
junctions. 

Parameters  are  initialized  to  find  all  segments  connected 
to  first  end  of  segment  J. 

Connected  segments  are  located.  If  the  number  of  any 
connected  segment  is  less  than  J  the  loop  is  exited  at 
CN200.  Thus  each  junction  is  processed  only  once. 

The  connected  ends  are  set  to  the  average  of  their 
previous  values  to  ensure  that  they  have  identical  values 
If  the  junction  includes  new  segments  (NSFLG  *  1)  and  IX 
is  a  NGF  segment  an  equation  number,  NSCON,  is  assigned 
for  the  modified  basis  function  of  segment  IX.  The 
equation  number  is  stored  in  array  ICONX  and  the  segment 
number  is  stored  in  ISCON. 

Segment  numbers  are  printed  for  junctions  of  three  or 
more  segments. 

The  loop  is  initialized  for  the  second  end  of  segment  J 
and  the  steps  from  CN191  on  are  repeated. 

Equation  numbers  for  modified  basis  functions  are 
assigned  for  old  segments  that  connect  to  new  patches. 


1  to  adjust  symmetry  for  ground  and  set  ICON  (I)  = 
I;  -l  to  adjust  symmetry  only;  0  for  no  ground 


CONECT 


JHAX 

NPMAX 

NSFLG 

NSMAX 

SEP 

SLEN 

SMIN 

XII 

YIl 

ZIl 

XI 2 

YI2 

ZI2 

XS 

YS 

ZS 

CONSTANT 

l.E-3 


maximum  number  of  segments  connected  to  a  junction 
maximum  number  of  NGF  patches  connecting  to  new 
segments 

1  if  the  junction  includes  any  new  segments  when  NGF 
is  in  use 

maximum  number  of  NGF  segments  connecting  to  new 
segments 

approximate  separation  of  segment  ends 

maximum  separation  allowed  for  connection 

maximum  separation  as  a  fraction  of  segment  length 

coordinates  of  end  1  of  segment 


coordinates  of  end  2  of  segment 


w 


: 

: 

■ 


coordinates  of  patch  center 


maximum  separation  tolerance  for  connected  segments 
as  fraction  of  segment  length. 
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1 

CONECT  ® 

1 

SUBROUTINE  CONECT  (IGNO) 

CN 

• 

2  C 

CN 

2 

yo& 

3  C 

CONNECT  SETS  UP  SEGMENT  CONNECTION  DATA  IN  ARRAYS  IC0N1  AND  ICON2 

CN 

3  a 

4  C 

BY  SEARCHING  FOR  SEGMENT  ENDS  THAT  ARE  IN  CONTACT. 

CN 

4 

5  C 

CN 

5  2 

6 

COMMON  /DATA/  LD ,N1 , N2 , N , NP ,M1 ,M2 ,M ,MP , X( 300) . Y( 300) ,Z(300) ,SI(300 

CN 

6  ! 

7 

1 ) .81(300) ,ALP(300) ,BET(300) .ICON1 (300) , ICON2(300) . ITAG( 300) , ICONX( 

CN 

7  5 

8 

2300) .WLAM.IPSYM 

CN 

8 

9 

COMMON  /SEGJ/  AX( 30) , BX ( 30 ) ,CX(30) , JCO(30 ) . JSNO , ISC0N( 50 ) , NSCON . IP 

CN 

9  -1 

10 

1CON( 10) , NPCON 

CN 

10 

11 

DIMENSION  X2( 1 ) ,  Y2(1).  Z2(1) 

CN 

1  1 

12 

EQUIVALENCE  (X2.SI).  (Y2.ALP).  (Z2.BET) 

CN 

12  J 

• 

13 

DATA  JMAX/30/.SMIN/1 . E-3/.NSMAX/50/.NPMAX/10/ 

CN 

13  f 

14 

NSCON=0 

CN 

14  j 

15 

NPCON=0 

CN 

15  3 

16 

IF  (IGND.EQ.O)  GO  TO  3 

CN 

16  n 

17 

PRINT  54 

CN 

17  i 

18 

IF  (IGND.GT.O)  PRINT  55 

CN 

18  3 

19 

IF  (IPSYM.NE .2)  GO  TO  1 

CN 

19  'J 

20 

NP=2*NP 

CN 

20  1 

21 

MP=2*MP 

CN 

21  > 

22  1 

IF  (IAR«(I?SYM) .LE.2)  GO  TO  2 

CN 

22  { 

23 

NP=N 

CN 

23  j 

24 

MP=M 

CN 

24  3 

25  2 

IF  (NP.GT.N)  STOP 

CN 

25  / 

26 

IF  (NP. EQ.N. AND.MP. EQ.M)  IPSYM=0 

CN 

26 

27  3 

IF  (N.EQ.O)  GO  TO  26 

CN 

27  ■ 

28 

DO  15  1=1 ,N 

CN 

28 

29 

ICONX( I)=0 

CN 

29  h 

30 

XI1=X(I) 

CN 

30 

31 

YI1 =Y( I) 

CN 

31  S 

32 

ZI1 =Z(I) 

CN 

32  . 

33 

34 

XI2=X2(I) 

YI2=Y2( I) 

CN 

CN 

33 

34  1 

35 

ZI2=Z2(I) 

CN 

35  ^ 

36 

SLEN=SQRT ( (XI2-XI1 )»*2+(YI2-YI1 )»*2+(ZI2-ZI1 )*»2)*SMIN 

CN 

36  q 

37  C 

CN 

37  Z 

38  C 

DETERMINE  CONNECTION  DATA  FOR  END  1  OF  SEGMENT. 

CN 

38 

39  C 

CN 

39  2 

40 

IF  (IGND.LT.1)  GO  TO  5 

CN 

40  J 

41 

IF  (ZI1 .GT.-SLEN)  GO  TO  4 

CN 

41 

42 

PRINT  56.  I 

CN 

42  > 

43 

STOP 

CN 

43  4 

44  4 

IF  (ZI1 .GT.SLEN)  GO  TO  5 

CN 

44  3 

45 

ICON1 (I)=I 

CN 

45  H 

46 

Z(I)=0. 

CN 

46  f 

47 

GO  TO  9 

CN 

47  { 

48  5 

IC=I 

CN 

48 

49 

DO  7  J=2,N 

CN 

49 

50 

IC=IC+1 

CN 

50 

51 

IF  (IC.GT.N)  IC=1 

CN 

51  ‘  J 

52 

SEP=ABS(XI1-X(IC))+ABS(YI1-Y(IC))+ABS(ZI1-Z(IC)) 

CN 

52  K 

53 

IF  (SEP. GT.SLEN)  GO  TO  6 

CN 

53  D 

54 

IC0N1 (I)=-IC 

CN 

54  D 

55 

GO  TO  8 

CN 

55  J 

56  6 

SEP=ABS( XII -X2( IC) )+ABS( YI1 -Y2( IC) )+ABS( ZI1 -Z2( IC) ) 

CN 

56  1 

57 

IF  (SEP. GT.SLEN)  GO  TO  7 

CN 

57  j 

58 

ICON1 (I)=IC 

CN 

sa  g 

59 

GO  TO  8 

CN 

59 

60  ,] 

60  7 

CONTINUE 

CN 

61 

IF  (I.LT.N2.AND.ICON1 (I) . GT . 10000)  GO  TO  8 

CN 

61  .5 

62 

IC0N1 (I)=0 

CN 

62  ^ 

# 

63  C 

64  C 

DETERMINE  CONNECTION  DATA  FOR  END  2  OF  SEGMENT. 

CN 

CN 

63  1 

64  l 
\ 

V 

\ 
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es  c 

CN  65 

66  8 

IF  (IGNO.LT. 1 )  GO  TO  12 

CN  66 

67  9 

IF  (ZI2.GT.-SLEN)  GO  TO  10 

CN  67 

68 

PRINT  56,  I 

CN  68 

vjSS- 

69 

STOP 

CN  69 

70  10 

IF  (ZI2.GT.SLEN)  GO  TO  12 

CN  70 

71 

IF  (ICONI(I).NE.I)  GO  TO  11 

CN  71 

72 

PRINT  57.  I 

CN  72 

73 

STOP 

CN  73 

74  11 

ICON2(I)=I 

CN  74 

75 

Z2(I)=0. 

CN  75 

76 

GO  TO  15 

CN  76 

77  12 

IC=I 

CN  77 

78 

DO  14  J=2 ,  N 

CN  78 

79 

IC=IC-M 

CN  79 

80 

IF  (IC.GT.N)  IC=1 

CN  80 

81 

SEP=ABS(XI2-X( IC) )+ABS( YI2-Y( IC) )+ABS(ZI2-Z(IC) ) 

CN  81 

82 

IF  (SEP.GT.SLEN)  GO  TO  13 

CN  82 

83 

ICON2(I)=IC 

CN  83 

84 

GO  TO  15 

CN  84 

85  13 

SEP=ABS(XI2— X2(IC) )+ABS( YI2-Y2(IC) )+ABS(ZI2-Z2( IC) ) 

CN  85 

86 

IF  (SEP.GT.SLEN)  GO  TO  14 

CN  86 

87 

ICON2(I)=-IC 

CN  87 

88 

GO  TO  15 

CN  88 

89  14 

CONTINUE 

CN  89 

90 

IF  ( I . LT . N? . AND . ICON2( I) .GT . 1 0000)  GO  TO  15 

CN  90 

91 

IC0N2(I)=0 

CN  91 

92  15 

CONTINUE 

CN  92 

93 

IF  (M.EQ.O)  GO  TO  26 

CN  93 

94  C 

FIND  WIRE-SURFACE  CONNECTIONS  FOR  NEW  PATCHES 

CN  94 

95 

IX=LD+1 -Ml 

CN  95 

96 

I=M2 

CN  96 

97  16 

IF  (I.GT.M)  GO  TO  20 

CN  97 

98 

IX=IX-1 

CN  98 

o 

99 

XS=X(IX) 

CN  99 

100 

TS=Y(IX) 

CN  100 

101 

ZS=Z(IX) 

CN  101 

102 

DO  18  ISEG=1,N 

CN  102 

103 

XII =X( ISEG) 

CN  103 

104 

YI1 =Y( ISEG) 

CN  104 

105 

ZI1 =Z( ISEG) 

CN  105 

ICtt 

XI2=X2( ISEG) 

CN  106 

107 

YI2=Y2( ISEG) 

CN  107 

108 

ZI2=Z2( ISEG) 

CN  108 

109 

SLEN=(ABS(XI2-XI1 )+ABS( YI2-YI1 )+ABS(ZI2-Zin )»SMIN 

CN  109 

110  C 

FOR  FIRST  END  OF  SEGMENT 

CN  110 

1 1 1 

SEP=ABS( XII -XS)+ABS( YI1 -YS)+ABS( ZI1 -ZS) 

CN  111 

112 

IF  (SEP.GT.SLEN)  GO  TO  17 

CN  112 

113  C 

CONNECTION  -  DIVIDE  PATCH  INTO  4  PATCHES  AT  PRESENT  ARRAY  LOC . 

CN  113 

114 

IC0N1 ( ISEG)=1 OOOO+I 

CN  114 

115 

IC=0 

CN  1  15 

116 

CALL  SU8PH  (I.IC.XI1 , YI1 ,ZI1 , XI2 , YI2 . ZI2 . XA , YA . ZA , XS , YS , ZS) 

CN  1  16 

117 

GO  TO  19 

CN  1  17 

118  17 

SEP=ABS(XI2-XS)+ABS(YI2-YS)+ABS(ZI2-ZS) 

CN  1  18 

11# 

IF  (SEP.GT.SLEN)  GO  TO  18 

CN  1  19 

<20 

IC0N2( ISEG )=1 0000+1 

CN  120 

t  f  1 

IC«0 

CN  121 

*  99 

id 

CALL  SUBPH  (I.IC.XI1 ,YI1 ,ZI1 ,XI2 , YI2 . ZI2 , XA , YA , ZA , XS , YS , ZS) 

CN  122 

*  Si 

GO  TO  19 

CN  123 

CONTINUE 

CN  124 

ft  't 

|ag+t 

CN  125 

pi 

90  TO  16 

CN  126 

SEARCH  FOR  NEW  SEGMENTS  CONNECTED  TO  NGF  PATCHES. 

CN  127 

«  CO  0  0R.N2.GT.N)  GO  TO  26 

CN  128 

>,v 

Vv 
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129 

IX=LD+1 

CN 

129 

130 

1=1 

CN 

130 

131 

21 

IF  (I.GT.M1)  GO  TO  25 

CN 

131 

132 

IX=IX-1 

CN 

132 

133 

XS=X(IX) 

CN 

133 

134 

YS=Y(IX) 

CN 

134 

135 

ZS=Z(IX) 

CN 

135 

136 

00  23  ISEG=N2,N 

CN 

136 

137 

XII =X( ISEG) 

CN 

137 

138 

YI1=Y(ISEG) 

CN 

138 

139 

ZI1=Z(ISEG) 

CN 

139 

140 

XI2=X2( ISEG) 

CN 

140 

141 

YI2=Y2(ISEG) 

CN 

141 

142 

ZI2=Z2( ISEG) 

CN 

142 

143 

SLEN=( A8S( XI2-XI1 )+ABS(YI2- 

-YI1 )+ABS(ZI2-ZI1 ) ) *SMIN 

CN 

143 

144 

SEP=ABS(XI1-XS)+ABS(YI1-YS)+ABS(ZI1-ZS) 

CN 

144 

145 

IF  (SEP.GT.SLEN)  GO  TO  22 

CN 

145 

146 

IC0N1 ( ISEG)=1 0001 +M 

CN 

146 

147 

IC=1 

CN 

147 

148 

NPC0N=NPC0N+1 

CN 

148 

149 

IPCON ( NPCON ) =1 

CN 

149 

150 

CALL  SUBPH  (I.IC.XI1 ,YI1 ,ZI1 ,XI2, YI2 . ZI2 , XA , YA . ZA , XS . YS , ZS) 

CN 

150 

151 

GO  TO  24 

CN 

151 

152 

22 

SEP=ABS(XI2-XS)+ABS(YI2-YS)+ABS(ZI2-ZS) 

CN 

152 

153 

IF  (SEP.GT.SLEN)  GO  TO  23 

CN 

153 

154 

ICON2( ISEG)=1 0001 +M 

CN 

154 

155 

IC=1 

CN 

155 

156 

NPC0N=NPC0N+1 

CN 

156 

157 

IPCON ( NPCON )=I 

CN 

157 

156 

CALL  SUBPH  (I.IC.XI1 . YI1 ,ZI1 ,XI2 . YI2 . ZI2 . XA , YA . ZA . XS , YS , ZS) 

CN 

158 

159 

GO  TO  24 

CN 

159 

160 

23 

CONTINUE 

CN 

160 

161 

24 

1=1+1 

CN 

161 

162 

GO  TO  21 

CN 

162 

163 

25 

IF  ( NPCON. LE.NPMAX)  GO  TO 

26 

CN 

163 

164 

PRINT  62.  NPMAX 

CN 

164 

165 

STOP 

CN 

165 

166 

26 

PRINT  58.  N.NP.IPSYM 

CN 

166 

167 

IF  (M.GT.O)  PRINT  61 .  M.MP 

CN 

167 

168 

ISEG=(N+M)/(NP+MP) 

CN 

168 

169 

IF  (ISEG.EQ. 1 )  GO  TO  30 

CN 

169 

170 

IF  (IPSYM)  28,27,29 

CN 

170 

171 

27 

STOP 

CN 

1-71 

172 

28 

PRINT  59,  ISEG 

CN 

172 

173 

GO  TO  30 

CN 

173 

174 

29 

IC=ISEG/2 

CN 

174 

175 

IF  (ISEG.EQ. 8)  IC=3 

CN 

175 

176 

PRINT  60.  IC 

CN 

176 

177 

30 

IF  (N.EQ.O)  GO  TO  48 

CN 

177 

178 

PRINT  50 

CN 

178 

179 

'  ISEG=0 

CN 

179 

180 

C 

ADJUST  CONNECTED  SEG.  ENDS 

TO  EXACTLY  COINCIDE.  PRINT  JUNCTIONS 

CN 

180 

181 

C 

OF  3  OR  MORE  SEG.  ALSO  FIND  OLD  SEG.  CONNECTING  TO  NEW  SEG. 

CN 

181 

182 

DO  44  J=1 ,N 

CN 

182 

183 

IEND=-1 

CN 

183 

184 

JEND=-1 

CN 

184 

185 

IX=IC0N1(J) 

CN 

185 

186 

IC=1 

CN 

186 

187 

JCO( 1 )=-J 

CN 

187 

188 

XA=X(J) 

CN 

188 

189 

YA=Y( J ) 

CN 

189 

190 

ZA=Z( J) 

CN 

190 

191 

31 

IF  (IX.EQ.O)  GO  TO  43 

CN 

191 

192 

IF  (IX.EQ.J)  GO  TO  43 

CN 

192 

h 
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l 
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193 

IF  (IX. GT. 10000)  GO  TO  43 

CN 

193 

194 

NSFLG=0 

CN 

194 

195  32 

IF  (IX)  33.49,34 

CN 

195 

196  33 

IX=-IX 

CN 

196 

197 

GO  TO  35 

CN 

197 

198  34 

JEND=-JEND 

CN 

198 

199  35 

IF  (IX.EQ.J)  GO  TO  37 

CN 

199 

200 

IF  (IX.LT.J)  GO  TO  43 

CN 

200 

201 

IC=IC+1 

CN 

201 

202 

IF  (IC.GT.JMAX)  GO  TO  49 

CN 

202 

203 

JCO(IC)=IX*JEND 

CN 

203 

204 

IF  (IX.GT.N1)  NSFLG=1 

CN 

204 

205 

IF  (JEND.EQ.1)  GO  TO  36 

CN 

205 

206 

XA=XA+X(IX) 

CN 

206 

207 

YA=YA+Y(IX) 

CN 

207 

208 

ZA=ZA+Z(IX) 

CN 

208 

209 

IX=IC0N1 (IX) 

CN 

209 

210 

GO  TO  32 

CN 

210 

211  36 

XA=XA+X2(IX) 

CN 

21 1 

212 

YA=YA+Y2(IX) 

CN 

212 

213 

ZA=ZA+Z2(IX) 

CN 

213 

214 

IX=ICON2(IX) 

CN 

214 

215 

GO  TO  32 

CN 

215 

216  37 

SEP=IC 

CN 

216 

217 

XA=XA/SEP 

CN 

217 

218 

YA=YA/SEP 

CN 

218 

219 

ZA=ZA/SEP 

CN 

219 

220 

DO  39  1=1 .IC 

CN 

220 

221 

IX=JCO(I) 

CN 

221 

222 

IF  (IX  .GT  . 0)  GO  TO  38 

CN 

222 

223 

IX=-IX 

CN 

223 

224 

X(IX)=XA 

CN 

224 

225 

Y(IX)=YA 

CN 

225 

226 

Z(IX)=ZA 

CN 

226 

227 

GO  TO  39 

CN 

227 

228  38 

X2(IX)=XA 

CN 

228 

229 

Y2(IX)=YA 

CN 

229 

230 

Z2( IX)=ZA 

CN 

230 

231  39 

CONTINUE 

CN 

231 

232 

IF  (N1  .  EQ .  0)  GO  TO  42 

CN 

232 

233 

IF  (NSFLG.EQ.O)  GO  TO  42 

CN 

233 

234 

DO  41  1=1 ,IC 

CN 

234 

235 

IX=IABS( JCO(I) ) 

CN 

235 

236 

IF  (IX.GT.N1 )  GO  TO  41 

CN 

236 

237 

IF  (ICONX(IX) .NE.O)  GO  TO  41 

CN 

237 

238 

NSC0N=NSC0N+1 

CN 

238 

239 

IF  (NSCON . LE . NSMAX )  GO  TO  40 

CN 

239 

2-.0 

PRINT  62.  NSMAX 

CN 

240 

241 

STOP 

CN 

241 

242  40 

ISCON( NSCON )=IX 

CN 

242 

243' 

ICONX( IX)=NSC0N 

CN 

243 

244  41 

CONTINUE 

CN 

244 

245  42 

IF  (IC.LT.3)  GO  TO  43 

CN 

245 

246 

ISEG=ISEG+1 

CN 

246 

247 

PRINT  51.  ISEG.(JCO(I) .1=1 .IC) 

CN 

247 

248  43 

IF  (IEND.EQ.1)  GO  TO  44 

CN 

248 

249 

IEND=1 

CN 

249 

250 

JEN0=1 

CN 

250 

251 

IX=ICON2( J) 

CN 

251 

252 

IC=1 

CN 

252 

253 

JC0(1 )=J 

CN 

253 

254 

XA=X2(J) 

CN 

254 

255 

YA=Y2( J ) 

CN 

255 

256 

ZA=Z2(J) 

CN 

256 
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257 

GO  TO  31 

CN 

257 

258 

44 

CONTINUE 

CN 

258 

259 

IF  (ISEG.EQ.O)  PRINT  52 

CN 

259 

260 

IF  (N1 .EQ.0.0R.M1 .EQ.M)  GO  TO  48 

CN 

260 

261 

C 

FIND  OLD  SEGMENTS  THAT  CONNECT  TO  NEW  PATCHES 

CN 

261 

262 

DO  47  J=1  ,N1 

CN 

262 

263 

IX=IC0N1(J) 

CN 

263 

264 

IF  (IX. LT. 10000)  GO  TO  45 

CN 

264 

265 

IX=IX-1 0000 

CN 

265 

266 

IF  (IX .GT .Ml )  GO  TO  46 

CN 

266 

267 

45 

IX=ICON2(J) 

CN 

267 

268 

IF  (IX. LT. 10000)  GO  TO  47 

CN 

268 

269 

IX=IX-10000 

CN 

269 

270 

IF  (IX . LT .M2)  GO  TO  47 

CN 

270 

271 

46 

IF  (ICONX(J).NE.O)  GO  TO  47 

CN 

271 

272 

NSCON=NSCON+1 

CN 

272 

273 

ISCON(NSCON)=J 

CN 

273 

274 

ICONX ( J ) =NSCON 

CN 

274 

275 

47 

CONTINUE 

CN 

275 

276 

48 

CONTINUE 

CN 

276 

277 

RETURN 

CN 

277 

278 

49 

PRINT  53.  IX 

CN 

278 

279 

STOP 

CN 

279 

280 

C 

CN 

280 

281 

50 

FORMAT  (//.9X.27H-  MULTIPLE  WIRE  JUNCTIONS  1 X ,8H JUNCTION , 4X 

,36 

CN 

281 

282 

1HSEGMENTS  (-  FOR  END  1 .  +  FOR  END  2)) 

CN 

282 

283 

51 

FORMAT  ( IX. 15. 5X. 2015. /.(I  IX. 2015)) 

CN 

283 

284 

52 

FORMAT  (2X.4HNONE) 

CN 

284 

285 

53 

FORMAT  (47H  CONNECT  -  SEGMENT  CONNECTION  ERROR  FOR  SEGMENT, 15) 

CN 

285 

286 

54 

FORMAT  (/ , 3X , 23HGR0UND  PLANE  SPECIFIED.) 

CN 

286 

287 

55 

FORMAT  (/.3X.46HWHERE  WIRE  ENDS  TOUCH  GROUND.  CURRENT  WILL  BE  . 

38H 

CN 

287 

288 

1 1NTERPOLATED  TO  IMAGE  IN  GROUND  PLANE../) 

CN 

288 

289 

55 

FORMAT  (30H  GEOMETRY  DATA  ERROR—  SEGMENT , 15 .21 H  EXTENDS  BELOW 

GRO 

CN 

289 

290 

1UND) 

CN 

290 

291 

57 

FORMAT  (29H  GEOMETRY  DATA  ERROR— SEGMENT , 15 , 1 6H  LIES  IN  GROUND 

,6H 

CN 

291 

292 

1  PLANE . ) 

CN 

292 

293 

58 

FORMAT  (/.3X.20HTOTAL  SEGMENTS  USED=, 15 . 5X . 1 2HN0 .  SEG.  IN  .17HA 

SY 

CN 

293 

294 

1MMETRIC  CELL=, 15 , 5X , 1 4HSYMMETRY  FLAG=,I3) 

CN 

294 

295 

59 

FORMAT  (14H  STRUCTURE  HAS.I4.25H  FOLD  ROTATIONAL  SYMMETRY,/) 

CN 

295 

296 

60 

FORMAT  (14H  STRUCTURE  HAS.I2.19H  PLANES  OF  SYMMETRY,/) 

CN 

296 

297 

61 

FORMAT  (3X.19HT0TAL  PATCHES  USED=, 15 , 6X .32HN0.  PATCHES  IN  A  SYMMET 

CN 

297 

298 

1RIC  CELL=.I5) 

CN 

298 

299 

62 

FORMAT  (82H  ERROR  -  NO.  NEW  SEGMENTS  CONNECTED  TO  N.G.F.  SEGMENTSO 

CN 

299 

300 

1 R  PATCHES  EXCEEDS  LIMIT  OF, 15) 

CN 

300 

301 

END 

CN 

301- 

-79- 


3S 

>,V'V 


V.sU" 


COUPLE 


COUPLE 

PURPOSE 

To  compute  the  maximum  coupling  between  pairs  of  segments. 


METHOD 

If  a  coupling  calculation  has  been  requested  (CP  card)  subroutine  COUPLE 
is  called  each  time  that  the  current  is  computed  for  a  new  excitation.  The 
code  from  CP10  to  CP12  checks  that  the  excitation  is  a  single  applied-field 
voltage  source  on  the  segment  specified  in  NCTAG  and  NCSEG.  If  the  excitation 
is  correct  the  input  admittance  and  mutual  admittances  to  all  other  segments 
specified  in  NCTAG  and  NCSEG  are  stored  in  Y11A  and  Y12A  from  CP13  to  CP22. 

When  all  segments  have  been  excited  (ICOUP  ■  NCOUP)  the  second  part  of 
the  code,  from  CP24  to  CP58  is  executed  to  evaluate  the  equations  in  Section 
V.6  of  Part  I. 


SYMBOL  DICTIONARY 


L  (see  Part  I,  Section  V.6) 


CUR 

a 

array  of  values 

DBC 

a 

10 

GMAX 

a 

gmax 

ISG1 

a 

segment  number 

ISG2 

a 

segment  number 

J1 

a 

index  of  Y^2  in 

J2 

a 

index  of  Y21  in 

K. 

a 

segment  number 

RHO 

a 

P 

WLAM 

a 

wavelength 

Yll 

a 

Y11 

Y12 

a 

(Y12  +  Y21)/2 

Y22 

a 

Y22 

YIN 

a 

yin 

YL 

a 

yl 

ZIN 

a 

l/yin 

ZL 

a 

1/yl 
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1 

SUBROUTINE  COUPLE  (CUR.WLAM) 

CP 

1 

2  C 

CP 

2 

3  C 

COUPLE  COMPUTES  THE  MAXIMUM  COUPLING  BETWEEN  PAIRS  OF  SEGMENTS. 

CP 

3 

4  C 

CP 

4 

5 

COMPLEX  Y1 1  A, Y1 2A,CUR, Y1 1 , Y1 2 , Y22 , YL , YIN , ZL , ZIN , RHO , VQO , VSANT , VQDS 

CP 

5 

6 

COMMON  /YPARM/  NCOUP . ICOUP ,NCTAG(5) ,NCSEG(5) . Y1 1A(5) ,Y1 2A(20) 

CP 

6 

7 

COMMON  /VSORC/  V0D(30) . VSANT(30) . VQDS(30) , 

IVQD( 30 ) , ISAN  T ( 30 ) , IQDS ( 

CP 

7 

8 

130) .NVQO.NSANT. NODS 

CP 

8 

9 

DIMENSION  CUR( 1 ) 

CP 

9 

10 

IF  (NSANT.NE.1 .OR.NVQO.NE.O)  RETURN 

CP 

10 

11 

J=ISEGNO( NCTAG( ICOUP+1 ) ,NCSEG(IC0UP+1 ) ) 

CP 

1 1 

12 

IF  (J.NE.ISANT(I))  RETURN 

CP 

12 

13 

IC0UP=IC0UP+1 

CP 

13 

14 

ZIN=VSANT(1  ) 

CP 

14 

15 

Y 1 1 A ( ICOUP ) =CUR ( J ) ’WLAM/ZIN 

CP 

15 

16 

L1=(IC0UP-1 )• (NCOUP— 1  ) 

CP 

16 

17 

DO  1  1=1 .NCOUP 

CP 

17 

18 

IF  (I. EQ. ICOUP)  GO  TO  1 

CP 

18 

19 

K=ISEGNO(NCTAG(I) .NCSEG(I)) 

CP 

19 

20 

L1=L1+1 

CP 

20 

21 

Y1 2A(L! )=CUR(K)*WLAM/ZIN 

CP 

21 

22  1 

CONTINUE 

CP 

22 

23 

IF  (ICOUP.LT. NCOUP)  RETURN 

CP 

23 

24 

PRINT  6 

CP 

24 

25 

NPM1 =NCOUP— 1 

CP 

25 

26 

DO  5  1=1 , NPM1 

CP 

26 

27 

ITT1=NCTAG(I) 

CP 

27 

28 

ITS1=NCSEG(I) 

CP 

28 

29 

ISG1=ISEGN0(ITT1 .ITS1 ) 

CP 

29 

30 

LI  =1+1 

CP 

30 

31 

DO  5  J=L1 , NCOUP 

CP 

31 

32 

ITT2=NCTAG(J) 

CP 

32 

33 

ITS2=NCSEG( J) 

CP 

33 

34 

ISG2=ISEGN0( ITT2 , ITS2) 

CP 

34 

35 

J1=J+(I-1 )*NPM1-1 

CP 

35 

36 

J2=I+(J-1 )»NPM1 

CP 

36 

37 

Y1 1=Y1 1 A ( I ) 

TP 

37 

38 

Y22=Y1 1 A( J) 

CP 

32 

39 

Y12=.5*(Y12A(J1)+Y12A(J2)) 

CP 

39 

40 

YIN=Y12*Y12 

CP 

40 

41 

DBC=CABS( YIN) 

CP 

41 

42 

C=0BC/(2. *REAL(Y11 )• REAL (Y22)-REAL( YIN) ) 

CP 

42 

43 

IF  (C.LT.O. .0R.C.GT.1 .)  GO  TO  4 

CP 

43 

44 

IF  (C.LT. .01 )  GO  TO  2 

CP 

44 

45 

GMAX=( 1 . -SORT ( 1 .-C*C))/C 

CP 

45 

46 

GO  TO  3 

CP 

46 

47  2 

GMAX=.5*(C+.25*C»C»C) 

CP 

47 

48  3 

RHO=GMAX*CONJG( YIN)/DBC 

CP 

48 

49 

YL=( ( 1 . -RHO)/( 1 .+RH0)+1 . )»REAL< Y22)-Y22 

CP 

49 

50 

ZL=1 ,/YL 

CP 

50 

51 

YIN=Y1 1-YIN/(Y22+YL) 

CP 

51 

52 

ZIN=1 ./YIN 

CP 

52 

53 

DBC=DB1 O(GMAX) 

CP 

53 

54 

PRINT  7.  ITT1 ,ITS1 ,ISG1 ,1772,1752,1802,080 

.ZL.ZIN 

CP 

54 

55 

GO  TO  5 

CP 

55 

56  4 

PRINT  8.  ITT1 , ITS1 . ISG1 , ITT2 , ITS2 , ISG2 , C 

CP 

56 

57  5 

CONTINUE 

CP 

57 

58 

RETURN 

CP 

58 

59  C 

CP 

59 

60  6 

FORMAT  (///,36X,26H -  ISOLATION  DATA  - 

-  6X , 24H-  -  COUPLIN 

CP 

60 

61 

1 G  BETWEEN  - , 8X . 7HMAXIMUM, 1 5X . 32H -  FOR  MAXIMUM  COUPLING  - 

CP 

61 

62 

2 ,/, 1 2X , 4HSEG . , 14X.4HSEG. , 3X , 8HC0UPLING , 4X , 

25HL0AD  IMPEDANCE  (2ND  S 

CP 

62 

63 

3EG . ) , 7X . 1 5HINPUT  IMPEDANCE . / , 2X , 8HTAG/SEG . 

, 3X , 3HN0 . , 4X . 8HTAG/SEG . , 

CP 

63 

64 

43X.3HN0. , 6X , 4H(DB) ,8X . 4HREAL ,9X . 5HIMAG . ,9X 

, 4HREAL , 9X , 5HIMAG . ) 

CP 

64 

COUPLE 


FORMAT  (2(1X,I4.' X.I4.1XtIS.2X).F9.3.2X.2(2X,E12.5.1X.E12.5))  CP  65 

FORMAT  (2(1X,l4(lX,I4t1X,I5, 2X ) 45H* • ERROR ••  COUPLING  IS  NOT  BETWEE  CP  66 
IN  0  AND  1.  (  =  . El 2 . 5 , 1 H) )  CP  67 

END  CP  68- 
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DATAGN 

PURPOSE 

To  read  structure  input  data  and  set  segment  and  patch  data. 

METHOD 

The  main  READ  statement  is  at  DA35.  The  READ  statement  at  DA65  is  for 
the  continuation  of  wire  data  (GC  card  following  GW),  and  the  READ  at  DA133  is 
for  the  continuation  of  surface  patch  data  (SC  following  SP  or  SM) . 

The  first  input  parameter  GM  determines  the  function  of  the  card  as 
indicated  in  the  following  table; 


GM 

G0  T 0 

FUNCTION 

GA 

8 

define  wire  arc 

GC 

6 

continuation  of  wire  data 

GE 

29 

end  of  geometry  data 

GF 

27 

read  NGF  file 

GM 

26 

rotate  or  translate  structure 

GR 

19 

rotate  about  Z  axis  (symmetry) 

GS 

21 

scale  structure 

GW 

3 

define  straight  wire 

GX 

18 

reflect  in  coordinate  planes  (symmetry) 

SC 

10 

continuation  of  patch  data 

SM 

13 

define  multiple  surface  patches 

SP 

9 

define  surface  patch 

The  functions  of  the  other  input  parameters  depend  on  the  type  of  data 
card  and  can  be  determined  from  the  data  card  descriptions  in  Part  III  of  this 
manual. 

Subroutines  are  called  to  perform  many  of  the  operations  requested  by 
the  data  cards.  Coding  in  DATAGN  performs  other  operations,  prints 
information  and  checks  for  input  errors.  After  a  GE  card  is  read  subroutine 
CONECT  is  called  at  DA211  to  find  electrical  connections  of  segments.  Segment 
and  patch  data  is  printed  from  DA217  to  DA256.  Line  DA241  tests  for  segments 
of  zero  length  (<10  or  zero  radius  (<10 


DATAGN 


SYMBOL  DICTIONARY 

Variables  have  multiple  uses  which  depend  on  the  type  of  input  card 
being  processed. 
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1 

SUBROUTINE  DATAGN 

DA 

1 

2 

C 

DA 

2 

3 

c 

DATAGN  IS  THE  MAIN  ROUTINE  FOR  INPUT  OF  GEOMETRY  DATA. 

DA 

3 

4 

c 

DA 

4 

5 

INTEGER  GM.ATST 

DA 

5 

6 

COMMON  /DATA/  LD.N1 ,N2,N,NP,M1 ,M2 ,M , MP , X( 300) ,Y(300) , Z(300) , SI (300  DA 

6 

7 

1 ) .81(300) ,ALP(300) ,BET(300) .IC0N1 (300) ,ICON2(300) ,ITAG(300) ,IC0NX( 

DA 

7 

8 

2300 ).WLAM. IPS YM 

OA 

8 

9 

COMMON  /ANGL/  SALP(300) 

DA 

9 

10 

DIMENSION  X2( 1 ) ,  Y2(1),  Z2(1),  T1X(1),  T1Y(1).  T1Z(1).  T2X(1),  T2Y 

DA 

10 

11 

1(1).  T2Z(1 ) ,  ATST( 1 2) ,  IFX(2).  IFY(2).  IFZ(2),  CAB(1).  SAB(1).  IPT 

DA 

11 

12 

2(4) 

DA 

12 

13 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP).  (T1Z.BET) ,  (T2X.IC0N1),  (T2Y.ICON 

OA 

13 

14 

12).  (T2Z.ITAG) ,  (X2.SI) ,  (Y2.ALP).  (Z2.BET),  (CAB. ALP).  (SAB. BET) 

DA 

14 

13 

DATA  ATST/2HGW. 2HGX . 2HGR . 2HGS . 2HGE . 2HGM . 2HSP , 2HSM . 2HGF , 2HGA . 2HSC . 2 

DA 

15 

16 

1HGC/ 

DA 

16 

17 

DATA  IFX/1H  , 1HX/.IFY/1H  .1HY/.IFZ/1H  . 1HZ/ 

DA 

17 

18 

DATA  TA/0 . 0 1 745329252/ . TD/57 . 29577951 / . IPT/1 HP . 1  HR . 1 HT . 1  HQ/ 

OA 

18 

19 

IPSYM=0 

DA 

19 

20 

NWIRE=0 

OA 

20 

21 

N=0 

DA 

21 

22 

NP=0 

DA 

22 

23 

M=0 

DA 

23 

24 

MP=0 

DA 

24 

25 

N1=0 

OA 

25 

26 

N2=1 

DA 

26 

27 

Ml  =0 

DA 

27 

28 

M2=1 

DA 

28 

29 

ISCT=0 

DA 

29 

30 

IPHD=0 

DA 

30 

31 

c 

DA 

31 

32 

c 

READ  GEOMETRY  OATA  CARO  AND  BRANCH  TO  SECTION  FOR  OPERATION 

DA 

32 

33 

c 

REQUESTED 

DA 

33 

34 

c 

DA 

34 

35 

1 

READ  (5.42)  GM.ITG.NS.XWI ,YW1 ,ZW1 , XW2 , YW2 , ZW2 , RAD 

DA 

35 

36 

IF  (N+M.GT.LD)  GO  TO  37 

DA 

36 

37 

IF  (GM. EQ. ATST(9) )  GO  TO  27 

OA 

37 

38 

IF  (IPHD.EQ.1 )  GO  TO  2 

DA 

38 

39 

PRINT  40 

DA 

39 

40 

PRINT  41 

DA 

40 

41 

IPHD=1 

DA 

41 

42 

2 

IF  (GM.EQ.ATST(II))  GO  TO  10 

DA 

42 

43 

ISCT=0 

DA 

43 

44 

IF  (GM. EQ.ATST( 1 ) )  GO  TO  3 

DA 

44 

45 

IF  (GM.EQ.ATST(2))  GO  TO  18 

DA 

45 

46 

IF  (GM.EQ.ATST(3))  GO  TO  19 

DA 

46 

47 

IF  (GM . EQ . ATST(4) )  GO  TO  21 

DA 

47 

48 

IF  (GM.EQ.ATST(7))  GO  TO  9 

DA 

48 

49 

IF  (GM.EQ.ATST(B))  GO  TO  13 

DA 

49 

50 

IF  (GM.EQ.ATST(S))  GO  TO  29 

DA 

50 

51 

IF  (GM.EQ.ATST(6))  GO  TO  26 

DA 

51 

52 

IF  (GM.EQ.ATST(IO))  GO  TO  8 

DA 

52 

53 

GO  TO  36 

DA 

53 

54 

c 

DA 

54 

55 

c 

GENERATE  SEGMENT  DATA  FOR  STRAIGHT  WIRE. 

DA 

55 

56 

c 

DA 

56 

57 

3 

NWIRE=NWIRE+1 

DA 

57 

58 

I1=N+1 

DA 

58 

59 

I2=N+NS 

DA 

59 

60 

PRINT  43,  NWIRE.XW1 ,YW1 ,ZW1 ,XW2 . YW2 , ZW2 , RAD ,NS . 11 .I2.ITG 

DA 

60 

61 

IF  (RAD.EQ.O)  GO  TO  4 

OA 

61 

62 

XS1=1 . 

DA 

62 

63 

YS 1 =1 . 

DA 

63 

64 

GO  TO  7 

DA 

64 
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65 

4 

READ  (5,42)  GM.IX.IY.XS1 ,YS1 ,ZS1 

DA 

65 

66 

IF  (GM.EQ.ATST(U))  GO  TO  6 

DA 

66 

67 

5 

PRINT  48 

DA 

67 

68 

STOP 

DA 

68 

69 

6 

PRINT  61 ,  XS1 , YS1 ,ZS1 

DA 

69 

70 

IF  (YS1 .EQ.O.OR.ZS1 .EQ.O)  GO  TO  5 

DA 

70 

71 

RAD=YS» 

DA 

71 

72 

YS1 =(ZS1/YS1 )••( 1 ./(NS— 1 .)) 

DA 

72 

73 

7 

CALL  WIRE  (XW1 , YW1 ,ZW1 , XW2 , YW2 , ZW2 , RAD , XS 1 ,YS1 .NS.ITG) 

DA 

73 

74 

GO  TO  1 

DA 

74 

75 

C 

DA 

75 

76 

C 

GENERATE  SEGMENT  DATA  FOR  WIRE  ARC 

DA 

76 

77 

c 

DA 

77 

78 

a 

NWIRE=NWIRE+1 

DA 

78 

79 

I1=N+1 

DA 

79 

80 

I2=N+NS 

DA 

80 

81 

PRINT  38.  NWIRE.XW1 ,YW1 ,ZW1 .XW2.NS.I1  .I2.ITG 

DA 

81 

82 

CALL  ARC  (ITG.NS.XW1  ,YW1  ,ZW1  ,XW2) 

DA 

82 

83 

GO  TO  1 

DA 

83 

84 

c 

DA 

84 

85 

c 

GENERATE  SINGLE  NEW  PATCH 

DA 

85 

86 

c 

DA 

86 

87 

9 

I1=M+1 

DA 

87 

88 

NS=NS+1 

DA 

88 

89 

IF  (ITG.NE.O)  GO  TO  17 

DA 

89 

90 

PRINT  51,  11  ,  IPT(NS)  ,  XW1  ,  YW1  ,  ZW1  ,  XW2 ,  YW2  ,  ZW2 

DA 

90 

91 

IF  (NS.EQ.2.0R.NS.EQ.4)  ISCT=1 

DA 

91 

92 

IF  (NS.GT.1)  GO  TO  14 

DA 

92 

93 

XW2=XW2*TA 

DA 

93 

94 

YW2= YW2  •  T  A 

DA 

94 

95 

GO  TO  16 

OA 

95 

96 

10 

IF  (ISCT.EQ.O)  GO  TO  17 

DA 

96 

97 

11 =M+1 

DA 

97 

98 

NS=NS+1 

DA 

98 

99 

IF  (ITG.NE.O)  GO  TO  17 

OA 

99 

100 

IF  (NS.NE.2.AND.NS.NE.4)  GO  TO  17 

DA 

100 

101 

XS1=X4 

DA 

101 

102 

YS1 =Y4 

DA 

102 

103 

ZS1 =Z4 

OA 

103 

104 

XS2=X3 

DA 

104 

105 

YS2=Y3 

DA 

105 

106 

ZS2=Z3 

OA 

106 

107 

X3=XW1 

OA 

107 

108 

Y3=YW1 

DA 

108 

109 

Z3=ZW1 

DA 

109 

110 

IF  (NS.NE.4)  GO  TO  1 1 

OA 

110 

111 

X4=XW2 

OA 

111 

112 

Y4=YW2 

DA 

112 

113 

Z4=ZW2 

DA 

113 

114 

11 

XW1=XS1 

DA 

114 

115 

YW1  =YS1 

OA 

115 

116 

ZW1=ZS1 

DA 

116 

117 

XW2=XS2 

DA 

117 

118 

YW2=YS2 

DA 

118 

119 

ZW2=ZS2 

OA 

119 

120 

IF  (NS.EQ.4)  GO  TO  12 

DA 

120 

121 

X4=XW1  +X3-XW2 

DA 

121 

122 

Y4=YW1  +Y3-YW2 

DA 

122 

123 

Z4*ZW1+Z3-ZW2 

OA 

123 

124 

12 

PRINT  51.  11 ,IPT(NS) ,XW1 ,YW1 ,ZW1 .XW2.YW2.ZW2 

DA 

124 

125 

PRINT  39,  X3,Y3,Z3,X4,Y4,Z4 

DA 

125 

126 

GO  TO  16 

DA 

126 

127 

C 

DA 

127 

128 

C 

GENERATE  MULTIPLE-PATCH  SURFACE 

DA 

128 

DATAGN 


129  C 

130  13 

131 

132 

133  14 

134 

135 

136 

137 

138  15 

139 

140  16 

141 

142  17 

143 

144  C 

145  C 

146  C 


147  18 

148 


149 

150 

151 

152 

153 

154 

155 

156  19 

157 

158  20 

159 

160  C 

161  C 

162  C 

163  21 

164 

165 

166 

167 

168 

169 

170 

171  22 

172  23 

173 

174 

175 

176 

177 

178 

179 

180  24 

181  25 

182 

183  C 

184  C 

185  C 


186  26 
187 


11=M+1 

PRINT  59.  II ,IPT(2) ,XW1 ,YW1 ,ZW1 . XW2 , YW2 , ZW2 . ITG , NS 

IF  (ITG. LT. 1 .OR.NS.LT. 1)  GO  TO  17 

>(EAD  (5,42)  GM.IX,IY.X3,Y3,Z3,X4,Y4,Z4 

IF  (NS. NE. 2. AND.ITG.LT. 1 )  GO  TO  15 

X4=XW1 +X3-XW2 

Y4=YW1 +Y3-YW2 

Z4=ZW1 +Z3-ZW2 

PRINT  39.  X3.Y3.Z3.X4.Y4.Z4 
IF  (GM . NE . ATST (11))  GO  TO  17 

CALL  PATCH  (ITG , NS , XW1 . YW1  , ZW1  . XW2 . YW2 . ZW2 . X3 . Y3 . Z3 . X4 . Y4 . Z4) 
GO  TO  1 
PRINT  60 
STOP 


OA  129 
DA  130 


DA  131 
DA  132 


DA  133 
DA  134 


DA  135 
DA  136 


DA  137 
DA  138 


DA  139 
OA  140 
DA  141 
DA  142 
DA  143 
DA  144 


REFLECT  STRUCTURE  ALONG  X.Y.  OR  Z  AXES  OR  ROTATE  TO  FORM  CYLINDER. 


IY=NS/1 0 
IZ=NS— IY*1 0 
IX=IY/10 
IY=IY— IX* 1 0 
IF  (IX.NE.O)  IX=1 
IF  (IY.NE.O)  IY=1 
IF  (IZ.NE.O)  IZ=1 

PRINT  44.  IFX(IX+1 ) ,IFY(IY+1 ) ,IFZ(IZ+1 ) .ITG 
GO  TO  20 

PRINT  45,  NS. ITG 
IX=-1 

CALL  REFLC  ( IX . IY , IZ , ITG , NS) 

GO  TO  1 


SCALE  STRUCTURE  DIMENSIONS  8Y  FACTOR  XW1 


IF  (N.LT.N2)  GO  TO  23 

DO  22  I=N2 , N 

X(I)=X(I)*XW1 

Y(I)=Y(I)*XW1 

Z(I)=Z(I)*XW1 

X2(I)=X2(I)*XW1 

Y2(I)=Y2(I)*XW1 

Z2(I)=Z2(I)*XW1 

BI( I)=8I( I) *XW1 

IF  (M. LT .M2)  GO  TO  25 

YW1=XW1  *XW1 

IX=LD+1 -M 

IY=LD-M1 

DO  24  I=IX , IY 

X(I)=X(I)»XW1 

Y(I)=Y(I)*XW1 

Z(I)=Z(I)*XW1 

BI(I)=BI(I) • YW1 

PRINT  46.  XW1 

GO  TO  1 


MOVE  STRUCTURE  OR  REPRODUCE  ORIGINAL  STRUCTURE  IN  NEW  POSITIONS. 


PRINT  47 ,  ITG . NS . XW1 . YW1  . ZW1  . XW2  . YW2 . ZW2 , RAD 
XW1  =XW1  *TA 
YW1 =YW1 *TA 
ZW1=ZW1 *TA 

CALL  MOVE  ( XW1  ,  YW1  , ZW1  ,  XW2  , YW2  . ZW2 . INT( RAD+ .5) , NS , ITG) 
GO  TO  1 


DA  145 
DA  146 


DA  147 
DA  148 


DA  149 
DA  150 


DA  151 
DA  152 


DA  153 
DA  154 


DA  155 
DA  156 


DA  157 
DA  158 


DA  159 
OA  160 


DA  161 
DA  162 


DA  163 
DA  164 


DA  165 
DA  166 


DA  167 
DA  168 


DA  169 
DA  170 
DA  171 


DA  172 
OA  173 


DA  174 
DA  175 


DA  176 
DA  177 


DA  178 
DA  179 


DA  180 
DA  181 


DA  182 
DA  183 


OA  184 
DA  185 


DA  186 
DA  187 


DA  188 
DA  189 


DA  190 
DA  191 


DA  192 
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193  C 

194  C 

195  27 

196 

197 

198  28 

199 

200 
201 
202 

203  C 

204  C 

205  C 

206  29 

207 

208 

209 

210 

211  30 

212 

213 

214 

215 

216  31 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227  - 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244  32 

245  33 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255  34 

256  35 


READ  NUMERICAL  GREEN'S  FUNCTION  TAPE 

IF  (N+M.EQ.O)  GO  TO  28 

PRINT  52 

STOP 

CALL  GFIL  (ITG) 

NPSAV=NP 
MPSAV=MP 
IPSAV=IPSYM 
GO  TO  1 

TERMINATE  STRUCTURE  GEOMETRY  INPUT. 

IX=N1+M1 

IF  (IX.EQ.0)  GO  TO  30 

NP=N 

MP=M 

IPSYM=0 

CALL  CONECT  (ITG) 

IF  (IX.EQ.0)  GO  TO  31 

NP=NPSAV 

MP=MPSAV 

IPSYM=IPSAV 

IF  (N+M.GT.LD)  GO  TO  37 
IF  (N.EQ.O)  GO  TO  33 
PRINT  53 
PRINT  54 
DO  32  1=1 .N 
XW1 =X2(I)-X(I) 

YW1=Y2(I)-Y(I) 

ZW1=Z2(I)-Z(I) 

X(I)=(X(I)+X2(I))V5 
Y(I)=(Y(I)+Y2(I))*.5 
Z( I)=(Z(I)+Z2( I) )• . 5 
XW2=XW1  »XW1  +YW1  •  YW1  +ZW1  *ZW1 
YW2=SQRT(XW2) 

YW2=(  XW2/YW2+YW2  )  •  .  5 

SI(I)=YW2 

CAB ( I ) =XW1 /YW2 

SAB  ( I )  =YW1  /YW2 

XW2=ZW1  /YW2 

IF  (XW2.GT.1 .)  XW2=1 . 

IF  (XW2.LT. -1 . )  XW2=-1 . 

SALP(I)=XW2 
XW2=ASIN(XW2)*TD 
YW2=ATGN2(  YW1  ,  XW1  )*TD 

PRINT  55.  I.X(I) ,Y(I) ,Z(I),SI(I), XW2 , YW2 , BI( I) , IC0N1 ( I) , I , IC0N2( I) 
1 .ITAG(I) 

IF  (SI(I).GT.I. E-20 . AND . BI( I) . GT . 1 . E — 1 01)  GO  TO  32 

PRINT  56 

STOP 

CONTINUE 

IF  (M.EQ.O)  GO  TO  35 

PRINT  57 

J=LD+1 

DO  34  1=1 ,M 

J=J-1 

XW1=(T1Y(J)*T2Z(J)-T1Z(J)*T2Y(J))*SALP(J) 

YW1 =(T1Z(J)*T2X(J)-T1X(J)*T2Z(J))*SALP(J) 

ZW1 =(T1X(J)*T2Y(J)-T1Y(J)*T2X(J))»SALP(J) 

PRINT  58.  I,X(J),Y(J),Z(J),XW1 . YW1  , ZW1  ,BI(J),T1X(J),T1Y(J),T1Z(J), 
1T2X(J),T2Y(J),T2Z(J) 

CONTINUE 

RETURN 


DA  193 
DA  194 
DA  195 
DA  196 
DA  197 
DA  198 
DA  199 
DA  200 
DA  201 
OA  202 
DA  203 
DA  204 
DA  205 
DA  206 
DA  207 
DA  208 
DA  209 
DA  210 
DA  211 
DA  212 
DA  213 
DA  214 
DA  215 
DA  216 
DA  217 
DA  218 
OA  219 
DA  220 
DA  221 
DA  222 
DA  223 
DA  224 
DA  225 
DA  226 
DA  227 
DA  228 
DA  229 
DA  230 
DA  231 
DA  232 
DA  233 
DA  234 
DA  235 
DA  236 
DA  237 
DA  238 
DA  239 
DA  240 
DA  241 
DA  242 
DA  243 
DA  244 
DA  245 
DA  246 
DA  247 
DA  248 
DA  249 
DA  250 
OA  251 
DA  252 
OA  253 
DA  254 
DA  255 
DA  256 


IS  I'i.l  <  (  »J‘i 


aU  .»>  Al|  «-4 


257  36 

258 

259 

260  37 

261 

262  C 

263  38 

264 

265  39 

266  40 

267 

268 

269  41 

270 

271 

272  42 

273  43 

274  44 

275 

276  45 

277 

278  46 

279  47 

280 

281  48 

282  49 

283  50 

284 

285  51 

286  52 

287  53 

288 

289 

290  54 

291 

292 

293 

294  55 

295  56 

296  57 

297 

298 

299 

300 

301  58 

302  59 

303 

304  60 

305  61 

306 

307 


PRINT  48 

PRINT  49,  GM , ITG , NS , XW1 , YW1 , ZW1 , XW2 , YW2 , ZW2 , RAD 
STOP 

PRINT  50 
STOP 


FORMAT  (1X.I5.2X, 12HARC  RADIUS  =, F9 . 5 , 2X , 4HFR0M , F8 . 3 , 3H  T0.F8.3.8H 
1  DEGREES.IlX.FI 1 .5.2X.I5.4X.I5. 1X.I5.3X.I5) 

FORMAT  (6X.3F1 1 .5, 1X.3F1 1 .5) 

FORMAT  (////, 33X.35H -  STRUCTURE  SPECIFICATION  - .//.37X.28H 

1  COORDINATES  MUST  BE  INPUT  IN ./. 37X , 29HMETERS  OR  BE  SCALED  TO  METER 
2S ,/, 37X , 31 HBEFORE  STRUCTURE  INPUT  IS  ENDED  //) 

FORMAT  ( 2X , 4HWIRE , 79X . 6HN0 .  OF , 4X , 5HFIRST , 2X , 4HLAST . 5X . 3HTAG ./ , 2X , 
13HN0. .8X.2HX1 .9X.2HY1 .9X.2HZ1 , 1 0X , 2HX2 , 9X , 2HY2 , 9X , 2HZ2 , 6X , 6HRADIUS 
2 , 3X , 4HSEG . . 5X . 4HSEG . . 3X , 4HSEG . . 5X . 3HN0 . ) 

FORMAT  (A2.I3.I5.7F10.5) 

FORMAT  (1X.I5.3F11 .5.1X.4F11 .5 . 2X , 15 ,4X . 15 , 1 X . 15 ,3X , 15) 

FORMAT  (6X.34HSTRUCTURE  REFLECTED  ALONG  THE  AXES . 3( 1 X , A1 ) , 22H .  TA 
1GS  INCREMENTED  BY, 15) 

FORMAT  (6X.30HSTRUCTURE  ROTATED  ABOUT  Z-AXIS . 13 ,30H  TIMES.  LABLES 
1  INCREMENTED  BY, 15) 

FORMAT  ( 6X , 26HSTRUCTURE  SCALED  BY  FACTOR , FI 0 . 5 ) 

FORMAT  (6X.49HTHE  STRUCTURE  HAS  BEEN  MOVED,  MOVE  DATA  CARD  IS  ~/6X 
1 , 13 , 15 , 7F1 0 . 5) 

FORMAT  ( 25H  GEOMETRY  DATA  CARD  ERROR) 

FORMAT  (1X.A2.I3.I5.7F10.5) 

FORMAT  ( 69H  NUMBER  OF  WIRE  SEGMENTS  AND  SURFACE  PATCHES  EXCEEDS  DI 
1 MENSION  LIMIT.) 

FORMAT  (1X.I5.A1 .F10.5.2F11 .5.1X.3F11 .5) 

FORMAT  (44H  ERROR  -  GF  MUST  BE  FIRST  GEOMETRY  DATA  CARD) 

FORMAT  (////33X.33H - SEGMENTATION  DATA - ,//,  40X  .  21 HCOO 

1 RDINATES  IN  METERS ,//,25X , 50HI+  AND  I-  INDICATE  THE  SEGMENTS  BEFOR 
2E  AND  AFTER  I,//) 

FORMAT  (2X.4HSEG  , 3X , 26HCOORDINATES  OF  SEG.  CENTER , 5X , 4HSEG ., 5X , 1 8 
1 HORIENTATION  ANGLES . 4X , 4HWIRE , 4X . 1 5HC0NNECTI0N  DATA . 3X , 3HTAG ,/, 2X , 
23HN0 . ,7X,1HX,9X,1HY,9X,1HZ,7X,JHLENGTH,5X, 5HALPHA ,5X,4HBETA,6X,6HR 
3ADIUS .  4X.2HI-.3X, 1HI.4X.2HI+.4X, 3HN0 . ) 

FORMAT  ( 1 X , 15 , 4F 1 0 . 5 , 1 X . 3F 1 0 . 5 , 1 X , 315 , 2X , ”5 ) 

FORMAT  (19H  SEGMENT  DATA  ERROR) 

FORMAT  (////. 44X.30H -  SURFACE  PATCH  DATA  - ,//,49X .21HC00RD 

1INATES  IN  METERS,//, IX, 5HPATCH . 5X , 22HCOORD .  OF  PATCH  CENTER , 7X , 1 8H 
2UNIT  NORMAL  VECTOR , 6X , 5HPATCH , 1 2X , 34HC0MP0NENTS  OF  UNIT  TANGENT  VE 
3CT0RS , / , 2X , 3HN0 . , 6X , 1 HX , 9X , 1 HY , 9X , 1  HZ , 9X , 1 HX , 7X , 1 HY , 7X , 1  HZ , 7X , 4HAR 
4EA.7X.2HX1 .6X.2HY1 ,6X,2HZ1 , 7X , 2HX2 , 6X , 2HY2 , 6X , 2HZ2 ) 

FORMAT  ( 1X.I4.3F10.5, 1 X , 3F8 . 4 , FI  0 . 5 , 1 X , 3F8 . 4 , 1 X , 3F8 . 4) 

FORMAT  (1X.I5.A1 .F10.5.2F11 .5.1X.3F11 . 5 , 5X , 9HSURFACE  -,I4,3H  BY. 13 
1.8H  PATCHES) 

FORMAT  (17H  PATCH  DATA  ERROR) 

FORMAT  (9X.43HAB0VE  WIRE  IS  TAPERED.  SEG.  LENGTH  RATIO  =,F9.5,/,3 
1 3X  .11 HRADIUS  FROM , F9 . 5 , 3H  T0.F9.5) 

END 


DATAGN 


OA  257 
DA  258 
DA  259 
DA  260 
DA  261 
DA  262 
DA  263 


DA  264 
DA  265 


DA  266 
DA  267 


DA  268 
DA  269 


DA  270 
DA  271 


DA  272 
DA  273 


DA  274 
DA  275 


DA  276 
DA  277 


DA  278 
DA  279 
DA  280 
DA  281 
DA  282 
DA  283 
OA  284 
DA  285 
DA  286 
DA  287 
DA  288 
DA  289 
DA  290 
DA  291 
DA  292 
DA  293 
DA  294 
DA  295 
DA  296 
DA  297 
DA  298 
DA  299 
DA  300 
DA  301 
DA  302 
DA  303 
DA  304 
DA  305 
DA  306 
DA  307- 
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DB10 
PURPOSE 

To  convert  an  input  magnitude  quantity  (field)  or  magnitude  squared 
quantity  (power)  into  decibels. 

METHOD 

For  a  squared  quantity, 

qdb  •  10  1o810  q2 
and  for  an  unsquared  quantity, 

Qdb  “  20  log1()  Q  . 

DB10  is  used  for  the  squared  quantity  while  the  entry  DB20  is  used  for 
the  quantity  which  is  not  squared. 

SYMBOL  DICTIONARY 

ALOGIO  ■  external  routine  (log  to  the  base  10) 

DB10  -  Qdb 

F  ■  scaling  term 

X  -  input  quantity 

CONSTANT 

-20 

-999.99  *  return.^  for  an  input  less  than  10 
CODE  LISTING 


1 

FUNCTION  DB10  (X) 

0B 

1 

2  C 

DB 

2 

3  C 

FUNCTION  DB—  RETURNS  0B  FOR  MAGNITUDE  (FIELD)  OR  MAG**2 

(POWER)  I  DB 

3 

4  C 

DB 

4 

3 

F=10. 

DB 

5 

6 

GO  TO  1 

DB 

6 

7 

ENTRY  DB20 

DB 

7 

8 

F=20 . 

DB 

8 

9  1 

IF  (X.LT.1 . E-20)  GO  TO  2 

0B 

9 

10 

DB1 0=F*AL0G1 0(X) 

DB 

10 

11 

RETURN 

DB 

1 1 

12  2 

DB1 0=-999 . 99 

DB 

12 

13 

RETURN 

DB 

13 

14 

END 

DB 

14- 

the  decibel  conversion  is 
(Q2  input)  , 


EFLD 


PURPOSE 

To  compute  Che  near  eleccric  field  due  to  constant,  sine,  and  cosine 
current  distributions  on  a  segment  in  free  space  or  over  ground. 


METHOD 

The  electric  field  is  computed  at  the  point  XI,  YI,  ZI  due  to  the 
segment  defined  by  parameters  in  COMMON /DATAJ/.  Either  the  thin  wire  or 
extended  thin  wire  formulas  may  be  used.  When  a  ground  is  present,  the  code 
is  executed  twice  in  a  loop.  In  the  second  pass,  the  field  of  the  image  of 
the  segment  is  computed,  multiplied  by  the  reflection  coefficients,  and  added 
to  the  direct  field.  The  reflection  coefficients  for  the  reflected  ray  from 
the  center  of  the  source  segment  are  used  for  the  entire  segment. 

The  field  is  evaluated  in  a  cylindrical  coordinate  system  with  the 
source  segment  at  the  origin,  along  the  z  axis.  The  p  coordinate  of  the 
field  evaluation  point  is  computed  for  the  surface  of  the  observation  segment 
as 


♦  a2)1'2 


9 


where  p  is  the  distance  from  the  axis  of  the  source  segment  to  (XI,  YI,  ZI) 
and  a  is  the  radius  of  the  observation  segment.  The  field  is  computed  in  p 
and  z  components  as 


E  -  E  (p/p*)  +  E  2  . 

P  z 

Use  of  p'  avoids  a  singularity  when  (XI,  YI,  ZI)  is  the  center  of  the  source 
segment.  In  the  addition  of  field  components,  p/p'  is  used  rather  than 
P,  since  Ep  is  the  field  in  the  direction  O'  to  one  side  of  the 
observation  segment. 

When  the  Sommerfeld/Norton  option  is  used  for  an  antenna  over  ground  the 
electric  field  at  r  due  to  the  current  on  a  segment  is  evaluated  in  three 
terms  as 
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k2  -  k2 

E(r)  =  ED(r)  +  - 1  E^r)  +  Eg(r) 

kl  +  k2 

Ep  is  the  direct  field  of  the  segment  in  the  absence  of  ground,  and  Ej  is 
the  field  of  the  image  of  the  segment  reflected  in  a  perfectly  conducting 
ground.  These  field  comonents  are  evaluated  in  EFLD  between  EF19  and  EF150. 

2  2  2  2 

The  factor  (k^  -  •^/(^i  +  k^)  is  contained  in  the  variable  FRATI. 

The  field  Eg,  due  to  the  Sommerfeld  integrals  is  evaluated  from  EF155 
to  EF227.  If  the  separation  of  the  observation  point  and  the  center  of  the 
source  segment  is  less  than  one  wavelength,  subroutine  R0M2  is  called  at  EF191 
to  integrate  over  the  segment.  DMIN  is  set  to  the  magnitude  of  the  first  two 
terms  in  E  divided  by  100  as  a  lower  limit  on  the  denominator  of  the  relative 
error  test  in  the  numerical  integration.  This  relaxes  the  relative  accuracy 
requirement  when  Eg  is  small  compared  to  the  first  two  terms. 

If  the  separation  of  the  source  segment  and  observation  point  is  greater 
than  a  wavelength,  SFLDS  is  called  at  EF197  to  evaluate  Eg  by  the  Norton 
approximation. 

To  compute  Eg  with  the  thin  wire  approximation  applied  in  a  manner 
consistent  with  that  for  Ej,  the  field  is  evaluated  at  a  point  displaced 
normal  to  the  image  of  the  source  segment  and  normal  to  the  separation  R.  If 
the  direction  of  the  image  of  the  source  segment  is  j  the  displacement  is  D 
where 

D  =  +ad  for  z  •  d  ^  0 

d  ■  (j  x  R)/lj  x  R I 
a  =»  radius  of  observation  segment 

This  displaced  observation  point  (XO,  YO,  ZO)  is  computed  from  EF166  to 
EFldl.  Some  of  the  complexity  is  needed  to  make  the  result  independent  of 
orientation  cf  segments  relative  to  the  coordinate  axes. 
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To  adjust  the  p  component  of  field  for  the  factor  lp/p' I  the 
field  E*  is  computed  as 

£'  •  PE  ♦  (1  -  F)(E  .  j)j 

22  2  1/2 
where  F  -  [p  /(p  ♦  a  )] 

2  . 2 

p  ■  iRl  -  (R  *  j) 


This  is  done  from  EF204  to  EF218  but  is  skipped  if  F  (DMIN)  is  greater  than 
0.95. 


CODING 

EF23 

EF29  -  EF31 
EF33  -  EF40 
EF46  -  EF62 


Loop  over  direct  and  image  fields. 

Components  of  p. 

Components  of  p/p'  computed. 

Electric  field  of  the  segment  computed  by  infinitesimal 


EF68 
EF70  . 

EF72  -  EF80 
EF89  -  EF111 
EF112  -  EF129 
EF130  -  EF138 


dipole  approximation. 

Field  computed  by  thin  wire  approximation. 

Field  computed  by  extended  thin  wire  approximation. 
Field  converted  to  x,  y,  and  z  components. 
Reflection  coefficients  computed. 

Image  fields  modified  by  reflection  coefficients. 
Reflected  fields  added  to  direct  fields. 


SYMBOL  DICTIONARY 

AI  *  radius  of  segment  on  which  field  is  evaluated 

CTH  *  cos  8;  8  »  angle  from  axis  of  infinitesimal  dipole  or  angle 

between  the  reflecting  ray  and  vertical 
EGND  *  components  of  Eg  (see  EQUIVALENCE  statement) 


EPX 

EPY 

ETA 

IJ 

PI 


*  x  and  y  components  of  (E  •  p)p  (see  P X) 

-  H  -  (Mo Ito)112 

m  IJX  *  flag  to  indicate  field  evaluation  point  is  on  the 
source  segment  (IJ  ■  0) 

■  IT 
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PX 

PY 

R 

REFPS 

REFS 

RFL 

RH 

RHOSPC 

RHQX 

RHOY 

RHOZ 

RMAG 

SALPR 

• 

SHAF 

TERC 

TERS  • 

TERK 

TEZC 

TEZS 

TEZK 

TP 

TXC  > 

TYC 

TZC 

TXS 

TYS  V 

TZS 

TXK 

TYK 

TZK 


*  x  and  y  components  of  unit  vector  normal  to  the  plane  of 
incidence  of  the  reflected  wave  (p) 

*  distance  from  field  evaluation  point  to  the  center  of  the 
source  segment 

*  reflection  coefficient  for  a  horizontally  polarized  field 

*  reflection  coefficient  for  a  vertically  polarized  field 

*  +1  for  direct  field,  -L  for  reflected  field 

-  P' 

»  distance  from  coordinate  origin  to  the  point  where  the  ray 
from  the  source  to  (XI,  YI,  ZI)  reflects  from  the  ground 

■  x,  y,  and  z  components  of  p  or  p/p1  or  j  x  R 

*  2 UR  or  R  or  dipole  moment  for  sin  ks  current 

■  z  component  of  unit  vector  in  the  direction  of  the  source 
segment  or  its  image 

*  half  of  segment  length 

*  p  component  of  field  due  to  cos  ks,  sin  ks, 
and  constant  currents,  respectively 

m  z  component  of  field  due  to  cos  ks,  sin  ks,  and 
constant  current,  respectively 

-  21T 


*  x,  y,  and  z  components  of  field  due  to  cos  ks, 
sin  ks,  and  constant  current 


XI 

YI 

ZI 


J 


x,  y,  z  coordinates  of  field  evaluation  point 


components  of  distance  from  source  to  observation 
point 


EFLD 


coordinates  of  field  evaluation  point  for  Eg 


XSPEC 


YSPEC 


x,  y  coordinates  of  ground  plane  reflection  point 


XYMAG 


ZRATX 


horizontal  distance  from  center  of  source  segment  to 
observation  point 

projection  of  the  vector  from  the  source  segment  (XI,  YI,  ZI) 
onto  the  axis  of  the  source  segment 
temporary  storage  for  ZRATI 


ZRSIN 


(1  -  Z2  sin2  O)1^2  for  ground 


ZSCKN 


quantity  used  in  computing  reflection  coefficient  for  radial 
wire  ground  screen 


CONSTANT 


3.141592654 


376.73 


6.283185308 


r. 


B 


: 


I 
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EFLD 


1 

SUBROUTINE  EFLD  (XI.YI.ZI.AI.IJ) 

EF 

1 

2  C 

EF 

2 

3  C 

COMPUTE  NEAR  E  FIELDS  OF  A  SEGMENT  WITH  SINE.  COSINE.  AND 

EF 

3 

4  C 

CONSTANT  CURRENTS.  GROUND  EFFECT  INCLUDED. 

EF 

4 

S  C 

EF 

5 

« 

COMPLEX  TXK . TYK . TZK . TXS , TYS , TZS , TXC . TYC . TZC , EXK . EYK 

.EZK.EXS.EYS.EZ 

EF 

6 

7 

1 S . EXC „EYC . EZC . EPX . EPY . ZRATI . REFS . REFPS . ZRSIN . ZRATX . 

T1 , ZSCRN.ZRATI2 

EF 

7 

8 

2 . TEZS . TERS . TEZC . TERC , TEZK. TERK . EGND . FRATI 

EF 

8 

9 

COMMON  /DA TAJ/  S.B ,XJ , YJ , ZJ . CABJ ,SABJ , SALPJ , EXK, EYK 

.EZK.EXS.EYS.EZ 

EF 

9 

10 

1 S . EXC . EYC . EZC . RKH . IEXK . IND1 , IN02 . IPGND 

EF 

10 

11 

COMMON  /GND/  ZRATI , ZRATI2 , FRATI , CL , CH , SCRWL , SCRWR , NRADL . KSYMP , IFAR 

EF 

11 

12 

1 , IPERF.T1 , T2 

EF 

12 

13 

COMMON  /INCOM/  XO . YO , ZO . SN . XSN . YSN , ISNOR 

EF 

13 

14 

DIMENSION  EGND(9) 

EF 

14 

15 

EQUIVALENCE  (EGND( 1 ) . TXK) .  ( EGND(2) . TYK) .  (EGND(3). 

TZK).  (EGND(4), 

EF 

15 

16 

1 TXS) ,  (EGND(5) , TYS) ,  (EGND(6) . TZS) .  ( EGND(7) , TXC) . 

(EGND(8).TYC). 

EF 

16 

17 

2(EGND(9) , TZC) 

EF 

17 

18 

DATA  ETA/376 . 73/ . PI/3 . 141592654/ . TP/6 . 283 1 85308/ 

EF 

18 

19 

XIJ=XI-XJ 

EF 

19 

20 

YIJ*YI— YJ 

EF 

20 

21 

IJXsIJ 

EF 

21 

22 

RFL=-1 . 

EF 

22 

23 

DO  12  IP=1, KSYMP 

EF 

23 

24 

IF  (IP.EQ.2)  IJX=1 

EF 

24 

25 

RFL=-RFL 

EF 

25 

26 

SALPR=SALPJ*RFL 

EF 

26 

27 

ZIJ=ZI-RFL*ZJ 

EF 

27 

28 

ZP=XIJ*CA8J+YIJ*SABJ+ZIJ*SALPR 

EF 

28 

29 

RHOX=XIJ-CABJ*ZP 

EF 

29 

30 

RHOY=YIJ-SABJ*ZP 

EF 

30 

31 

RHOZ=ZIJ-SALPR*ZP 

EF 

31 

32 

RH=SQRT ( RHOX • RHOX+RHOY*  RHOY+RHOZ*  RHOZ+AI* AI ) 

EF 

32 

33 

IF  (RH.GT.1 .E-10)  GO  TO  1 

EF 

33 

34 

RHOX=0 . 

EF 

34 

35 

RH0Y=0 . 

EF 

35 

36 

RHOZ=0 . 

EF 

36 

37 

GO  TO  2 

EF 

37 

38  1 

RHOX=RHOX/RH 

EF 

38 

39 

RHOY=RHOY/RH 

EF 

39 

40 

RHOZ=RHOZ/RH 

EF 

40 

41  2 

R=SQRT(ZP»ZP+RH»RH) 

EF 

41 

42 

IF  (R.LT.RKH)  GO  TO  3 

EF 

42 

43  C 

EF 

43 

44  C 

LUMPED  CURRENT  ELEMENT  APPROX.  FOR  LARGE  SEPARATIONS 

EF 

44 

45  C 

EF 

45 

46 

RMAG=TP*R 

EF 

46 

47 

CTH=ZP/R 

EF 

47 

48 

PX=RH/R 

EF 

48 

49 

TXK=CMP  LX ( COS ( RMAG ) .-SIN(RMAG) ) 

EF 

49 

50 

PY=TP»R»R 

EF 

50 

51 

TYK=ETA*CTH*TXK*CMPLX( 1 . .-1 ./RMAG)/PY 

EF 

51 

52 

TZK=ETA*PX*TXK*CMPLX( 1 . , RMAG-1 ./RMAG)/(2 . »PY) 

EF 

52 

S3 

TEZK=TYK*CTH-TZK*PX 

EF 

53 

54 

TERK=TYK*PX+TZK*CTH 

EF 

54 

55 

RMAG=SIN(PI*S)/PI 

EF 

55 

56 

TEZC=TEZK*RMAG 

EF 

56 

57 

TERC=TERK*RMAG 

EF 

57 

58 

TEZK*TEZK*S 

EF 

58 

59 

TERK=TERK»S 

EF 

59 

60 

TXS=(0. .0.) 

EF 

60 

61 

TYS»(0. .0.) 

EF 

61 

62 

TZS=(0. .0.) 

EF 

62 

63 

GO  TO  6 

EF 

63 

64  3 

IF  (IEXK.EQ. 1 )  GO  TO  4 

EF 

64 
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65  C 

EF 

65 

66  C 

EKSC  FOR  THIN  WIRE  APPROX.  OR  EKSCX  FOR  EXTENDED  T.W. 

APPROX. 

EF 

66 

67  C 

EF 

67 

68 

CALL  EKSC  (S , ZP , RH , TP , I JX , TEZS , TERS , TEZC , TERC , TEZK , TERK) 

EF 

68 

69 

GO  TO  5 

EF 

69 

70  4 

CALL  EKSCX  (B ,S .ZP . RH . TP . IJX . IND1 . IND2 . TEZS . TERS . TEZC , 

,TERC,TEZK,TE 

EF 

70 

71 

IRK) 

EF 

71 

72  5 

TXS*TEZS*CABJ+TERS*RHOX 

EF 

72 

73 

TYS*TEZS*SABJ+TERS*RHOY 

EF 

73 

74 

TZS»TEZS*SALPR+TERS*RHOZ 

EF 

74 

75  6 

TXK*TEZK*CABJ+TERK*RHOX 

EF 

75 

76 

TYK*TEZK*SABJ+TERK*RHOY 

EF 

76 

77 

TZK*TEZK*SALPR+TERK*RHOZ 

EF 

77 

78 

TXC*TEZC*CABJ+TERC*RHOX 

EF 

78 

79 

TYOTEZC*SABJ+TERC*RHOY 

EF 

79 

80 

TZC=TEZC*SALPR+TERC*RHOZ 

EF 

80 

81 

IF  (IP. HE. 2)  GO  TO  11 

EF 

81 

82 

IF  (IPERF.GT.O)  GO  TO  10 

EF 

82 

83 

ZRATX-ZRATI 

EF 

83 

84 

RtlAGaR 

EF 

84 

85 

XYMAG=SQRT(XIJ*XIJ+YIJ*YIJ) 

EF 

85 

86  C 

EF 

86 

87  C 

SET  PARAMETERS  FOR  RADIAL  WIRE  GROUND  SCREEN. 

EF 

87 

88  C 

EF 

88 

89 

IF  (NRAOL.EQ.O)  GO  TO  7 

EF 

89 

90 

XSPEC=(XI*ZJ+ZI*XJ)/(ZI+ZJ) 

EF 

90 

91 

YSPEC=(YI*ZJ+ZI*YJ)/(ZI+ZJ) 

EF 

91 

92 

RHOSPC=SQRT(XSPEC*XSPEC+YSPEC*YSPEC+T2*T2) 

EF 

92 

93 

IF  ( RHOSPC . GT . SCRWL )  GO  TO  7 

EF 

93 

94 

ZSCRN=T1 ‘RHOSPC* ALOG( RH0SPC/T2 ) 

EF 

94 

95 

ZRATX*( ZSCRN*ZRATI)/( ETA*ZRATI+ZSCRN ) 

EF 

95 

96  7 

IF  (XYMAG.GT.1 .E-6)  GO  TO  8 

EF 

96 

97  C 

EF 

97 

98  C 

CALCULATION  OF  REFLECTION  COEFFICIENTS  WHEN  GROUND  IS 

SPECIFIED. 

EF 

98 

99  C 

EF 

99 

100 

PX=0. 

EF 

100 

101 

PY=0. 

EF 

101 

102 

CTH=1 . 

EF 

102 

103 

ZRSIN=( 1  .  .0.) 

EF 

103 

104 

GO  TO  9 

EF 

104 

105  8 

PX=— YI J/XYMAG 

EF 

105 

106  . 

PY=XIJ/XYMAG 

EF 

106 

107 

CTHsZIJ/RMAG 

EF 

107 

108 

ZRSIN=CSQRT(1 .-ZRATX*ZRATX*( 1 .-CTH'CTH) ) 

EF 

108 

109  9 

REFS=(CTH-ZRATX*ZRSIN)/(CTH+ZRATX*ZRSIN) 

EF 

109 

110 

REFPS*-(ZRATX*CTH-ZRSIN)/(ZRATX*CTH+ZRSIN) 

EF 

110 

111 

REFPS=REFPS-REFS 

EF 

111 

112 

EPY=PX*TXK+PY*TYK 

EF 

112 

113 

EPX*PX*EPY 

EF 

113 

114 

EPY»PY*EPY 

EF 

114 

115 

TXKaREFS*TXK+REFPS*EPX 

EF 

115 

116 

TYK=REFS*TYK+REFPS*EPY 

EF 

116 

117 

TZK=REFS*TZK 

EF 

117 

118 

EPY*PX*TXS+PY*TYS 

EF 

118 

119 

EPX*PX*EPY 

EF 

119 

120 

EPY*PY*EPY 

EF 

120 

121 

TXS=REFS*TXS+REFPS*EPX 

EF 

121 

122 

TYS=REFS*TYS+REFPS*EPY 

EF 

122 

123 

TZS»REFS*TZS 

EF 

123 

124 

EPY»PX*TXC+PY*TYC 

EF 

124 

125 

EPX»PX*EPY 

EF 

125 

126 

E"Y*PY*EPY 

EF 

126 

127 

TXCsREFS*TXC+REFPS*EPX 

EF 

127 

128 

TYC»REFS*TYC+REFPS*EPY 

EF 

128 

EFT -ft 


129 

TZC=REFS*TZC 

EF 

129 

130 

10 

EXK=EXK-TXK*FRATI 

EF 

130 

131 

EYK*EYK-TYK*FRATI 

EF 

131 

132 

EZK=EZK-TZK*  FRATI 

EF 

132 

133 

EXSaEXS-TXS'FRATI 

EF 

133 

134 

EYS=EYS-TYS*  FRATI 

EF 

134 

135 

EZS=EZS-TZS*  FRATI 

EF 

135 

136 

EXC=EXC-TXC*  FRATI 

EF 

136 

137 

EYC=EYC-TYC»FRATI 

EF 

137 

138 

EZC=EZC— TZC*FRATI 

EF 

138 

139 

GO  TO  12 

EF 

139 

140 

11 

EXK=TXK 

EF 

140 

141 

EYK=TYK 

EF 

141 

142 

EZK=TZK 

EF 

142 

143 

EXS=TXS 

EF 

143 

144 

EYS=TYS 

EF 

144 

145 

EZS=TZS 

EF 

145 

146 

EXC=TXC 

EF 

146 

147 

EYC=TYC 

EF 

147 

148 

EZC=TZC 

EF 

148 

149 

12 

CONTINUE 

EF 

149 

150 

IF  (IPERF.EQ.2)  GO  TO  13 

EF 

150 

151 

RETURN 

EF 

151 

152 

C 

EF 

152 

153 

C 

FIELD  DUE  TO  GROUND  USING  SOMMERFELD/NORTON 

EF 

153 

154 

C 

EF 

154 

155 

13 

SN=SQRT ( CAB J  *CAB J+SAB  J *SAB J ) 

EF 

155 

156 

IF  (SN.LT.1 .E-5)  GO  TO  14 

EF 

156 

157 

XSN=CAB J/SN 

EF 

157 

158 

YSN=SABJ/SN 

EF 

158 

159 

GO  TO  15 

EF 

159 

160 

14 

SN=0 . 

EF 

160 

161 

XSN=1  . 

EF 

161 

162 

YSN=0. 

EF 

162 

163 

C 

EF 

163 

164 

C 

DISPLACE  OBSERVATION  POINT  FOR  THIN  WIRE  APPROXIMATION 

EF 

164 

165 

C 

EF 

165 

166 

15 

ZIJ=ZI+ZJ 

EF 

166 

167 

SALPR=-SALPJ 

EF 

167 

168 

RHOX=SABJ*ZIJ-SALPR»YIJ 

EF 

168 

169 

RHOY=SALPR*XIJ-CAB J*ZI J 

EF 

169 

170 

RHOZ=CABJ»YIJ-SABJ*XIJ 

EF 

170 

171 

RH=RHOX • RHOX+RHOY • RHO Y+RHOZ*  RHOZ 

EF 

171 

172 

IF  (RH.GT.1 . E-1 0)  GO  TO  16 

EF 

172 

173 

XO=X I— A I • YSN 

EF 

173 

174 

YO=YI+AI*XSN 

EF 

174 

175 

ZO=ZI 

EF 

175 

176 

GO  TO  17 

EF 

176 

177 

16 

RH=AI/SQRT(RH) 

EF 

177 

178 

IF  (RHOZ.LT.O.)  RH=-RH 

EF 

178 

179 

XO=XI+RH»RHOX 

EF 

179 

180 

YO=YI+RH»RHOY 

EF 

180 

181 

ZO=ZI+RH*RHOZ 

EF 

181 

182 

17 

R=XIJ*XIJ+YIJ*YIJ+ZIJ*ZIJ 

EF 

182 

183 

IF  (R.GT..95)  GO  TO  18 

EF 

183 

184 

C 

EF 

184 

185 

C 

FIELD  FROM  INTERPOLATION  IS  INTEGRATED  OVER  SEGMENT 

EF 

185 

186 

C 

EF 

186 

187 

ISNORsI 

EF 

187 

188 

OMIN»EXK*CONJG(EXK)+EYK»CONJG(EYK)+EZK*CONJG(EZK) 

EF 

188 

189 

OMINb.OI •SQRT(OMIN) 

EF 

189 

190 

SHAF*.5*S 

EF 

190 

191 

CALL  R0M2  ( -SHAF , SHAF , EGND , DMIN ) 

EF 

191 

192 

GO  TO  19 

EF 

192 
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193  C  EF  193 

194  C  HORTON  FIELD  EQUATIONS  ANO  LUMPED  CURRENT  ELEMENT  APPROXIMATION  EF  194 

195  C  EF  195 

196  18  ISNOR=2  EF  196 

197  CALL  SFLDS  (O..EGNO)  EF  197 

198  GO  TO  22  EF  198 

199  19  ZP=XIJ*CABJ+YIJ*SABJ+ZIJ*SALPR  EF  199 

200  RHsR— ZP*ZP  EF  200 

201  IF  (RH.GT.1 .E-10)  GO  TO  20  EF  201 

202  DMINsO.  EF  202 

203  GO  TO  21  EF  203 

204  20  DMIN=SQRT(RH/(RH+AI*AI) )  EF  204 

205  21  IF  (DMIN.GT. .95)  GO  TO  22  EF  205 

206  PX*1 .-OMIN  EF  206 

207  TERK=(TXK»CABJ+TYK»SABJ+TZK*SALPR)*PX  EF  207 

208  TXK=0MIN*TXK.+TERK»CABJ  EF  208 

209  TYK=OMIN*TYK+TERK*SABJ  EF  209 

210  TZK=DMIN*TZK+TERK*SALPR  EF  210 

211  TERS=(TXS*CABJ+TYS*SABJ+TZS»SALPR)*PX  EF  211 

212  TXS=OMIN*TXS+TERS*CABJ  EF  212 

213  TYS=DMIN*TYS+TERS*SABJ  EF  213 

214  TZS=OMIN*TZS+TERS*SALPR  EF  214 

215  TERC=(TXC«CABJ+TYC»SA8J+TZC*SALPR)*PX  EF  215 

216  TXC=DMIN»TXC+TERC«CABJ  EF  216 

217  TYC=OMIN*TYC+TERC*SABJ  EF  217 

218  TZC=OMIN»TZC+TERC*SALPR  EF  218 

219  22  EXK=EXK+TXK  EF  219 

220  EYK=EYK+TYK  EF  220 

221  EZK=EZK+TZK  EF  221 

222  EXS=EXS+TXS  EF  222 

223  EYS=EYS+TYS  EF  223 

224  EZS=EZS+TZS  EF  224 

225  EXC=EXC+TXC  EF  225 

226  EYC=EYC+TYC  •  EF  226 

227  EZC=EZC+TZC  EF  227 

228  RETURN  EF  228 

229  ENO  EF  229- 
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PURPOSE 


To  compute  the  electric  field  due  to  current  filaments  with  sin  kz, 
cos  kz  and  constant  distributions. 


METHOD 

Equations  71  through  7I+  in  Part  I  are  used.  The  current  filament  is 
located  at  the  origin  of  a  cylindrical  coordinate  system,  oriented  along  the 
z  axis,  and  extending  from  -A/2  to  A/2.  The  field  is  computed  in  p  and  z 
components . 


SYMBOL  DICTIONARY 
CINT 


CON 

CS 

ERS 

EZS 

ERC 

EZC 

ERK 

EZK  J 

GP1 

GP2 

GZ1 

GZ2 


A/2 

■  /  cos  (kr)/r  dz 
-A/ 2 


CONX 
cos.  (kA/2) 


jn/(8iT  ),  n  -  /yQ/e0 


p  and  z  components  of  field  due  to  sin  kz,  cos  kz,  and 
constant  (S,  C,  K,  respectively)  current  distributions 
extending  from  z  *  -A/2  to  z  *  A/2 


-(1  +  jkr)  Gg/r  for  z  -  -A/ 2  and  A/2,  respectively,  where 


Gq  for  z 


exp (-jkr)/r 

-A/ 2  and  A/2,  respectively 


GZP1  -  3Gq/3z  at  EK21,  EK22  and  3GQ/3p  at  EK28,  EK29  for 


GZP2 

IJ 


z  ■  -A/2  and  A/ 2,  respectively 

IJX  ■  0  to  indicate  that  the  field  point  is  on  the  source 


segment 

RH  ■  p  coordinate  of  field  point 
RHK  -  kp  (k  -  2tt/X,  X  =  1) 


sin  (kr)/r  dz 


EKSC 


SINT 

SS 

XK 

Z 

Z1 

Z2 

ZPK 


=»  sin  (kA/2) 

=*  k  *  2ir/X,  where  X 


1 


»  z  coordinate  of  field  point 


=  -A/2  -  z 


-  A/2  -  z 
«  kz 


CONSTANT 

4.771341189  -  n/(8ir2) 


CODE  LISTING 


1 

SUBROUTINE  EKSC  (S . Z. RH ,XK, IJ , EZS, ERS . EZC, ERC, EZK ; ERK) 

EK 

1 

2  C 

COMPUTE  E  FIELD  OF  SINE.  COSINE.  AND  CONSTANT  CURRENT  FILAMENTS 

BY  EK 

2 

3  C 

THIN  WIRE  APPROXIMATION. 

EK 

3 

4 

COMPLEX  CON.GZ! , GZ2.GP1 .GP2.GZP1 .GZP2 . EZS , ERS . EZC , ERC. EZK . ERK 

EK 

4 

S 

COMMON  /TMI/  ZPK.RKB2.IJX 

EK 

5 

6 

DIMENSION  C0NX(2) 

EK 

6 

7 

EQUIVALENCE  (CONX.CON) 

EK 

7 

8 

DATA  CONX/O. .4.771341 189/ 

EK 

8 

9 

IJX=IJ 

EK 

9 

10 

ZPK=XK*Z 

EK 

10 

1 1 

RHK=XK»RH 

EK 

1 1 

12 

RKB2=RHK*RHK 

EK 

12 

13 

SH=.5«S 

EK 

13 

14 

SHK=XK*SH 

EK 

14 

15 

SS=SIN(SHK) 

EK 

15 

16 

CS=C0S(SHK) 

EK 

16 

17 

Z2=SH-Z 

EK 

17 

18 

Z1=-(SH+Z) 

EK 

18 

19 

CALL  GX  ( Z 1 .RH.XK.GZ1 ,GP1 ) 

EK 

19 

20 

CALL  GX  (Z2.RH.XK.GZ2.GP2) 

EK 

20 

21 

GZP1 =GP1 *Z1 

EK 

21 

22 

GZP2=GP2*Z2 

EK 

22 

23 

EZS=CON*( (GZ2-GZ1 ) »CS»XK-(GZP2+GZP1 )»SS) 

EK 

23 

24 

EZC=-C0N* ( (GZ2+GZ1 ) *SS*XK+(GZP2-GZP1  ) *CS) 

EK 

24 

25 

ERK=CON*(GP2-GP1 )*RH 

EK 

25 

26 

CALL  INTX  (-SHK.SHK.RHK.IJ .CINT.SINT) 

EK 

26 

27 

EZK=-CON* ( GZP2-GZP1 +XK*XK*CMPLX(CINT ,-SINT) ) 

EK 

27 

28 

GZP1=GZP1»Z1 

EK 

28 

29 

GZP2=GZP2*Z2 

EK 

29 

30 

IF  (RH.LT.1 . E-1 0)  GO  TO  1 

EK 

30 

31 

ERS=-CON*( (GZP2+GZP1 +GZ2+GZ1 ) *SS-( Z2*GZ2-Z1 *GZ1 ) *CS*XK)/RH 

EK 

31 

32 

ERC=-CON*( (GZP2-GZP1 +GZ2-GZ1 )»CS+(Z2*GZ2+Z1 *GZ1 ) •SS'XK)/RH 

EK 

32 

33 

RETURN 

EK 

33 

34  1 

ERS=(0. ,0.) 

EK 

34 

35 

ERC=(0. .0. ) 

EK 

35 

36 

RETURN 

EK 

36 

37 

END 

EK 

37- 
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EKSCX 

PURPOSE 

To  compute  the  electric  field  due  to  current  distributions  of  sin  kz, 
cos  kz,  and  constant  on  the  surface  of  a  cylinder  by  the  extended  thin  wire 
appr oxima cion . 

METHOD 

Equations  84  through  87  in  Part  I  are  used.  The  current  tube  is 
centered  on  the  origin  of  a  cylindrical  coordinate  system,  oriented  along  the 
z  axis  and  extending  from  -A/ 2  to  A/ 2.  The  field  is  computed  in  p  and  z 
components . 

If  INX1  ■  2,  the  field  contributions  from  end  1  of  the  segment 
(z  »  -A/2)  are  evaluated  by  the  thin  wire  approximation  for  a  current 
filament  on  the  cylinder  axis.  INX2  has  the  same  meaning  for  end  2  of  the 
segment  (z  *  A/2) .  The  thin-wire  approximation  is  used  at  an  end  when  there 
is  a  bend  or  change  in  radius  from  that  end  to  the  next  segment. 

When  the  p  coordinate  of  the  field  point  (RHX)  is  less  than  the  radius 
of  the  current  tube  (BX),  then  RHX  and  BX  are  interchanged  and  a  flag,  IRA, 
is  set  to  1  to  cause  alternate  forms  for  and  its  derivatives  to  be  used 
in  routine  GXX. 


SYMBOL  DICTIONARY 


A2 


B  *  radius  of  the  current  tube 

BK  *  kB,  where  k  *  2t r/\,  X  =*  1 

BK2  -  (BK)2/4 

BX  =  radius  of  the  current  tube 


rA/2 

CINT  ■  /  cos  (kr)/r  dz 
-A/ 2 

CON  =  CONX  =  jn/(8TT2),  where  n  =  /Uq/Eq 
CS  *  cos  (kA/2) 


ERS 

EZS 

ERC 

EZC 

ERK 


f)  and  z  components  of  field  due  to  sin  kz,  cos  kz,  and 
constant  (S,  C,  K,  respectively)  current  distributions 
extending  from  z  ■  -A/2  to  z  =  A/2. 


EKSCX 


CONSTANT 


for  z  »  -A/2  and  A/2,  respectively 


3G  /3p 


3G2/3z' 


SGj/Sz' 


3Gq/3z’ 


■  IJX  *  0  to  indicate  that  the  field  point  is  on  the  source 


segment 


2  to  use  the  thin  wire  form  at  end  1  or  end  2, 
respectively 


1  to  indicate  RHX  <  BX 


p  coordinate  of  the  field  point  or  wire  radius 
k(RH) 


p  coordinate  of  the  field  point 
(RHK)2 


rA/2 

/  sin  (kr)/r  dz 
-A/ 2 


sin  (kA/2) 
k  -  2tt/X,  \  -  1 
z  coordinate  of  field  point 
-A/2  -  z 


-  A/2  -  z 


4.77134118  =  ti/(8tt  ) 
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voycycytfyi 


1 

2 

3  C 

4  C 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16  1 

17 

18 

19  2 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33  3 

34 

35 

36 

37 

38 

39  4 

40 

41 

42  5 

43 

44 

45 

46 

47 

48  6 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


SUBROUTINE  EKSCX  (BX.S.Z.RHX.XK.IJ.INX1 ,  INX2 ,  EZS ,  ERS ,  EZC ,  ERC.  EZK ,  E  EX  1 

IRK)  EX  2 

COMPUTE  E  FIELD  OF  SINE.  COSINE,  AND  CONSTANT  CURRENT  FILAMENTS  BY  EX  3 

EXTENOED  THIN  WIRE  APPROXIMATION.  EX  4 

COMPLEX  C0N.GZ1 .GZ2.GZP1 .GZP2.GR1 .GR2.GRP1 , GRP2.EZS.EZC.ERS.ERC.gr  EX  5 

1K1 .GRK2.EZK.ERK.GZZ1 ,GZZ2  EX  6 

COMMON  /TMI/  ZPK.RKB2.IJX  EX  7 

DIMENSION  C0NX(2)  EX  8 

EQUIVALENCE  (CONX.CON)  EX  9 

DATA  CONX/O .,4.7713411 89/  EX  10 

IF  (RHX.LT.BX)  GO  TO  1  EX  1 1 

RHsRHX  EX  1 2 

B=BX  EX  13 

IRA=0  EX  1 4 

GO  TO  2  EX  15 

RH=8X  EX  1 6 

B=RHX  EX  17 

IRA=1  EX  18 

SH=.5*S  EX  19 

IJX=IJ  EX  20 

ZPK=XK*Z  EX  21 

RHK=XK*RH  EX  22 

RK82=RHK*RHK  EX  23 

SHK=XK*SH  EX  24 

SS=SIN(SHK)  EX  25 

CS=COS(SHK)  EX  26 

Z2=SH-Z  EX  27 

Z1=-(SH+Z)  EX  28 

A2=8*B  EX  29 

IF  (INX1.EQ.2)  GO  TO  3  EX  30 

CALL  GXX  (Z1 .RH.B.A2, XK. IRA. GZ1 .GZP1 .GR1 ,GRP1 .GRK1 .GZZ1 )  EX  31 

GO  TO  4  EX  32 

CALL  GX  (Z1 .RHX.XK.GZ1 .GRK1 )  EX  33 

GZP1=GRK1*Z1  EX  34 

GR1=GZ1/RHX  EX  35 

GRP 1 =GZ P 1 /RHX  EX  36 

GRK1=GRK1 *RHX  EX  37 

GZZ1=(0.,0.)  EX  38 

IF  (INX2.EQ.2)  GO  TO  5  EX  39 

CALL  GXX  ( Z2 , RH , B , A2 , XK , IRA , GZ2 , GZP2 . GR2 , GRP2 . GRK2 , GZZ2)  EX  40 

GO  TO  6  EX  41 

CALL  GX  (Z2.RHX.XK.GZ2.GRK2)  EX  42 

GZP2=GRK2*Z2  EX  43 

GR2=GZ2/RHX  EX  44 

GRP2=GZP2/RHX  EX  45 

GRK2=GRK2*RHX  EX  46 

GZZ2=(0..0.)  EX  47 

EZS=CON*( (GZ2-GZ1 ) *CS*XK-(GZP2+GZP1 )*SS )  EX  48 

EZC=-CON* ( (GZ2+GZ1 ) *SS*XK+(GZP2-GZP1 ) *CS)  EX  49 

ERS=-CON* ( ( Z2*GRP2+Z 1 *GRP1+GR2+GR1 )»SS-(Z2*CR2-Z1 »GR1 )*CS*XK)  EX  50 

ERC=-C0N*((Z2*GRP2-Z1 *GRP1 +GR2-GR1 )*CS+(Z2*GR2+Z1 *GR1 )*SS*XK)  EX  51 

ERK=C0N*(GRK2-GRK1 )  EX  52 

CALL  INTX  (-SHK.SHK.RHK.IJ.CINT.SINT)  EX  53 

BK=B*XK  EX  54 

BK2=BK*BK* . 25  EX  55 

EZK=-CON* (GZP2-GZP1 +XK*XK* ( 1 . -BK2 )*CMPLX(CINT . -SINT)-BK2*(GZZ2-GZZ  EX  56 

11))  EX  57 

RETURN  EX  58 

END  EX  59- 


ENF 


PURPOSE 


To  check  for  an  end  of  file. 


METHOD 


ENF  uses  the  standard  Fortran  end-of-file  test  and  returns  the  logical 
values  .TRUE,  or  .FALSE.  This  separate  function  is  used  for  convenience  in 
adapting  the  code  to  particular  computers,  since  the  Fortran  end-of-file  test 
statements  often  differ  between  computers.  The  form  of  ENF  here  is  for  CDC 


computers . 


SYMBOL  DICTIONARY 


ENF  ■  logical  value:  .TRUE,  if  end  of  file  was  encountered;  .FALSE. 


otherwise 


NUNIT  -  logical  unit  number 


CODE  LISTING 


LOGICAL  FUNCTION  ENF (NUNIT) 
IF  (EOF .NUNIT)  1.2 
ENF*. TRUE. 

RETURN 
ENF*. FALSE. 

RETURN 

END 
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ETMNS 

ETMNS 

PURPOSE 

To  fill  the  array  representing  the  right-hand  side  of  the  matrix 
equation  with  the  negative  of  the  electric  field  tangent  to  the  segments  and 
with  the  tangential  magnetic  fifeld  on  the  surfaces. 

METHOD 

The  array  E  represents  the  right-hand  side  of  the  matrix  equation.  For 
the  i*"*1  segment,  the  right-hand  side  is  the  negative  of  the  applied  electric 
field  component  tangent  to  the  segment,  and  is  stored  in  location  i  in  array 
E.  For  the  i  surface  patch,  there  are  two  rows  in  the  matrix  equation 
(from  the  two  components  of  the  vector  equations)  with  locations  N  +  2i  -  1 
and  N  +  21,  where  N  is  the  total  number  of  wire  segments.  The  contents  of  E 
for  these  locations  are 

E  (N  +  2i  -  1)  -  -t  •  (n  x  I  )  -  ±t2  •  H 
E  (N  +  21)  -  «2  *  (n  x  H±)  -  ±t  •  I 

where  is  the  magnetic  field  applied  to  patch  i.  The  forms  on  the  right  are 
used  in  the  code  with  the  plus  sign  applying  when  (t^,  £2>  n)  forms  a  right- 
hand  system  and  the  minus  sign  when  left-hand.  To  avoid  the  need  to  check 
(^1*  ^2*  the  sign  is  3tored  in  array  SALP  where,  for  patch  i,  SALP  (LD  + 

1  -  i)  ■  ±1  according  to  (£^,  £2»  n) ,  with  LD  the  length  of  the  arrays  in 
COMMON/ DATA/ .  If  the  structure  has  symmetry,  the  entries  in  E  are  reordered 
by  subroutine  SOLVES. 

The  parameter  IPR  selects  the  type  of  excitation;  the  meanings  of  other 
parameters  depend  on  the  option  selected  by  IPR  and  are  explained  below.  The 
excitations  associated  with  IPR  values  are: 

IPR  ■  0  applied  field  voltage  source 

1  incident  plane  wave,  linear  polarization 

2  incident  plane  wave,  right-hand  elliptic  polarization 

3  incident  plane  wave,  left-hand  elliptic  polarization 

4  infinitesimal  current  element  source 

5  current  slope  discontinuity  voltage  source 


ETMNS 


CODING 


ET29  -  ET34  Applied  field  voltage  source  (IPR  •  0) . 

ET36  -  ET38  QDSRC  Is  called  for  each  current  slope  discontinuity 
voltage  source  (IPR  *5). 

ET44  -  ET160  Incident  plane  wave.  The  direction  of  propagation  and 
polarization  of  the  wave  are  Illustrated  In  figure  4  In 

A 

which  p  Is  the  unit  vector  normal  to  k  In  the  plane 
defined  by  k  and  z.  The  plane  wave  as  a  function  of 
position  r  Is 


EX(r)  -  Eq  exp(-jk*r) 

H1^)  -  i  k  x  f0  exp(-jk*r) 


where 


k  -  (2tt/X)  k 

A 

k  -  unit  vector  in  direction  of  propagation 

—  A 

Eq  -  E^  for  linear  polarization 

*  (E^  -  jAE^)  for  right-hand  elliptical  polarization 

■  (E^  +  jAE^)  for  left-hand  elliptical  polarization 
A  ■  ellipse  axes  ratio 

A  A  /V 

E2  -  k  X  Ex 


ET44  -  ET58  PI 


P2  -  <j> 

P3  -  £ 

PX,  PY,  PZ  ■  x,  y,  z  components  of  E^ 

WX,  WY,  WZ  -  k 

QX,  QY,  QZ  »  E2  -  k  x  Ex 

ET61  -  ET68  Ground  reflection  coefficients  computed: 


reflection  coefficient  for  E  normal  to  the  plane  of 
incidence 

reflection  coefficient  for  E  in  the  plane  of 
incidence 


ET70  -  ET108  Linearly  polarized  wave  (IPR  «*  1). 


ETMNS 


Figure  4.  Coordinate  Parameters  for  the 
Incident  Plane  Wave. 


Direct  illumination,  of  segments  by  E  field.  ARG  *  -k  •  r^. 


where  r^  ■  center  point  of  segment  I.  E(I)  -  -(E^  *  i) 


exp(-jk  •  r^),  where  i  -  unit  vector  in  the  direction  of 


-  ET108 


segment  I. 

Illumination  of  segments  by  the  ground  reflected  field. 

CX,  CY,  CZ  *  reflected  E  field 

Direct  H  field  illumination  of  patches. 

Illumination  of  patches  by  the  ground  reflected  field. 
CX,  CY,  CZ  -  reflected  H  field 


ET113  -  ET159 


ET116  -  ET121 


ET123  -  ET130 


ET132  -  ET144 


ET146  -  ET159 


Elliptically  polarized  wave  (IPR  *  2  or  3). 

P6  ■  ellipse  axes  ratio  =  A. 

Direct  E  field  illumination  of  segments. 

CX,  CY,  CZ  -  E^  ±  jAE2  (+  for  left-hand  polarization, 

-  for  right-hand) 

Illumination  of  segments  by  the  ground  reflected  E  field. 
Illumination  of  patches  by  the  direct  H  field. 

CX,  CY,  CZ  »  k  *  Eq 

Illumination  of  patches  by  ground  reflected  H  field. 
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ET164  -  ET225  Infinitesimal  current  element  source  (IPR  •  4) .  A  current 
element  of  moment  I^i.  at  the  origin  of  a  spherical  coor¬ 
dinate  system,  as  shown  in  figure  5,  produces  field 
components 


Er(R)  .  I„i  i  exp(-jkR)  (l  -  jL)  i 


E0(R)  -  IqA  ^  exp(-jkR) 


cos  6  R 


x  . 

R  V 

“V] 

exp(-jkR) 


(*•*) 


sin  6 


If  the  location  and  orientation  of  segment  i  and  the 
current  element  with  respect  to  the  x,  y,  z  coordinate 
system  are 

r^  •  location  of  segment  i 
£  -  orientation  of  segment  i 
D  -  location  of  current  element 

A 

d  *  orientation  of  current  element 


R  -  r±  -  D 
R  -  R/  |R| 

A  A 

cos  0  *  R  •  d 

sin  0  ■  [1  -  cos^  0]^^ 

The  orientation  of  the  current  element  is  defined  by  its 
angle  cf  elevation  above  the  x-y  plane,  a,  and  the  angle 
from  the  x  axis  to  its  projection  on  the  x-y  plane,  b. 

A  A  A  A 

Thus,  d  ■  cos  a  cos  b  x  +  cos  a  sin  b  y  +  sin  a  z. 

A  A  A  A 

The  R  and  0  field  components  are  converted  to  p  and  d 
components  E^  and  E^,  where 

E ,  ■  E_  cos  0  -  E0  sin  0 

a  K  W 

E  *  E_  sin  0  +  Eq  cos  0 

p  R  0 

and  the  excitation  computed  as 


E(I)  -  -i  •  (E.d  +  ED)  . 

d  p 
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Figure  5.  Coordinate  Parameters  for 
Current  Element. 


ET225  PI,  P2,  P3  •  x,  y,  z  coordinates  of  current  element  (D) 
P4  -  a 
P5  -  b 
P6  -  I QU\2 

ET169  WX,  WY,  WZ  »  x,  y,  and  z  components  of  d 
DS  -  (n/2TT)  i0a/x2 
DSH  -  <l/4ir)  IqJIA2 

Start  of  loop  over  all  segments  and  patches. 

ET179  For  patches, 

IS  ■  location  of  patch  data  in  geometry  arrays 
II,  12  ■  locations  to  be  filled  in  E 
ET182  PX,  PY,  PZ  -  R/X 
ET193  R  -  | R/X | 

PX,  PY,  PZ  -  R 
CTH  =■  cos  9 
STH  -  sin  9 

QX,  QY,  QZ  =*  R  -  (d  •  R)d 
-110- 
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ET196  -  ET204  QX,  QY,  QZ  -  p 

T1  -  exp  (-jk  R) 

ET206  -  ET215  E  field  on  segments 
T2  -  (1  -  j/kR)X2/R2 


ET216 


ER-Er 

ET-E0 

ERH  -  E„ 

P 

EZH  -  E 

z 

CX,  CYj  CZ  ■  x,  y, 
ET224  H  field  on  patches 
PX,  PY,  PZ  -  d  x 

T2  -  ±H, 

^  —I 
CX,  CY,  CZ  -  ±H 


z  components  of  total  E  field 

1 


-  4> 


CONSTANTS 

l.E-30  *  tolerance  in  test  for  zero 

2.654420938E-3  -  1/n  -  ^/Uq 

59.958  -  T1/2TT 

6.283185308  -  2ir 
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1 

SUBROUTINE  ETMNS  (PI , P2 ,P3 , P4, P5 , P6 , IPR , E) 

ET 

1 

2 

C 

ET 

2 

3 

C 

ETMNS  FILLS  THE  ARRAY  E  WITH  THE  NEGATIVE  OF  THE  ELECTRIC  FIELD 

ET 

3 

4 

c 

INCIDENT  ON  THE  STRUCTURE.  E  IS  THE  RIGHT  HAND  SIDE  OF  THE  MATRIX 

ET 

4 

5 

c 

EQUATION. 

ET 

5 

6 

c 

ET 

6 

7 

COMPLEX  E . CX . CY . CZ . VSANT . TX 1 . TX2 , ER , ET . EZH . ERH . VQD , VQDS . ZRATI . ZRAT 

ET 

7 

8 

1I2.RRV.RRH.T1 , TT1 .TT2.FRATI 

ET 

8 

9 

COMMON  /DATA/  LD.N1 ,N2 ,N .NP ,M1 ,M2 .M.MP ,X(300) , Y(300) ,Z(300) ,SI(300  ET 

9 

10 

1 ) , BI( 300 ) . ALP ( 300 ) . B  ET ( 300 ) , ICON 1(300), IC0N2 (300).ITAG(300),ICONX( 

ET 

10 

11 

2300  )  , WLAM ,  IPSYM 

ET 

11 

12 

COMMON  /ANGL/  SALP(300) 

ET 

12 

13 

COMMON  /VSORC/  VQD(30) ,VSANT(30) ,VQDS(30) ,IVQD(30) ,ISANT(30) ,IQDS( 

ET 

13 

14 

130), NVQD . NSANT , NODS 

ET 

14 

IS 

COMMON  /GND/ZRATI . ZRATI2 . FRATI . CL . CH , SCRWL . SCRWR , NRADL . KSYMP . IFAR, 

ET 

15 

16 

1IPERF.T1 ,T2 

ET 

16 

17 

DIMENSION  CAB( 1 ) ,  SAB(1),  E(600) 

ET 

17 

18 

DIMENSION  T1X(1).  T1Y(1),  T1Z(1).  T2X(1),  T2Y(1),  T2Z(1) 

ET 

18 

19 

EQUIVALENCE  (CAB, ALP).  (SAB. BET) 

ET 

19 

20 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP),  (T1Z.BET) .  (T2X.IC0N1),  (T2Y.IC0N 

ET 

20 

21 

12).  (T2Z.ITAG) 

ET 

21 

22 

DATA  TP/6 . 283185308/ . RETA/2 . 654420938E-3/ 

ET 

22 

23 

NEQ=N+2*M 

ET 

23 

24 

NQDS=0 

ET 

24 

25 

IF  ( IPR . GT . 0 . AND . IPR . NE . 5 )  GO  TO  5 

ET 

25 

26 

c 

ET 

26 

27 

c 

APPLIED  FIELD  OF  VOLTAGE  SOURCES  FOR  TRANSMITTING  CASE 

ET 

27 

28 

c 

ET 

28 

29 

DO  1  1=1, NEO 

ET 

29 

30 

1 

E(I)=(0.,0.) 

ET 

30 

31 

IF  (NSANT. EQ.O)  GO  TO  3 

ET 

31 

32 

DO  2  1=1 .NSANT 

ET 

32 

33 

IS=ISANT(I) 

ET 

33 

34 

2 

E(IS)=— VSANT(I)/(SI(IS)*WLAM) 

ET 

34 

35 

3 

IF  (NVQD. EQ.O)  RETURN 

ET 

35 

36 

DO  4  1=1 .NVQD 

ET 

36 

37 

IS=IVQD(I) 

ET 

37 

38 

4 

CALL  QOSRC  (IS . VQD(I) . E) 

ET 

38 

39 

RETURN 

ET 

39 

40 

5 

IF  (IPR.GT.3)  GO  TO  19 

ET 

40 

41 

C 

ET 

41 

42 

C 

INCIDENT  PLANE  WAVE.  LINEARLY  POLARIZED. 

ET 

42 

43 

c 

ET 

43 

44 

CTH=C0S(P1 ) 

ET 

44 

45 

STH=SIN(P1 ) 

ET 

45 

46 

CPH=C0S(P2) 

ET 

46 

47 

SPH=SIN(P2) 

ET 

47 

48 

CET=C0S(P3) 

ET 

48 

49 

SET=SIN(P3) 

ET 

49 

50 

PX=CTH»CPH»CET-SPH»SET 

ET 

50 

51 

PY=CTH*SPH*CET+CPH*SET 

ET 

51 

52 

PZ=-STH*CET 

ET 

52 

53 

WX=-STH*CPH 

ET 

53 

54 

WY=— STH'SPH 

ET 

54 

55 

WZ=-CTH 

ET 

55 

56 

OX=WY»PZ-WZ*PY 

ET 

56 

57 

QYa*Z*PX-WX»PZ 

ET 

57 

58 

QZ^WX«PY-WY*PX 

ET 

58 

59 

IF  (KSYMP. EQ.1)  GO  TO  7 

ET 

59 

60 

IF  (IPERF.EQ. 1 )  GO  TO  6 

ET 

60 

61 

RRV=CSQRT(1 ,-ZRATI»ZRATI*STH*STH) 

ET 

61 

62 

RRH*ZRATI»CTH 

ET 

62 

63 

RRH=( RRH-RRV )/( RRH+RRV ) 

ET 

63 

64 

RRV«ZRATI*RRV 

ET 

64 

ETMNS 
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RRV»-( CTH-RRV )/( CTH+RRV ) 

ET 

65 

66 

GO  TO  7 

ET 

66 

67  6 

RRV=-(1 . ,0.) 

ET 

67 

68 

RRH*-( 1 . .0.) 

ET 

68 

69  7 

IF  (IPR.GT.1)  GO  TO  13 

ET 

69 

70 

IF  (N.EQ.O)  GO  TO  10 

ET 

70 

71 

00  8  1=1 , N 

ET 

71 

72 

ARG»-TP*(WX*X(I)4WY*Y(I)-fWZ*Z(I)) 

ET 

72 

73  8 

E(I)=— (PX*CAB(I)+PY*SAB(I)+PZ*SALP(I) )*CMPLX(C0S( aRG) ,  SIN (ARG) ) 

ET 

73 

74 

IF  (KSYMP.EQ.1)  GO  TO  10 

ET 

74 

75 

TT 1 =( PY*CPH— PX • SPH ) • ( RRH-RRV ) 

ET 

75 

76 

CX=RRV*PX— TT1 *SPH 

ET 

76 

77 

CY=RRV*PY+TT1*CPH 

ET 

77 

78 

CZ=-RRV*PZ 

ET 

78 

79 

00  9  1=1 ,N 

ET 

79 

60 

ARG=— TP*(WX*X(I)+WY*Y(I)-WZ*Z(I) ) 

ET 

80 

81  9 

E(I)=E(I)-(CX*CAB(I)+CY*SAB(I)+CZ*SALP(I) ) *CMPLX(COS( ARG) , SIN (ARG) 

ET 

81 

82 

D 

ET 

82 

83  10 

IF  (M.EQ.O)  RETURN 

ET 

83 

84 

I=LD+1 

ET 

84 

85 

11 =N— 1 

ET 

85 

86 

DO  11  IS=1 , M 

ET 

86 

87 

1=1-1 

ET 

87 

88 

11=11+2 

ET 

88 

89 

12=11+1 

ET 

89 

90 

ARG=-TP»(WX*X(I)aWY»Y(I)4WZ»Z(I)) 

ET 

90 

91 

TT1=CMPLX(C0S(ARG) , SIN (ARG) ) *SALP(I)*RETA 

ET 

91 

92 

E(I2)=(QX*T1X(I)+QY*T1 Y(I)+0Z*T1Z(I))*TT1 

ET 

92 

93  11 

E(I1 )=(QX*T2X(I)+QY*T2Y(I)+QZ*T2Z( I) ) *TT1 

ET 

93 

94 

IF  (KSYMP.EQ.1)  RETURN 

ET 

94 

95 

TT 1 =(QY*CPH-QX »SPH ) • ( RRV-RRH ) 

ET 

95 

96 

CX=-(RRH*QX— TT1  *SPH) 

ET 

96 

97 

CY=-(RRH*QY+TT1 »CPH) 

ET 

97 

98 

CZ=RRH»QZ 

ET 

98 

99 

I=LD+1 

ET 

99 

100 

11  =N— 1 

ET 

100 

101 

DO  12  IS=1 ,M 

ET 

101 

102 

1=1-1 

ET 

102 

103 

11=11+2 

ET 

103 

104 

12=11+1 

ET 

104 

105 

ARG=-TP»(WX«X(I)-»WY*Y(I)-WZ«Z(I)) 

ET 

105 

106 

TT1 =CMPLX(COS(ARG) , SIN(ARG) )*SALP(I) *RETA 

ET 

106 

107 

E(I2)=E(I2)+(CX»T1X(I)+CY»T1Y(I)+CZ»T1Z(I))»TT1 

ET 

107 

108  12 

E(I1 )=E( 11 )+(CX*T2X(I)+CY*T2Y(I)+CZ*T2Z(I) ) *TT1 

ET 

108 

109 

RETURN 

ET 

109 

110  C 

ET 

110 

111  C 

INCIDENT  PLANE  WAVE.  ELLIPTIC  POLARIZATION. 

ET 

1 1 1 

112  C 

ET 

112 

113  13 

TT1=-(0. .1 .)»P6 

ET 

113 

114 

IF  (IPR.EQ.3)  TT1 =— TT1 

ET 

114 

115 

IF  (N.EQ.O)  GO  TO  16 

ET 

115 

116 

CX=PX+TT1»QX 

ET 

116 

117 

CYaPY+TTI *QY 

ET 

117 

118 

CZ=PZ+TT1*QZ 

ET 

118 

119 

DO  14  1=1 ,N 

ET 

119 

120 

ARG=-TP*(WX*X(I)aWY»Y(I)+WZ*Z(I)) 

ET 

120 

121  14 

E(I)=-(CX*CAB(I)+CY*SAB(I)+CZ*SALP( I) ) *CMPLX(COS(ARG) , SIN (ARG) ) 

ET 

121 

122 

IF  (KSYMP.EQ.1)  GO  TO  16 

ET 

122 

123 

TT2=(CY*CPH-CX*SPH ) • ( RRH-RRV) 

ET 

123 

124 

CX=RRV»CX-TT2»SPH 

ET 

124 

125 

CY*RRV*CY+TT2*CPH 

ET 

125 

126 

CZ=— RRV’CZ 

ET 

126 

127 

DO  15  1=1 ,N 

ET 

127 

126 

ARG=-TP*(WX«X(I)+WY»Y(I)-WZ,Z(I)) 

ET 

128 

ETMNS 


129  15 

E(I)=E(I)-(CX*CAB( I)+CY*SAB(I)+CZ*SALP( I) ) •CMPUX(COS( ARG) 

, SIN(ARG)  ET 

129 

130 

1) 

ET 

130 

131  16 

IF  (M.EQ.O)  RETURN 

ET 

131 

132 

CX=QX-TT1 *PX 

ET 

132 

133 

CY=QY-TT1»PY 

ET 

133 

134 

CZ=QZ-TT1 *PZ 

ET 

134 

135 

I=LD+1 

ET 

135 

136 

11 =N— 1 

ET 

136 

137 

DO  17  IS*1 , M 

ET 

137 

138 

1*1-1 

ET 

138 

139 

11*11+2 

ET 

139 

140 

12*11+1 

ET 

140 

141 

ARG=-TP*(WX*X(I)+WY»Y(I)4WZ*Z(I)) 

ET 

141 

142 

TT2=CMPLX(C0S( ARG) , SIN( ARG) ) »SALP( I) *RETA 

ET 

142 

143 

E(I2)=(CX*T1 X(I)+CY*T1 Y(I)+CZ*T1 Z(I) )*TT2 

ET 

143 

144  17 

E(I1)*(CX»T2X(I)+CY»T2Y(I)+CZ*T2Z(I))*TT2 

ET 

144 

145 

IF  (KSYMP.EQ.1)  RETURN 

ET 

145 

148 

TT 1 =( CY  «CPH-CX  »SPH ) • ( RRV-RRH ) 

ET 

146 

147 

CX=-( RRH*CX-TT 1 *SPH) 

ET 

147 

148 

CY=-(RRH*CY+TT1 »CPH) 

ET 

148 

149 

CZ*RRH*CZ 

ET 

149 

150 

I=LD+1 

ET 

150 

151 

I1=N— 1 

ET 

151 

152 

DO  18  IS*1 ,M 

ET 

152 

153 

1=1-1 

ET 

153 

154 

11*11+2 

ET 

154 

155 

12*11+1 

ET 

155 

156 

ARG=— TP*(WX*X(I)+WY*Y(I)-WZ*Z(I) ) 

ET 

156 

157 

TT1 =CMPLX(COS( ARG) , SIN( ARG) )*SALP(I) *RETA 

ET 

157 

158 

E(I2)=E(I2)+(CX*T1 X(I)+CY*T1 Y(I)+CZ*T1 Z( I) ) *TT1 

ET 

158 

159  18 

E( 11 )*E(I1 )+(CX*T2X(I)+CY*T2Y(I)+CZ*T2Z(I) ) *TT1 

ET 

159 

160 

RETURN 

ET 

160 

161  C 

ET 

161 

162  C 

INCIDENT  FIELD  OF  AN  ELEMENTARY  CURRENT  SOURCE. 

ET 

162 

163  C 

ET 

163 

164  19 

WZ=C0S(P4) 

ET 

164 

165 

WX=WZ*C0S(P5) 

ET 

165 

166 

WY^WZ*SIN(P5) 

ET 

166 

167 

WZ=SIN(P4) 

ET 

167 

168 

DS=P6*59 .958 

ET 

168 

169 

DSH=P6/(2.»TP) 

ET 

169 

1 70  NPM=N+M 

171  IS=LD+1 

172  II =N-1 

173  DO  24  I=1,NPM 

174  II=I 

175  IF  (I.LE.N)  GO  TO  20 

176  IS*IS-1 

177  II*IS 

178  11*11+2 

179  12*11+1 

180  20  PX*X(II)-P1 

181  PY*Y(II)-P2 

182  PZ*Z(II)-P3 

183  RS=PX*PX+PY*PY+PZ*PZ 

184  IF  (RS.LT.1 .E-30)  GO  TO  24 

185  R=SQRT(RS) 

186  PX*PX/R 

1 87  PY*PY/R 

1 88  PZ*PZ/R 

189  CTH=PX»WX+PY‘WY+PZ»WZ 

190  STH*S0RT(1 .-CTH»CTH) 

191  OX=PX-WX*CTH 

192  OY*PY-WY»CTH 


ET  170 
ET  171 
ET  172 
ET  173 
ET  174 
ET  175 
ET  176 
ET  177 
ET  178 
ET  179 
ET  180 
ET  181 
ET  182 
ET  183 
ET  184 
ET  185 
ET  186 
ET  187 
ET  188 
ET  189 
ET  190 
ET  191 
ET  192 


i 

I 


t 


9 
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ETMNS  i 

193 

OZ=PZ-WZ*CTH 

ET  193  | 

194 

ARG*SQRT(QX*QX+QY*QY+OZ*QZ) 

ET  194  t 

195 

IF  (ARG.LT.1 .E-30)  GO  TO  21 

ET  195  | 

% 

196 

QX=QX/ARG 

ET  196 

197 

QY=QY/ARG 

ET  197 

198 

QZ=QZ/ARG 

ET  198 

199 

GO  TO  22 

ET  1 99 

200  21 

QX=1  . 

ET  200  | 

• 

201 

QY=0. 

ET  201 

202 

QZ=0 . 

ET  202 

203  22 

ARG=-TP*R 

ET  203  ' 

204 

TT1 =CMPLX(COS(ARG) , SIN( ARG) ) 

ET  204 

205 

IF  (I.GT.N)  GO  TO  23 

ET  205  | 

206 

TT2=CMPLX(1 . .-1 ./(R*TP))/RS 

ET  206  ' 

207 

ER=0S*TT1 *TT2*CTH 

ET  207  1 

208 

£T=.5*DS*TT1*((0. .1 . )*TP/R+TT2)*STH 

ET  208 

209 

EZH=ER*CTH-ET«STH 

ET  209 

210 

ERH=ER*STH+ET*CTH 

ET  210  > 

211 

CX=EZH*WX+ERH*QX 

ET  211 

212 

CY=EZH*WY+ERH*QY 

ET  212  S 

213 

CZ=EZH*WZ+ERH‘QZ 

ET  213 

214 

E(I)=-(CX*CAB( I)+CY*SAB( I)+CZ*SALP(I) ) 

ET  214  i 

215 

GO  TO  24 

ET  215  s 

216  23 

PX=*Y«QZ-WZ*QY 

ET  216 

217 

PYrf(VZ*QX-WX»QZ 

ET  217  i 

218 

PZ=WX»QY-WY*QX 

ET  218  1 

219 

TT2=0SH*TT1*CMPLX(1 ,/R . TP)/R*STH»SALP(II) 

ET  219 

220 

CX=TT2»PX 

ET  220  1 

221 

CY=TT2*PY 

ET  221 

222 

CZ=TT2*PZ 

ET  222  ( 

223 

E( I2)=CX*T1 X( II)+CY*T1 Y( II)+CZ*T1 Z( II) 

ET  223  J 

224 

E( 11 )=CX*T2X( II)+CY*T2Y(II)+CZ*T2Z( II) 

ET  224 

m 

225  24 

CONTINUE 

ET  225  ,5 

226 

RETURN 

ET  226 

227 

ENO 

ET  227-  8 

| 

w 

( 

« 

. 

m 
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FACGF 


FACGF 


PURPOSE 


To  perform  the  steps  in  the  NGF  solution  that  do  not  depend  on  the 


excitation  vector. 


METHOD 


The  NGF  solution  procedure  is  discussed  in  Section  VI.  The  steps 
performed  in  FACGF  are  to  evaluate  A~^B  and  D  -  CA-^B.  The  matrix 

r\  /.."li.  *  _  *.» _ _  r _ k _ i  '  . _ . _ • _ . _ _ . _ ■ _  •  i 


D  -  CA  B  is  then  factored  into  triangular  matrices  L  and  U.  The  procedure 
is  complicated  by  the  possible  need  to  use  file  storage  for  the  matrices.  The 
comments  in  the  code  and  the  tables  for  ICASX  =  2,  3  and  4  in  Section  VII 
offer  a  fairly  complete  description  of  the  procedure. 


SYMBOL  DICTIONARY 


array  for  matrix  A  (L  U  factors)  or  block  of  A  if  file  storage 
is  used 


array  for  B  or  block  of  B 

_ ~ .  C u  .  -1 _ »"lo  -  - 


array  for  B  when  A  B  is  being  computed  witn  ICASX  =  2.  The 

array  B  starts  at  the  beginning  of  CM  in  this  case.  BX  leaves 

room  for  Af  at  the  beginning  of  CM 

array  for  C  or  block  of  C  (matrix  transposed) 

array  for  D  or  block  of  D  (matrix  transposed) 


file  on  which  B  is  stored 


I  CASS 


saved  value  of  ICASE 


pivot  index  array 

data  on  row  interchanges  in  LFACTR 
number  of  patches  in  the  NGF 

number  of  patches  in  a  symmetric  section  in  the  NGF 

number  of  segments  in  the  NGF 

number  of  columns  in  C  (same  as  order  of  A) 


NIC  +  1 


order  of  matrix  D 


NBLSYS 


saved  value  of  NBLSYM 


index  increment 


NLSYS 


saved  value  of  NLSYM 


-1 16- 


FACGF 


NP 

NPSYS 

SUM 


number  of  segments  in  a  symmetric  section  in  the  NGF 
saved  value  of  NPSYM 

summation  variable  for  matrix  products 


m 
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FACGF 


1 

SUBROUTINE  FACGF  ( A , B , C , D , BX , IP , IX , HP , N 1 ,MP,M1 ,  N1C.N2C) 

FG 

1 

2 

C 

FACGF  COMPUTES  AND  FACTORS  D-C(INV(A)B) . 

FG 

2 

3 

COMPLEX  A.B.C.O.BX.SUM 

FG 

3 

4 

COMMON  /MATPAR/  I CASE , NBLOKS , NPBLK , NLAST , NBLSYM , NPS YM , NLSYM , IMAT , I 

FG 

4 

S 

1 CASX , NBBX . NPBX . NLBX , NBBL . NPBL , NLBL 

FG 

5 

6 

DIMENSION  A( 1 ) ,  B(N1C,1).  C(NIC.I),  D(N2C,1),  BX(NIC.I),  IP(1),  IX 

FG 

6 

7 

KD 

FG 

7 

8 

IF  (N2C.EQ.0)  RETURN 

FG 

8 

9 

IBFL=14 

FG 

9 

to 

IF  (ICASX.LT. 3)  GO  TO  1 

FG 

10 

1 1 

C 

CONVERT  B  FROM  BLOCKS  OF  ROWS  ON  T14  TO  BLOCKS  OF  COL.  ON  T16 

FG 

1 1 

12 

CALL  REBLK  (B. C. NIC, NPBX ,N2C) 

FG 

12 

13 

IBFL=16 

FG 

13 

14 

1 

NPB=NPBL 

FG 

14 

15 

IF  (ICASX.EQ.2)  REWIND  14 

FG 

15 

16 

c 

COMPUTE  INV(A)B  AND  WRITE  ON  TAPE14 

FG 

16 

17 

00  2  18=1 .NBBL 

FG 

17 

18 

IF  (IB. EQ. NBBL)  NPB=NLBL 

FG 

18 

19 

IF  (ICASX.GT. 1 )  READ  (IBFL)  ((BX(I,J),I=1 .NIC) , J=1 ,NPB) 

FG 

19 

20 

CALL  SOLVES  ( A . IP . BX ,N1 C .NPB ,NP ,N1 ,MP ,M1 . 1 3 . 1 3) 

FG 

20 

21 

IF  (ICASX.EQ.2)  REWIND  14 

FG 

21 

22 

IF  (ICASX.GT. 1)  WRITE  (14)  ( (BX( I , J ) , 1=1 ,N1 C) . J=1 .NPB) 

FG 

22 

23 

2 

CONTINUE 

FG 

23 

24 

IF  (ICASX.EQ.1)  GO  TO  3 

FG 

24 

25 

REWIND  11 

FG 

25 

26 

REWIND  12 

FG 

26 

27 

REWIND  IS 

FG 

27 

28 

REWINO  IBFL 

FG 

28 

29 

3 

NPC=NPBL 

FG 

29 

30 

C 

COMPUTE  D-C(INV(A)B)  AND  WRITE  ON  TAPE1 1 

FG 

30 

31 

DO  8  IC=1 .NBBL 

FG 

31 

32 

IF  (IC.EQ.NBBL)  NPC=NLBL 

FG 

32 

33 

IF  (ICASX.EQ.1)  GO  TO  4 

FG 

33 

34 

READ  (15)  ((C(I, J) .1=1 ,N1C) , J=1 .NPC) 

FG 

34 

35 

READ  (12)  ((D(I, J) ,1=1 ,N2C) , J=1 .NPC) 

FG 

35 

36 

REWIND  1 4 

FG 

36 

37 

4 

NPB=NPBL 

FG 

37 

38 

NIC=0 

FG 

38 

39 

DO  7  IB=1 , NBBL 

FG 

39 

40 

IF  (IB. EQ. NBBL)  NPB=NLBL 

FG 

40 

41 

IF  (ICASX.GT. 1)  READ  (14)  ( (B( I , J ) . 1=1 .NIC) . J=1 .NPB) 

FG 

41 

42 

DO  6  1=1 , NPB 

FG 

42 

43 

II=I+NIC 

FG 

43 

44 

DO  6  J=1 .NPC 

FG 

44 

45 

SUM=(0. .0. ) 

FG 

45 

46 

DO  5  K=1 .NIC 

FG 

46 

47 

5 

SUM=SUM+B(K,I)»C(K, J) 

FG 

47 

48 

6 

0(11, J) =0(11, J )-SUM 

FG 

48 

49 

7 

NIC=NIC+NPBL 

FG 

49 

50 

IF  (ICASX.GT. 1)  WRITE  (11)  ( ( D( I , J ) , 1=1 ,N2C) . J=1 . NPBL) 

FG 

50 

51 

8 

CONTINUE 

FG 

51 

52 

IF  (ICASX.EQ.1)  GO  TO  9 

FG 

52 

53 

REWIND  11 

FG 

53 

54 

REWIND  12 

FG 

54 

55 

REWINO  14 

FG 

55 

56 

REWIND  15 

FG 

56 

57 

9 

N1 CP=N1 C+1 

FG 

57 

58 

C 

FACTOR  D-C(INV(A)B) 

FG 

58 

59 

IF  (ICASX.GT. 1)  GO  TO  10 

FG 

59 

60 

CALL  FACTR  (N2C , D. IP(N1 CP ) , N2C) 

FG 

60 

61 

GO  TO  13 

FG 

61 

62 

10 

IF  (ICASX.E0.4)  GO  TO  12 

FG 

62 

63 

NPB=NPBL 

FG 

63 

64 

IC=0 

FG 

64 
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FACGF 


•s 

DO  11  IB*1,NBBL 

FG 

65 

66 

IF  (XB.EQ.NBBL)  NPB=NLBL 

FG 

66 

67 

II=IC+1 

FG 

67 

68 

IC*IC+N2C»NPB 

FG 

68 

69  11 

READ  (11)  (8(1, 1 ) , I=II , IC) 

FG 

69 

70 

REWIND  11 

FG 

70 

71 

CALL  FACTR  (N2C,B.IP(N1CP) ,N2C) 

FG 

71 

72 

NIC*N2C*N2C 

FG 

72 

73 

WRITE  (11)  (B(I, 1 ) ,1=1 .NIC) 

FG 

73 

74 

REWIND  11 

FG 

74 

73 

GO  TO  13 

FG 

75 

76  12 

NBL$YS=NBLSYM 

FG 

76 

77 

NPSYS=NPSYM 

FG 

77 

78 

NLSYSsNLSYM 

FG 

78 

79 

ICA$S«ICASE 

FG 

79 

80 

NBLSYMbNBBL 

FG 

80 

81 

NPSYMsNPBL 

FG 

81 

82 

NLSYM=NLBL 

FG 

82 

83 

ICASE=3 

FG 

S3 

84 

CALL  FACIO  (B ,N2C ,1 , IX(N1 CP) , 1 1 ,12,16,11  ) 

FG 

84 

83 

CALL  LUNSCR  (B.N2C. 1 .XP(NICP) . XX(NICP) . 1 2, 1 1 , 1 6) 

FG 

8S 

86 

NBLSYMsNBLSYS 

FG 

86 

87 

NPSYM=NPSYS 

FG 

87 

88 

NLSYM=NLSYS 

FG 

88 

89 

ICASE=ICASS 

FG 

89 

90  13 

RETURN 

FG 

90 

91 

END 

FG 

91- 

; 


i. 


FACIO 


FACIO 

PURPOSE 

To  read  and  write  matrix  blocks  needed  for  the  LU  decomposition. 

METHOD 

Sequential  access  is  used  on  all  files.  The  matrix  is  initially  stored 
on  file  IU1  in  blocks  of  columns  of  the  transposed  matrix.  The  block  size  is 
such  that  two  blocks  will  fit  into  the  array  A  for  the  Gauss  elimination 
process.  If  the  matrix  were  divided  into  four  blocks,  the  order  for  reading 
the  blocks  into  core  would  be 
Blocks 

1,2  1  and  2  will  be  completely  factored 

1,  31  3  and  4  partially  factored 

1.  4l 

2,  3  factorization  of  3  completed 

2,  4  4  partially  factored 

3,  4  factorization  complete 

IU1  is  the  initial  input  file.  Partially  factored  blocks  are  read  from  file 
IFILE3  and  written  to  IFILE4  where  IFILE3  -  IU3  and  IFILE4  *  IU4  when  IXBLK1 
is  odd,  and  IFILE3  -  IU4  and  IFILE4  -  IU3  when  IXBLK1  is  even.  Completed 
blocks  are  written  to  file  IU2.  Although  the  last  block  may  be  shorter  than 
other  blocks  the  same  number  of  words  is  read  or  written.  The  excess  words 
are  ignored  in  subroutine  LFACTR. 

Subroutine  LFACTR  is  called  to  perform  the  Gauss  elimination.  For  a 
symmetric  structure  the  loop  from  F010  is  “043  factors  each  submatrix. 

SYMBOL  DICTIONARY 

A  *  array  for  matrix  storage 

11  ■  location  in  A  of  beginning  of  block  1 

12  ■  location  in  A  of  end  of  block  1 

13  *  location  in  A  of  beginning  of  block  2 

14  ■  location  in  A  of  end  of  block  2 

IFILE3  ■  input  file 

IFILE4  *  output  file 

IP  ■  array  for  pivot  element  indices 
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IT 

IUl,  IU2,  IU3,  IU4 

IXBLK1 

IXBLK2 

KA 

NBM 

NOP 

NROU 

Tl,  T2,  TIME 


number  of  words  in  a  matrix  block 
file  numbers 

number  of  first  block  stored  in  A 
number  of  second  block  stored  in  A 
first  location  in  IP  for  submatrix  XX 
number  of  blocks  minus  one 
number  of  submatrices  for  symmetry 
number  of  rows  in  a  block 

variables  to  sum  total  time  spent  in  LFACTR 


FACIO 


# 
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FACIO 


1 

SUBROUTINE  FACIO  (A.NROW.NOP.IP.IU1 .IU2.IU3.IU4) 

FO 

1 

2 

C 

FO 

2 

3 

C 

FACIO  CONTROLS  I/O  FOR  OUT-OF-CORE  FACTORIZATION 

FO 

3 

4 

C 

FO 

4 

3 

COMPLEX  A 

FO 

5 

• 

COMMON  /MATPAR/  ICASE .NBLOKS .NPBLK .NLAST .NBLSYM , NPSYM , NLSYM , IMAT , 

,1  FO 

6 

7 

1 CASX . N8BX . NPBX .NLBX.NB8L.NPBL.NLBL 

FO 

7 

8 

DIMENSION  A(NROW.I),  IP(NROW) 

FO 

8 

9 

IT*2*NPSYM*NR0W 

FO 

9 

10 

N8M*N8LSYM-1 

FO 

10 

11 

11*1 

FO 

11 

12 

I2*IT 

FO 

12 

13 

13*12+1 

FO 

13 

14 

I4*2»IT 

FO 

14 

IS 

TIME=0 . 

FO 

15 

16 

REWIND  IU1 

FO 

16 

17 

REWIND  IU2 

FO 

17 

18 

DO  3  KK*1 .NOP 

FO 

18 

19 

KA*(KK— 1 )*NR0W+1 

FO 

19 

20 

IFILE3*IU1 

FO 

20 

21 

IFILE4*IU3 

FO 

21 

22 

00  2  IXBLK1 =1 . NBM 

FO 

22 

23 

REWIND  IU3 

FO 

23 

24 

REWIND  IU4 

FO 

24 

25 

CALL  BLCKIN  ( A. IFILE3 . 11 . 12 . 1  . 1 7) 

FO 

25 

26 

IXBP-IXBLK1+1 

FO 

26 

27 

DO  1  IXBLK2-IXBP, NBLSYM 

FO 

27 

28 

CALL  BLCKIN  (A. IFILE3 . 13 . 14, 1 . 1 8) 

FO 

28 

29 

CALL  SECOND  (T1) 

FO 

29 

30 

CALL  LFACTR  (A ,NROW, IXBLK1 , IXBLK2 . IP(KA) ) 

FO 

30 

31 

CALL  SECOND  (T2) 

FO 

31 

32 

TIME=TIME+T2-T1 

FO 

32 

33 

IF  (IXBLK2 . EQ. IXBP)  CALL  BLCKOT  (A . IU2 . 11 , 12 . 1 . 19) 

FO 

33 

34 

IF  (IXBLK1 .EQ. NBM. AND. IXBLK2.EQ. NBLSYM)  IFILE4*IU2 

FO 

34 

35 

CALL  BLCKOT  (A . IFILE4, 13 , 14 . 1 . 20) 

FO 

35 

38 

1 

CONTINUE 

FO 

36 

37 

IFILE3=IU3 

FO 

37 

38 

IFILE4*IU4 

FO 

38 

39 

IF  ( ( IXBLK1/2) *2 .NE . IXBLK1 )  GO  TO  2 

FO 

39 

40 

IFILE3=IU4 

FO 

40 

41 

IFILE4*IU3 

FO 

41 

42 

2 

CONTINUE 

FO 

42 

43 

3 

CONTINUE 

FO 

43 

44 

REWIND  IU1 

FO 

44 

45 

REWIND  IU2 

FO 

45 

46 

REWIND  IU3 

FO 

46 

47 

REWIND  IU4 

FO 

47 

48 

PRINT  4.  TIME 

FO 

48 

49 

RETURN 

FO 

49 

SO 

C 

FO 

50 

51 

4 

FORMAT  (35H  CP  TIME  TAKEN  FOR  FACTORIZATION  =  .E12.5) 

FO 

51 

52 

END 

FO 

52- 
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FACTR 

PURPOSE 

To  factor  a  complex  matrix  Into  a  lower  triangular  and  an  upper  tri¬ 
angular  matrix  using  the  Gauss-Doollttle  technique.  The  matrix  In  this  case 
Is  a  transposed  matrix.  The  factored  matrix  Is  used  by  subroutine  SOLVE  to 
determine  the  solution  of  the  matrix  equation  Ax  -  B. 

METHOD 

The  algorithm  used  In  this  routine  Is  presented  by  A.  Ralston  (ref.  1) . 
The  decomposition  of  the  matrix  A  Is  such  that  A  -  LU,  where  L  is  a  lower 
triangular  matrix  with  l's  down  the  diagonal,  and  U  is  an  upper  triangular 
matrix.  The  L  and  U  matrices  overwrite  the  matrix  A.  The  computations  to 
obtain  L  and  U  are  done  using  one  complex  scratch  vector  (D)  and  one  integer 
vector  (IP)  that  keep  track  of  row  interchanges  when  elements  are  positioned 
for  size.  If  positioning  for  size  Is  not  taken  into  account,  the  general 
procedure  is 


all  "  U11 


ail  “  AilUll  1  "  2’  •“»  n 


which  gives  the  first  column  of  the  L  and  U  matrices.  Then 


al2 

-  U12 

a22 

"  *21U12  +  U22 

a  ^ 

—  H . . u  _  +  H  _u  _ 

1-3, 

12 

11  12  12  22 

n 


gives  the  second  column.  The  computations  for  the  successive  columns  continue 
in  this  way.  The  general  equations  for  the  r^  column  are 


a,  -  u, 
lr  lr 


a„  -  u,  +  u„ 
2r  21  lr  2r 


i  -Hu  +  Z  0u  +  ...  +  H  ,u  +  u 

rr  rl  lr  r2  2r  r,r-l  r-l,r  rr 


air  "  £ilulr  +  •••  +  Airurr»  1  "  r  +  1 . n 
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FACTR 


There  are  only  two  differences  in  the  coding  used  in  FACTR  and  the 
coding  suggested  by  Ralston.  The  first  is  that  double  precision  variables  are 
not  used  for  the  accumulation  of  sums,  since  for  the  size  and  conditioning  of 
the  matrices  anticipated  in  core,  the  computer  word  length  is  sufficient  to 
insure  accuracy.  The  second  difference  is  that  the  row  and  column  indices  of 
the  A  matrix  in  the  routine  have  been  interchanged  to  handle  the  transposed 
matrix. 


CODING 

The  coding  is  divided  into  five  steps  which  correspond  to  the  steps 
given  by  Ralston. 

FA14  Loop  over  columns  (rows  with  the  interchanged  indices  used 

in  the  routine) . 

FA18  -  FA20  Fill  D  vector  with  column  (row)  of  A. 

FA24  -  FA35  Solution  for  uir  (i  ■  1, ...,r)  in  the  above  equations 
taking  into  account  positioning. 

FA40  -  FA54  Selecting  largest  value  for  positioning. 

FA58  -  FA62  Solution  for  (i  ■  r  +  l,...,n)  in  the  above  equations. 
FA64  -  FA66  Printing  of  small  pivot  elements. 


SYMBOL  DICTIONARY 


T  T 

A  ■  input  transposed  matrix  overwritten  with  calculated  L  and  U 


CONJG 

D 

DMAX 

ELMAG 

I 

IFLG 

IP 

J 

JP1 

K 

N 

NDIM 

PJ 

PR 


matrices 

external  routine  (conjugate  of  a  complex  number) 

scratch  vector 

maximum  value  in  D 

intermediate  variable 

DO  loop  index 

small  pivot  flag 

integer  vector  storing  positioning  information 
DO  loop  index 
J  +  1 

DO  loop  index 

order  of  matrix  being  factored 

dimensions  of  the  array  where  the  matrix  is  stored, 
intermediate  variable 
intermediate  variable 


NDIM  >  N 


^4* 

•  ' 


& 


J 


FACTR 


m 


R  ■  DO  loop  Index 

REAL  ■  external  routine  (real  part  of  complex  number) 


FACTk 


I 


1 


I 

: 

; 


. 


1 

SUBROUTINE  FACTR  (N , A , IP . NDIM) 

FA 

1 

2  C 

FA 

2 

3  C 

SUBROUTINE  TO  FACTOR  A  MATRIX  INTO  A 

UNIT  LOWER  TRIANGULAR  MATRIX 

FA 

3 

4  C 

AND  AN  UPPER  TRIANGULAR  MATRIX  USING 

THE  GAUSS-DOOLITTLE 

ALGORITHM 

FA 

4 

5  C 

PRESENTED  ON  PAGES  411-416  OF  A.  RALSTON— A  FIRST  COURSE 

IN 

FA 

5 

6  C 

NUMERICAL  ANALYSIS.  COMMENTS  BELOW 

REFER  TO  COMMENTS  IN 

RALSTONS 

FA 

6 

7  C 

TEXT.  (MATRIX  TRANSPOSED. 

FA 

7 

8  C 

FA 

8 

9 

COMPLEX  A.D.ARJ 

FA 

9 

10 

DIMENSION  A(NDIM.NDIM),  IP(NDIM) 

FA 

10 

11 

COMMON  /SCRATM/  D(600) 

FA 

11 

12 

INTEGER  R.RM1 .RP1 .PJ.PR 

FA 

12 

13 

IFLG=0 

FA 

13 

14 

DO  9  R=1  ,  N 

FA 

14 

15  C 

FA 

15 

16  C 

STEP  1 

FA 

16 

17  C 

FA 

17 

18 

DO  1  K=1  ,  N 

FA 

18 

19 

D(K)=A(R.K) 

FA 

19 

20  1 

CONTINUE 

FA 

20 

21  C 

FA 

21 

22  C 

STEPS  2  ANO  3 

FA 

22 

23  C 

FA 

23 

24 

RM1=R— 1 

FA 

24 

25 

IF  (RM1 . LT. 1 )  GO  TO  4 

FA 

25 

26 

DO  3  J=1  .  RM1 

FA 

26 

27 

PJ=IP(J) 

FA 

27 

28 

ARJ=0(PJ) 

FA 

28 

29 

A(R, J)=ARJ 

FA 

29 

30 

D(PJ)=D(J) 

FA 

30 

31 

JP1=J+1 

FA 

31 

32 

DO  2  I=JP1 . N 

FA 

32 

33 

D(I)=D(I)-A( J ,I)*ARJ 

FA 

33 

34  2 

CONTINUE 

FA 

34 

35  3 

CONTINUE 

FA 

35 

36  4 

CONTINUE 

FA 

36 

37  C 

FA 

37 

38  C 

STEP  4 

FA 

38 

39  C 

FA 

39 

40 

DMAX=REAL(D(R)*CONJG(D(R) ) ) 

FA 

40 

41 

IP(R)=R 

FA 

41 

42 

RP1=R+1 

* 

FA 

42 

43 

IF  (RP1.GT.N)  GO  TO  6 

FA 

43 

44 

DO  5  I=RP1 , N 

FA 

44 

45 

ELMAG=REAL(D(I)*CONJG(D(I))) 

FA 

45 

46 

IF  (ELMAG.LT. DMAX)  GO  TO  5 

FA 

46 

47 

DMAX-ELMAG 

FA 

47 

48 

IP(R)=I 

FA 

48 

49  5 

CONTINUE 

FA 

49 

50  6 

CONTINUE 

FA 

50 

51 

IF  (DMAX.LT.1 .E-10)  IFLG=1 

FA 

51 

52 

PR=IP(R) 

FA 

52 

53 

A(R ,R)=D(PR) 

FA 

53 

54 

D(PR)=D(R) 

FA 

54 

55  C 

FA 

55 

56  C 

STEP  5 

FA 

56 

57  C 

FA 

57 

58 

IF  (RP1 .GT.N)  GO  TO  8 

FA 

58 

59 

ARJal ./A(R.R) 

FA 

59 

60 

DO  7  I=RP1 ,N 

FA 

60 

61 

A(R,I)=D(I)*ARJ 

FA 

61 

62  7 

CONTINUE 

FA 

62 

63  8 

CONTINUE 

FA 

63 

64 

IF  (IFLG.EQ.O)  GO  TO  9 

FA 

64 

,i.  , 
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SS  PRINT  10.  R.OMAX 

66  IFLG=0 

67  9  CONTINUE 

66  RETURN 

69  C 

70  10  FORMAT  (1H  , 6HPIV0T( . I3,2H)=, £1 6 . 8) 

71  ENO 


FACTR 


FA  65 
FA  66 
FA  67 
FA  68 
FA  69 
FA  70 
FA  71- 
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FACTRS 

FACTRS 


PURPOSE 

To  call  the  appropriate  subroutines  for  the  LU  decomposition  of  a  matrix. 

METHOD 

The  operation  of  FACTRS  depends  on  the  mode  of  storage  of  the  matrix  as 
determined  by  the  value  of  ICASE  (see  COMMON/MATPAR/  in  Section  III).  For 
ICASE  *  1  subroutine  FACTR  is  called  at  FS16  to  factor  the  matrix.  For 
ICASE  *  2  FACTR  is  called  for  each  of  the  NOP  submatrices.  If  ICASE  =  3  FACIO 
and  LUNSCR  are  called  at  FS23  and  FS24.  FACIO  reads  the  matrix  from  file  IU1 
and  writes  the  result  on  file  IU2.  LUNSCR  leaves  the  final  result  on  file  IU3. 

For  ICASE  *  4  (symmetry,  submatrices  fit  in  core)  or  ICASE  *  5 
(symmetry,  submatrices  do  not  fit  in  core)  the  matrix  elements  on  file  IU1  are 
written  in  a  new  order  on  file  IU2  from  FS29  to  FS46.  The  sequence  of  data  on 
file  IU1  is 

column  1  of  submatrix  1 

column  1  of  submatrix  2 

column  1  of  submatrix  NOP 

column  2  of  submatrix  1 

column  2  of  submatrix  NOP 

column  3  of  submatrix  1 

column  NPBLK  of  submatrix  NOP 

The  matrices  are  written  onto  file  IU2  in  the  sequence 

column  1  of  submatrix  1 

column  2  of  submatrix  1 
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FACTRS 

column  NPBLK  of  submatrix  1 
column  1  of  submatrix  2 

column  NPBLK  of  submatrix  NOP 

For  ICASE  3  4  each  submatrix  is  then  read  into  memory  at  FS58  and  decomposed 
into  LU  factors  by  calling  FACTR  at  FS60.  The  factored  matrices  are  written 
to  file  IU3  at  FS61. 

For  ICASE  3  5  the  matrices  are  transferred  from  file  IU2  to  IU1  at  FS76 
to  FS77.  Subroutine  FACIO  is  then  called  to  factor  all  of  the  NOP 
submatrices.  The  result  is  left  on  file  IU2.  LUNSCR  reorders  the  rows  of 
each  matrix  and  leaves  the  result  on  IU3. 

SYMBOL  DICTIONARY 

A  3  array  for  matrix  storage 

12  3  number  of  words  in  a  block 

ICOLS  s  number  of  columns  in  a  block 

IP  3  array  for  pivot  element  indices 

IR1,  IR2,  IRR1,  IRR2  3  row  indices  for  reordering  columns 
IU1,  IU2,  IU3,  IU4  •  3  file  numbers 

IX  3  array  of  pivot  element  data 

KA  3  starting  location  of  a  submatrix  in  the  array 

NOP  3  number  of  symmetric  sections 

NP  3  number  of  equations  for  each  symmetric  section 

(order  of  submatrix) 

3  total  number  of  equations  (NP  x  NOP) 


NROW 


FACTRS 


1 

SUBROUTINE  FACTRS  (NP , NROW, A . IP . IX . IU1 , 

IU2.IU3.IU4) 

FS 

i 

2 

c 

FS 

2 

3 

c 

FACTRS,  FOR  SYMMETRIC  STRUCTURE,  TRANSFORMS  SUBMATRICIES  TO  FORM 

FS 

3 

4 

c 

MATRICIES  OF  THE  SYMMETRIC  MOOES  AND  CALLS  ROUTINE  TO  FACTOR 

FS 

4 

5 

c 

MATRICIES.  IF  NO  SYMMETRY.  THE  ROUTINE 

IS  CALLED  TO  FACTOR  THE 

FS 

5 

w 

6 

c 

COMPLETE  MATRIX. 

FS 

6 

7 

c 

FS 

7 

8 

COMPLEX  A 

FS 

8 

9 

COMMON  /MATPAR/  ICASE , NBLOKS . NPBLK . NLAST , NBLSYM . NPSYM . NLSYM , IMAT . I 

FS 

9 

10 

1CASX ,NBBX .NPBX ,NLBX ,NBBL .NPBL .NLBL 

FS 

10 

1 1 

DIMENSION  A ( 1 ) ,  IP(NROW) ,  IX(NROW) 

FS 

1  1 

12 

NOP=NROW/NP 

FS 

12 

13 

IF  (ICASE. GT. 2)  GO  TO  2 

FS 

13 

14 

DO  1  KK=1 , NOP 

FS 

14 

15 

KA=(KK-1 )*NP+1 

FS 

15 

16 

1 

CALL  FACTR  (NP , A( KA) . IP(KA) .NROW) 

FS 

16 

17 

RETURN 

FS 

17 

18 

2 

IF  (ICASE. GT. 3)  GO  TO  3 

FS 

18 

19 

C 

FS 

19 

1  20 

c 

FACTOR  SUBMATRICIES.  OR  FACTOR  COMPLETE 

MATRIX  IF  NO  SYMMETRY 

FS 

20 

r 

21 

c 

EXISTS. 

FS 

21 

!  22 

c 

FS 

22 

!  23 

CALL  FACIO  (A, NROW, NOP. IX, IU1 .IU2.IU3.IU4) 

FS 

23 

\  24 

CALL  LUNSCR  ( A , NROW, NOP , IP , IX , IU2 . IU3 , IU4) 

FS 

24 

25 

RETURN 

FS 

25 

26 

c 

FS 

26 

27 

c 

REWRITE  THE  MATRICES  BY  COLUMNS  ON  TAPE 

13 

FS 

27 

28 

c 

FS 

28 

29 

3 

12=2 ’NPBLK ’NROW 

FS 

29 

30 

REWIND  IU2 

FS 

30 

31 

DO  5  K=1 , NOP 

FS 

31 

!  32 

REWIND  IU1 

FS 

32 

\ 

1  33 

ICOLS=NPBLK 

FS 

33 

34 

IR2=K*NP 

FS 

34 

£ v 

35 

IR1=IR2-NP+( 

FS 

35 

,  36 

DO'  5  L=1  .  NBLOKS 

FS 

36 

:  37 

IF  (NBLOKS. EQ.1 .AND. K.GT.1)  GO  TO  4 

FS 

37 

t 

I 

38 

CALL  BLCKIN  ( A . IU1 , 1 , 12 . 1 , 602) 

FS 

38 

< 

39 

IF  (L.EQ. NBLOKS)  ICOLS=NLAST 

FS 

39 

\ 

40 

4 

IRR1 =IR1 

FS 

40 

41 

IRR2=IR2 

FS 

41 

' 

42 

DO  5  IC0LDX=1 , ICOLS 

FS 

42 

|  43 

WRITE  (IU2)  (A(I) ,I=IRR1 , IRR2) 

FS 

43 

44 

IRR1 =IRR1 +NROW 

FS 

44 

i 

1;  45 

IRR2=IRR2+NR0W 

FS 

45 

ii  46 

5 

CONTINUE 

FS 

46 

47 

REWIND  IU1 

FS 

47 

!  48 

REWIND  IU2 

FS 

48 

49 

IF  (ICASE.EQ.5)  GO  TO  8 

FS 

49 

50 

REWIND  IU3 

FS 

50 

■: 

51 

IRR1 =NP’NP 

FS 

51 

i, 

!  52 

DO  7  KK=1 .NOP 

FS 

52 

I  53 

IR1 =1 -NP 

FS 

53 

I  54 

IR2=0 

FS 

54 

• 

!  55 

DO  6  1=1 ,NP 

FS 

55 

j  56 

IR1 =IR1 +NP 

FS 

56 

57 

IR2=IR2+NP 

FS 

57 

58 

6 

READ  (IU2)  ( A ( J ) . J=IR1 , IR2) 

FS 

58 

i  59 

KA=(KK-1 )’NP+1 

FS 

59 

• 

60 

CALL  FACTR  (NP . A . IP(KA) . NP) 

FS 

60 

61 

WRITE  (IU3)  (A(I) ,1=1 ,IRR1 ) 

FS 

61 

62 

7 

CONTINUE 

FS 

62 

• 

63 

REWIND  IU2 

FS 

63 

I  64 

REWIND  IU3 

FS 

64 

*  ^ 

* 
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65 

RETURN 

FS 

65 

66 

a 

I2=2»NPSYM«NP 

FS 

66 

67 

00  10  KK=1 .NOP 

FS 

67 

68 

J2=NPSYM 

FS 

68 

69 

DO  10  L=1 , NBLSYM 

FS 

69 

70 

IF  (L.EQ. NBLSYM)  J2=NLSYM 

FS 

70 

71 

IRIal-NP 

FS 

71 

72 

IR2*0 

FS 

72 

73 

DO  9  J-1 . J2 

FS 

73 

74 

IRIalRI+NP 

FS 

74 

75 

IR2=IR2+NP 

FS 

75 

76 

9 

READ  (IU2)  (A(I),I=IR1 ,IR2) 

FS 

76 

77 

10 

CALL  BLCKOT  (A . IU1 . 1 . 12 . 1 . 1 93) 

FS 

77 

78 

REWIND  IU1 

FS 

78 

79 

CALL  FACIO  (A.NP.NOP.IX.IU1 .IU2.IU3.IU4) 

FS 

79 

80 

CALL  LUNSCR  ( A , NP , NOP , IP , IX . IU2 , IU3 , IU4) 

FS 

80 

81 

RETURN 

FS 

81 

82 

ENO 

FS 

82 
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FBAR 


FBAR 


PURPOSE 

To  compuCe  the  Sommerfeld  attenuation  function  for  Norton's  asymptotic 
field  approximations. 


METHOD 


The  value  returned  for  FBAR  is 


F(P)  ■  1  -  j  /Sp  exp  (-P)  [1  -  erf(j/p)] 

where  erf(z)  is  the  error  function.  If  Ij/Pl  £  3  the  value  of  erf(j/P)  is 
computed  from  the  series 


erf(z)  «  —  X 

/if  n-0  n* 


n  2n+l 
z 

nra 


For  lj/pl  >  3,  F(P)  is  evaluated  from  the  first  six  terms  of  the  asymptotic 
expansion 


z  exp(zZ)  (1  -  erf(z))«l  +  y,  (-1) 


M-J 


M  1  •  3  ...  (2M  -  1) 

2.M 
(  2z  ) 


for  z  *,  larg(z)  l<  ^ 


SYMBOL  DICTIONARY 

ACCS  *  relative  convergence  test  value 

FJ  -  j  -  /=l 

MINUS  -  1  if  Re(z)  <  0 

P  -  P 

>  * \ n  2n+ 1 1  i 
POW  *  (-1)  z  /n: 

SMS  *  magnitude  squared  of  series 

SP  -  /W 

SUM  *  series  value 


TERM  *  term  in  the  series 

TMS  -  I  TERM  1 2 

TOSP  *  2/SW 


FBAR 


1 

COMPLEX  FUNCTION  FBAR(P) 

FR 

1 

2 

C 

FR 

2 

3 

C 

FBAR  IS  SOMMERFELD  ATTENUATION  FUNCTION  FOR  NUMERICAL  DISTANCE  P 

FR 

3 

4 

C 

FR 

4 

5 

COMPLEX  Z.ZS. SUM, POW, TERM, P,FJ 

FR 

5 

6 

DIMENSION  F JX(2) 

FR 

6 

7 

EQUIVALENCE  (FJ.FJX) 

FR 

7 

8 

DATA  TOSP/1 .128379 167/, ACCS/1 .E-12/.SP/1 . 772453851 /. FJX/O ., 1 ./ 

FR 

8 

9 

Z=FJ*CSQRT(P) 

FR 

9 

10 

IF  (CABS(Z) . GT .3 . )  GO  TO  3 

FR 

10 

11 

c 

FR 

11 

12 

c 

SERIES  EXPANSION 

FR 

12 

13 

c 

FR 

13 

14 

ZS=Z*Z 

FR 

14 

15 

SUM-Z 

FR 

15 

16 

POW=Z 

FR 

16 

17 

DO  1  1*1 ,100 

FR 

17 

18 

PO#=-POW» ZS/FLOAT( I) 

FR 

18 

19 

TERM=P0W/(2.*I+1  .) 

FR 

19 

20 

SUM=SUM+TERM 

FR 

20 

21 

TMS=REAL( TERM*CONJG( TERM) ) 

FR 

21 

22 

SMS=REAL(SUM*CONJG(SUM) ) 

FR 

22 

23 

IF  ( TMS/SMS . L  T . ACCS )  GO  TO  2 

FR 

23 

24 

1 

CONTINUE 

FR 

24 

25 

2 

FBAR=1 .-(1 . -SUM*TOSP)*Z*CEXP(ZS)*SP 

FR 

25 

26 

RETURN 

FR 

26 

27 

c 

FR 

27 

28 

c 

ASYMPTOTIC  EXPANSION 

FR 

28 

29 

c 

FR 

29 

30 

3 

IF  (REAL(Z).GE.O.)  GO  TO  4 

FR 

30 

31 

MINUS=1 

FR 

31 

32 

Z=-Z 

FR 

32 

33 

GO  TO  5 

FR 

33 

34 

4 

MINUS=0 

FR 

34 

35 

5 

ZS=.5/(Z»Z) 

FR 

35 

36 

SUM=(0. .0.) 

FR 

36 

37 

TERM=( 1 . ,0. ) 

FR 

37 

38 

DO  6  1=1 .6 

FR 

38 

39 

TERM=-TERM*(2. *1-1 .  )»ZS 

FR 

39 

40 

6 

SUM=SUM+TERM 

FR 

40 

41 

IF  (MINUS. EQ.1)  SUM=SUM-2 . *SP*Z*CEXP(Z*Z) 

FR 

41 

42 

FBAR=-SUM 

FR 

42 

43 

RETURN 

FR 

43 

44 

END 

FR 
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FBLOCK 

PURPOSE 

To  set  parameters  for  storage  of  the  interaction  matrix. 

METHOD 

FBLOCK  sets  values  of  the  parameters  ICASE  through  NLSYM  in 
COMMON /MATPAR/.  The  input  parameters  NROW  and  NCOL  are  the  number  of  rows  and 
columns  in  the  non-transposed  matrix.  IMAX  is  the  number  of  matrix  elements 
that  can  be  stored  in  the  array  in  COMMON/CMB/.  If  a  NGF  file  will  be  written 
(WG  card)  then  IRNGF  complex  locations  are  reserved  for  future  use.  If  a  NGF 
file  has  not  been  requested  then  IRNGF  is  zero. 

If  (NROW)(NCOL)  <  IMAX  -  IRNGF  the  complete  matrix  can  be  stored  in 
COMMON/CMB/.  ICASE  is  then  1  for  no  symmetry  or  2  for  symmetry.  If  the 
structure  has  symmetry  and  one  submatrix  fits  in  core  but  not  the  complete 
matrix, 


(NROW) (NCOL)  >  IMAX  -  IRNGF 
NROW2  <  IMAX  -  IRNGF, 


then  ICASE  is  4. 

If  the  matrix  cannot  fit  in  core  for  the  LU  decomposition  then  it  is 
divided  into  blocks  of  rows  (columns  of  the  transposed  matrix)  for  transfer 
between  core  and  file  storage.  The  blocks  are  made  as  large  as  possible  so 
that  one  block  fits  into  IMAX  -  IRNGF  locations  and  two  blocks  fit  into  IMAX 
locations.  Since  two  blocks  are  needed  in  core  only  during  the  Gauss 
elimination  process  this  makes  at  least  IRNGF  locations  available  during  the 
NGF  solution. 


CODING 

FB10  -  FB17 
FB20  -  FB32 
FB34  -  FB40 
FB42  -  FB48 
FB49  -  FB58 


ICASE  >  1  or  2 
ICASE  -  3 

ICASE  ■  4  or  5,  block  parameters  for  whole  matrix 
ICASE  ■  4,  block  parameters  for  submatrices 
ICASE  *  5,  block  parameters  for  submatrices 


FBLOCF 


FB65  -  FB71  S  matrix  for  rotational  symmetry  (Equation  III  of  Part  I) 

FB75  -  FB88  S  matrix  for  plane  symmetry 


SYMBOL  DICTIONARY 

ARG 

9 

2n(I  -  1)(J  -  1)/N0P 

IMAX 

m 

number  of  complex  numbers  that  can  be  stored  in  COMMON/CMB/ 

IMX1 

m 

IMAX  -  IRNGF 

IPSYM 

m 

parameter  from  COMMON/DATA/ 

IRNGF 

9 

array  storage  reserved  for  NGF 

KA 

m 

number  of  planes  of  symmetry 

NCOL 

9 

number  of  columns  in  matrix 

NOP 

9 

number  of  symmetric  sections 

NROM 

9 

number  of  rows  in  matrix 

PHAZ 

9 

2H/N0P 

FBLOCK 


1  SUBROUTINE  FBLOCK  (NROW.NCOL . IMAX . IRNGF , IPSYM)  FB  1 

2  C  FBLOCK  SETS  PARAMETERS  FOR  OUT-OF-CORE  SOLUTION  FOR  THE  PRIMARY  FB  2 

3  C  MATRIX  (A)  FB  3 

4  COMPLEX  SSX, DETER  FB  4 

5  COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK , NLAST , N0LSYM , NPSYM.NLSYM, IMA T , I  FB  S 

6  1CASX ,NBBX ,NPBX ,NLBX , NBBL , NP9L , NLBL  FB  6 

7  COMMON  /SMAT/  SSX(16.16)  FB  7 

8  IMX 1 =IMAX— IRNGF  FB  8 

9  IF  (NROW’NCOL.GT.IMXI )  GO  TO  2  FB  9 

tO  NBLOKS=1  FB  10 

1 1  NPBLK=NROW  FB  1 1 

12  NLAST=NROW  FB  12 

13  IMAT=NROW*NCOL  FB  13 

14  IF  (NROW.NE.NCOL)  GO  TO  1  FB  14 

15  ICASE=1  FB  15 

16  RETURN  FB  16 

17  1  ICASE =2  FB  17 

18  GO  TO  5  FB  18 

19  2  IF  (NROW.NE.NCOL)  GO  TO  3  FB  19 

20  ICASE=3  FB  20 

21  NPBLK=IMAX/(2»NC0L)  FB  21 

22  NPSYM=IMX1/NC0L  FB  22 

23  IF  (NPSYM.LT. NPBLK)  NP8LK=NPSYM  FB  23 

24  IF  (NPBLK. LT.1)  GO  TO  12  FB  24 

25  NBLOKS=(NROW— 1 )/NPBLK  FB  25 

26  NLAST=NROW-NBLOKS ’NPBLK  FB  26 

27  NBL0KS=NBL0KS+1  FB  27 

28  NBLSYM=NBLOKS  FB  28 

29  NPSYM=NPBLK  FB  29 

30  NLSYM=NLAST  FB  30 

31  IMAT=NPBLK’NCOL  FB  31 

32  PRINT  14.  NBLOKS. NPBLK. NLAST  F8  32 

33  GO  TO  11  FB  33 

34  3  NPBLK=IMAX/NCOL  FB  34 

35  IF  (NPBLK.LT. 1)  GO  TO  12  FB  35 

36  IF  ( NPBLK. GT.NROW)  NPBLK=NROW  FB  36 

37  NBL0KS=(NR0W-1 )/NPBLK  FB  37 

38  NLAST=NROW-NBLOKS* NPBLK  FB  38 

39  NBL0KS=NBL0KS+1  FB  39 

40  PRINT  14,  NBLOKS, NPBLK, NLAST  FB  40 

41  IF  (NROW’NROW.GT . IMX1 )  GO  TO  4  FB  41 

42  ICASE=4  FB  42 

43  NBLSYM=1  FB  43 

44  NPSYM=NROW  FB  44 

45  NLSYM=NROW  FB  45 

46  IMAT=NROW*NROW  FB  46 

47  PRINT  15  FB  47 

48  GO  TO  5  FB  48 

49  4  ICASE=5  FB  49 

50  NPSYM=IMAX/(2’NR0W)  FB  50 

51  NBLS YM=IMX 1 /NROW  FB  51 

52  IF  (NBLSYM.LT. NPSYM)  NPSYM=NBLSYM  FB  52 

53  IF  (NPSYM. LT.1)  GO  TO  1 2  FB  53 

54  NBLSYM=(NR0W-1 )/NPSYM  FB  54 

55  NLSYM=NROW— NBLSYM’NPSYM  FB  55 

56  NBLSYM=NBLSYM+1  FB  56 

57  PRINT  16.  NBLSYM. NPSYM.NLSYM  FB  57 

58  IMAT=NPSYM*NROW  FB  58 

59  5  NOP=NCOL/NROW  FB  59 

60  IF  (NOP’NROW.NE . NCOL)  GO  TO  13  FB  60 

61  IF  (IPSYM. GT.O)  GO  TO  7  FB  61 


FBLOCK 


65 

PHAZ=6 . 283 1 853072/NOP 

FB 

65 

66 

00  6  1=2, NOP 

FB 

66 

67 

DO  6  J=I , NOP 

FB 

67 

68 

ARG=PHAZ*FLOAT( 1-1 )*FLOAT( J-1 ) 

FB 

68 

69 

SSX( I , J )=CMPLX(COS( ARG) .SIN(ARG)) 

FB 

69 

70 

6 

SSX(J.I)=SSX(I. J) 

FB 

70 

71 

GO  TO  11 

FB 

71 

72 

C 

FB 

72 

73 

C 

SET  UP  SSX  MATRIX  FOR  PLANE  SYMMETRY 

FB 

73 

74 

C 

FB 

74 

75 

7 

KK=1 

FB 

75 

76 

SSX(1 . 1 )=( 1 ..0.) 

FB 

76 

77 

IF  ((N0P.EQ.2) .OR. (NOP. EO. 4) .OR . (NOP . EQ . 8) )  GO  TO  8 

FB 

77 

78 

STOP 

FB 

78 

79 

8 

KA=NOP/2 

FB 

79 

80 

IF  (NOP.EQ.8)  KA=3 

FB 

80 

81 

DO  10  K=1  ,  KA 

FB 

81 

82 

DO  9  1=1 , KK 

FB 

82 

83 

DO  9  J=1 , KK 

FB 

83 

84 

DETER=SSX(I, J) 

FB 

84 

85 

SSX( I , J+KK)=0ETER 

FB 

85 

86 

SSX( I+KK , J+KK)=-DETER 

FB 

86 

87 

9 

SSX(I+KK. J)=0ETER 

FB 

87 

88 

10 

KK=KK»2 

FB 

88 

89 

11 

RETURN 

FB 

89 

90 

12 

PRINT  17.  NROW.NCOL 

FB 

90 

91 

STOP 

FB 

91 

92 

13 

PRINT  18.  NROW.NCOL 

FB 

92 

93 

STOP 

FB 

93 

94 

C 

FB 

94 

95 

14 

FORMAT  (//35H  MATRIX  FILE  STORAGE  -  NO.  BLOCKS= . 15 , 1 9H  COLUMNS  PE 

FB 

95 

96 

1 R  BL0CK=,I5.23H  COLUMNS  IN  LAST  BLOCK=.IS) 

FB 

96 

97 

15 

FORMAT  ( 25H  SUBMATRICIES  FIT  IN  CORE) 

FB 

97 

98 

16 

FORMAT  (38H  SUBMATRIX  PARTITIONING  -  NO.  BLOCKS=, 15 , 1 9H  COLUMNS  P 

FB 

98 

99 

1 ER  BLOCK=, 15 , 23H  COLUMNS  IN  LAST  8L0CK=,I5) 

FB 

99 

100 

17 

FORMAT  (40H  ERROR  -  INSUFFICIENT  STORAGE  FOR  MATRIX, 215) 

FB 

100 

101 

18 

FORMAT  (28H  SYMMETRY  ERROR  -  NROW,NCOL=, 215) 

FB 

101 

102 

END 

FB 

102- 

FBNGF 

PURPOSE 

To  sec  parameters  for  storage  of  the  matrices  B,  C  and  D  for  the  NGF 
solution. 

METHOD 

The  modes  of  matrix  storage  for  the  NGF  solution  are  described  in 
Section  VIII.  FBNGF  choses  the  smallest  ICASX  (1  through  4)  possible  given 
the  size  of  the  matrices  A,  B,  C  and  D  and  the  space  available  in  the  array  CM 
in  COMMON/CMB/.  If  B,  C  and  D  must  be  divided  into  blocks  (ICASX  ■  3  or  4) 

Che  blocks  are  chosen  are  large  as  possible  to  minimize  the  number  of  input 
and  output  requests.  Parameters  specifying  the  number  and  size  of  blocks  are 
stored  in  COMMON /MATPAR/  (see  Section  III). 

FBNGF  also  sets  the  locations  in  CM  at  which  storage  of  B,  C  and  D 
start.  For  example,  CM(ICll)  is  passed  from  the  main  program  to  subroutines 
CMNGF  and  FACGF  as  the  starting  location  of  array  C. 

SYMBOL  DICTIONARY 

IB11  ■  location  in  CM  at  which  storage  of  B  starts 

IC11  *  location  in  CM  at  which  storage  of  C  starts 

ID11  *  location  in  CM  at  which  storage  of  D  starts 

IMAT  ■  number  of  complex  numbers  in  Af 

IR  ■  space  available  (complex  numbers)  in  CM  when  Ap  is  not  being 

used. 

IRESRV  -  total  length  of  CM 

IRESX  *  space  availabe  in  CM  when  A-  is  being  used 

F  -1  . 

IX 11  ■  location  in  CM  at  which  storage  of  B  starts  when  A  Bis 

computed  (Ap  occupies  space  in  CM) 

NBCD  *  number  of  complex  numbers  in  B,  C  and  D  combined 

NBLN  *  number  of  complex  numbers  in  B  or  C 

NDLN  -  length  of  D 

NEQ  *  number  of  rows  in  B,  columns  in  C 

NEQ2  ■  number  of  columns  in  B  or  D,  rows  in  C  or  D 


SUBROUTINE  FBNGF  (NEQ .NEQ2 . IRESRV , IB1 1 , IC1 1 , ID1 1 . 1X1 1 ) 

FBNGF  SETS  THE  BLOCKING  PARAMETERS  FOR  THE  B,  C.  AND  0  ARRAYS  FOR 
OUT-OF-CORE  STORAGE. 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK ,NLAST , NBLSYM , NPSYM , NLSYM , IMAT , I 
1 CASX . NBBX , NPBX . NLBX , NBBL , NPBL . NLBL 
IRESX=IRESRV— IMAT 
NBLN=NEQ*NEQ2 
NDLN=NEQ2*NEQ2 
NBCD=2»NBLN+NDLN 
IF  (NBCD.GT.IRESX)  GO  TO  1 
ICASX=1 
IB1 1=IMAT+1 
GO  TO  2 

IF  (ICASE.LT. 3)  GO  TO  3 

IF  (NBCO.GT. IRESRV. OR. NBLN.GT.IRESX)  GO  TO  3 

ICASX=2 

IB1 1=1 

NBBX=1 

NPBX=NEO 

NLBX=NEQ 

NBBL=1 

NPBL=NEQ2 

NLBL=NEQ2 

GO  TO  5 

IR=IRESRV 

IF  (ICASE.LT. 3)  IR=IRESX 
ICASX=3 

IF  (NDLN.GT.IR)  ICASX=4 
NBCD=2*NEQ+NEQ2 
NPBL=IR/NBCD 
NLBL=IR/(2*NEQ2) 

IF  (NLBL. LT. NPBL)  NPBL=NLBL 

IF  (ICASE.LT. 3)  GO  TO  4 

NLBL=IRESX/N£Q 

IF  (NLBL. LT. NPBL)  NPBL=NLBL 

IF  (NPBL.LT. 1 )  GO  TO  6 

NBBL=(NEQ2-1 )/NPBL 

NLBL=NEQ2-NBBL*NP0L 

NB8L=NBBL+1 

NBLN=NEQ*NPBL 

IR=IR-NBLN 

NPBX=IR/NEQ2 

IF  (NPBX. GT. NEQ)  NPBX=NEQ 
NBBX=(NEQ-1 )/NPBX 
NLBX=NEQ-NBBX*NPBX 
NBBX=NBBX+1 
IB1 1=1 

IF  (ICASE.LT. 3)  IB11=IMAT+1 

IC1 1 =IB 1 1+NBLN 

ID1 1=IC1 1+NBLN 

1X1 1=IMAT+1 

PRINT  1 1 .  NEQ2 

IF  (ICASX.EQ.1)  RETURN 

PRINT  8.  ICASX 

PRINT  9,  NBBX, NPBX. NLBX 

PRINT  10,  NBBL. NPBL, NLBL 

RETURN 

PRINT  7,  IRESRV. IMAT, NEO.NEQ2 


FN  6 


FN  8 
FN  9 


FN  10 
FN  11 


FN  12 
FN  13 


FN  14 
FN  15 


FN  16 
FN  17 


FN  18 
FN  19 


FN  20 
FN  21 


FN  22 
FN  23 


FN  24 
FN  25 


FN  26 
FN  27 


FN  28 
FN  29 


FN  30 
FN  31 


FN  32 
FN  33 


FN  34 
FN  35 


FN  36 
FN  37 


FN  38 
FN  39 


FN  40 
FN  41 


FN  42 
FN  43 


FN  44 
FN  45 


FN  46 
FN  47 


FN  48 
FN  49 


FN  50 
FN  51 


FN  52 
FN  53 


FN  54 
FN  55 


FN  56 
FN  57 


FN  58 
FN  59 


FORMAT  ( 55H  ERROR  -  INSUFFICIENT  STORAGE  FOR  INTERACTION  MATRICIES 
1.24H  IRESRV, IMAT, NEQ. NEQ2  =,415) 

FORMAT  (48H  FILE  STORAGE  FOR  NEW  MATRIX  SECTIONS  -  ICASX  =,I2) 
FORMAT  (19H  B  FILLED  BY  ROWS  -.15X.12HN0.  BLOCKS  =. 13 . 3X , 1 6HR0WS  P 


FN  60 
FN  61 


FN  62 
FN  63 


FN  64 
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FBNGF 


65 

1 ER  BLOCK  = , 13 , 3X , 20HR0WS  IN  LAST  SLOCK  =  ,I3) 

FN 

65 

66 

10 

FORMAT  (32H  B  BY  COLUMNS,  C  AND  D  BY  ROWS  -.2X.12HN0.  BLOCKS  =,13. 

FN 

66 

67 

14X.15HR/C  PER  BLOCK  =. 13 , 4X , t 9HR/C  IN  LAST  BLOCK  =,I3) 

FN 

67 

68 

11 

FORMAT  (//,35H  N.G.F.  -  NUMBER  OF  NEW  UNKNOWNS  IS, 14) 

FN 

68 

69 

END 

FN 

69- 

‘•1 


# 
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FFLD 


FFLD 


PURPOSE 

To  calculate  the  radiated  electric  field  due  to  the  currents  on  wires 


and  surfaces  in  free  space  or  over  ground.  The  range  factor  exp(-j kr^)/ 


(r^/X)  is  omitted. 


METHOD 

Equation  (126)  of  Part  I  is  used  to  evaluate  the  radiated  field  of  wires 
and  surfaces.  The  surface  part  of  the  equation  is  evaluated  in  subroutine 
FFLDS,  however.  For  wires,  the  field  equation  is 


_  jn  exp(-jkr)  ^  _  _ 

E(V  '  41,  r  A 


F(rQ)  -  2tt  J  exp(jk  •  r)  [I(s)/X]  ds/X 


where 


lo  "  iroL 
k  "  ro/|ro! 


k 

k 

1(3) 

I 

L 

r 


2ir/X 

A 

kk 

current  on  the  wire  at  s 
identity  dyad 
contour  of  the  wire 

position  of  the  point  at  s  on  the  wire 


The  dot  product  with  the  dyad  kk  -  I  results  in  the  component  of  F  transverse 

A 

to  k.  This  is  accomplished  in  the  code  by  computing  the  dot  products  with  the 

A  A  A 

unit  vectors  9  and  <J>,  normal  to  k. 

For  a  wire  structure  consisting  of  N  straight  segments,  r  on  segment  i 
is  replaced  by 


rA  +  Xtut  , 


where 


location  of  the  center  of  segment  i 


u.  *  unit  vector  in  the  direction  of  segment  i 
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m 


Then,  F  is  evaluated  as 


F(0  =  I]  exp (  j  k  •  r  )  Q 
i=l 


M/2 


Q  -  2ttu  /  exp  [j2irt(k  •  u  )  ]  I  (t)/A  dt 
1  1  -Ai/2  1  1 


where  is  the  length  of  segment  i  normalized  to 


With 


I±(t)/X 


sin  (27Tt)  +  cos  (27rt) 


the  integral  can  be  evaluated  as 


2  sin  (irw^A^) 


- 


sin  [ir(l  -  wi)Ai] 


sin  [tt(1  +  wi)Ai] 


(1  -  »i) 


(1  +  wi) 


+  C, 


sin  [tt(1  -  w^JA^]  sin  [tt(1  +  wi)A±] 


(1  -  w±) 


(1  +  wi) 


where  w^  ■  -k 


u 


i* 


The  effect  of  a  ground  is  included  by  computing  the  field  of  the  image  of 
each  segment  and  modifying  it  by  the  Fresnel  reflection  coefficients.  The 
coding  here  differs  from  section  II-4  of  Part  I  in  some  respects.  Rather  than 
reflecting  each  segment  in  the  ground  plane,  the  direction  of  observation,  k, 
is  reflected  for  the  image  calculation.  Thus,  the  sign  of  the  z  component  of 

A 

k  is  changed  at  the  start  of  the  image  calculation.  The  z  component  of  the 
image  field  must  also  be  changed  in  sign  at  the  end  of  the  calculation. 

Also,  the  change  in  sign  of  the  image  field  due  to  the  change  in  sign  of 
charge  on  the  image  is  combined  with  the  reflection  coefficients.  Thus,  the 
reflection  coefficients  are  the  negative  of  those  in  Part  I. 

The  code  allows  for  a  change  in  ground  height  and  electrical  parameters 
at  a  fixed  radial  distance  from  the  origin  (circular  cliff)  or  at  a  fixed 
distance  in  x  (linear  cliff).  In  these  cases,  the  reflection  point  of  the 
ray  from  the  center  of  each  segment  is  computed,  and  the  reflection  coeffi¬ 
cients  and  phase  lag  are  computed  for  the  appropriate  ground.  Effects  from 
the  region  of  change,  such  as  diffraction  from  the  edge,  are  not  included. 
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however.  A  radial  wire  ground  screen  may  also  be  Included  by  the  reflection 
coefficient  approximation  described  in  section  II-4  of  Part  I. 


CODING 

FF30  -  FF164  Calculation  of  field  due  to  segments. 

FF34  -  FF164  Loop  over  direct  and  image  fields. 

FF38  -  FF63  Reflection  coefficients  computed. 

A 

FF64  k  reflected  in  ground  for  image. 

FF65  -  FF70  Direct  fields  saved,  and  Cl X,  CIY,  CIZ  initialized  before 
image  calculation. 

FF75  -  FF96  Field  of  segment  I  computed. 

FF102  -  FF104  Summation  of  fields  for  direct  field  or  uniform  ground. 
FF110  -  FF149  Appropriate  reflection  coefficient  determined  and  field 
summed  for  reflected  field  from  two-medium  ground  or 
t  radial-wire  ground  screen. 

FF156  -  FF159  Image  field  multiplied  by  reflection  coefficients  for 
uniform  ground  and  added  to  direct  field. 

FF161  -  FF163  Reflected  field  added  to  direct  field  for  two-medium 
ground  or  radial  wire  ground. 

-  /\  A 

FF166  -  FF167  Dot  products  of  F  with  0  and  <}>  for  wires  only. 

FF169  -  FF208  Calculation  of  field  due  to  surface  patches. 

FF177  -  FF203  Loop  over  direct  and  image  fields. 

FF179  k  reflected  for  image. 

FF180  FFLDS  calculates  field. 

FF186  -  FF202  Field  multiplied  by  reflection  coefficients  for  uniform 


ground  only. 


SYMBOL  DICTIONARY 

A  *  2  sin  (irw^A^)/w^  (a  series  is  used  for  small  w^) 

ARG  =*  k  •  r± 

B  =  coefficient  of  B^  in 

BOO  =•  sin  [tt (1  -  wi)Ai]/[TT(l  -  w^A^ 

BOT  *  TT(1  -  »i)Ai 

C  ■  coefficient  of  C^  in 

CAB 

SAB  *  x,  y,  z  components  of  u^ 


FFLD 


CCX 

CCY 

CCZ 

CDP 

CIX 

CIY 

CIZ 

CONST 

D 

DARG 

EL 

EPH 

ETH 

ETA 

EX 

EY 

EZ 

EXA 

GX 

GY 

GZ 

I 

OMEGA 

PHI 

PHX,  PHY 

PI 

RFL 

RI 

ROX 

ROY 

ROZ 

ROZS 

RR 

RRH 

RRH1 

RRH2 


■  variables  for  summation  of  x,  y,  and  z  components  of  F 

-  (F  •  $)(RV  -  Rjj) 

■  variables  for  summation  of  x,  y,  and  z  components  of  F 

-  CONSX  -  -jn/4ir 

■  distance  of  ray  reflection  point  from  origin 

■  phase  increment  due  to  change  in  ground  level 


<(>  component  of  (rQ/X)exp(jkr0)  E(rQ) 
9  component  of  (rQ/X)exp(jkr0)  E(rQ) 
n  -  /y/e 

(rQ/X)exp(jkr0)  E(rQ)  for  patches 


(rg/X)exp( Jkr^)  ECr^)  for  direct  and  reflected  fields  of  patches 

segment  number 
w 

i 

♦ 

A 

x  and  y  components  of  <J> 
it 

±1  for  direct  or  image  field  of  patch 
imaginary  part  of 

A 

x,  y,  and  z  components  of  k 


saved  value  of  ROZ 
real  part  of 


-«H 

_RH 

“■h 


for  first  ground  medium 
for  second  ground  medium 


» 


< 

■ 

i 

! 


i 

• 

i 

I 

i 


t 


I 

« 

| 


1 


s 
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RRV 

RRV1 

RRV2 

RRZ 

SILL 

THET 

THX 

THY 

THZ 

TIX 

TIY 

TIZ 

TOO 

TOP 

TP 

TTHET 

ZRATI 

ZRSIN 

ZSCRN 


-““v 

--*v 

-■»v 


for  first  ground  medium 
for  second  ground  medium 


z  component  of  k 

”Vi 

0  (angle  from  vertical  to  k) 


e 


-  Q±  for  image  in  ground 

-  sin[ir(l  +  wi)A1]/[iT(l  +  w^A^ 

■  ir(l  +  wi)A1 

-  2tt 

-  tan  0 

_l/2 

“  [£r  -  jcr/  (w£q)  ]  er»  a  *  ground  parameters 

-  [1  -  (ZRATI)2  sin2  0]1/2 

■  surface  impedance  of  ground  with  radial  wire  ground  screen 


CONSTANTS 

-29.97922085 

3.141592654 

376.73 

6.283185308 


-jn/(4ir) 

IT 

n 

2ir 


-146- 


FFLD 


1 

SUBROUTINE  FFLD  ( THET . PHI . ETH . EPH) 

FF 

1 

2 

C 

FF 

2 

3 

C 

FFLD  CALCULATES  THE  FAR  ZONE  RADIATED  ELECTRIC  FIELDS. 

FF 

3 

4 

C 

THE  FACTOR  £XP( J*K*R)/(R/LAMDA)  NOT  INCLUDED 

FF 

4 

5 

C 

FF 

5 

6 

COMPLEX  CIX . CIY . CIZ . EXA . ETH . EPH . CONST . CCX , CCY . CCZ , CDP , CUR 

FF 

6 

7 

COMPLEX  ZRATI , ZRSIN . RRV , RRH , RRV 1 , RRH1 , RRV2 , RRH2 , ZRATI2 , TIX , TIY , TIZ 

FF 

7 

8 

1 ,T1 , ZSCRN , EX , EY . EZ . GX , GY . GZ . FRATI 

FF 

8 

9 

COMMON  /DATA/  LD.N1 .N2.N.NP.M1 ,M2 ,M ,MP ,X(300) , Y( 300) ,Z(300) ,SI(300 

FF 

9 

10 

1 ) ,BI(300) ,ALP(300) , BET(300) . IC0N1 (300) . ICON2(300 ) . ITAG(300) , ICONX( 

FF 

10 

11 

2300 ),WLAM, IPS YM 

FF 

1 1 

12 

COMMON  /ANGL/  SALP(300) 

FF 

12 

13 

COMMON  /CRNT/  AIR(300) ,AII(300) ,BIR(300) ,BII(300) ,CIR(300) ,CII(300  FF 

13 

14 

1 ) ,CUR(900) 

FF 

14 

15 

COMMON  /GNO/ZRATI . ZRATI2 . FRATI . CL , CH . SCRWL , SCRWR . NRADL . KSYMP , IFAR , 

FF 

15 

16 

1IPERF.T1 ,T2 

FF 

16 

17 

DIMENSION  CAB( 1 ) ,  SAB(1),  C0NSX(2) 

FF 

17 

18 

EQUIVALENCE  (CAB, ALP).  (SAB. BET),  (CONST .CONSX) 

FF 

18 

19 

DATA  PI . TP . ETA/3 .141 592654 . 6 . 283185308 .376.73/ 

FF 

19 

20 

DATA  CONSX/O . . -29 . 97922085/ 

FF 

20 

21 

PHX=-SIN(PHI) 

FF 

21 

22 

PHY=COS(PHI) 

FF 

22 

23 

ROZ=COS(THET) 

FF 

23 

24 

ROZS=ROZ 

FF 

24 

25 

THX=ROZ*PHY 

FF 

25 

26 

THY=-ROZ*PHX 

FF 

26 

27 

THZ=-SIN(THET) 

FF 

27 

28 

ROX=-THZ*PHY 

FF 

28 

29 

ROY=THZ*PHX 

FF 

29 

30 

IF  (N.EO.O)  GO  TO  20 

FF 

30 

31 

C 

FF 

31 

32 

C 

LOOP  FOR  STRUCTURE  IMAGE  IF  ANY 

FF 

32 

33 

C 

FF 

33 

34 

DO  19  K=1, KSYMP 

FF 

34 

35 

C 

FF 

35 

36 

C 

CALCULATION  OF  REFLECTION  COEFFECIENTS 

FF 

36 

37 

C 

FF 

37 

38 

IF  (K.EQ.1)  GO  TO  4 

FF 

38 

39 

IF  (IPERF.NE.1)  GO  TO  1 

FF 

39 

40 

C 

FF 

40 

41 

c 

FOR  PERFECT  GROUND 

FF 

41 

42 

c 

FF 

42 

43 

RRV=-( 1 . ,0.) 

FF 

43 

44 

RRH=-( 1 . ,0 . ) 

FF 

44 

45 

GO  TO  2 

FF 

45 

46 

c 

FF 

46 

47 

c 

FOR  INFINITE  PLANAR  GROUND 

FF 

47 

48 

c 

FF 

48 

49 

1 

ZRSIN=CSQRT( 1 . -ZRATI* ZRATI *THZ*THZ) 

FF 

49 

50 

RRV=-( ROZ-ZRATI*ZRSIN)/(ROZ+ZRATI* ZRSIN) 

FF 

50 

51 

RRH=( ZRATI *ROZ-ZRSIN)/( ZRATI *ROZ+ZRSIN) 

FF 

51 

52 

2 

IF  (IFAR.LE.1)  GO  TO  3 

FF 

52 

53 

C 

FF 

53 

54 

C 

FOR  THE  CLIFF  PROBLEM.  TWO  REFLCTION  COEFFICIENTS  CALCULATED 

FF 

54 

55 

C 

FF 

55 

56 

RRV1 =RRV 

FF 

56 

57 

RRHIsRRH 

FF 

57 

58 

TTHET=TAN(THET) 

FF 

58 

59 

IF  (IFAR.EQ.4)  GO  TO  3 

FF 

59 

60 

ZRSIN=CSQRT ( 1 ,-ZRATI2*ZRATI2*THZ*THZ) 

FF 

60 

61 

RRV2=-(ROZ-ZRATI2* ZRSIN )/(R0Z+ZRATI2* ZRSIN) 

FF 

61 

62 

RRH2=(ZRATI2*ROZ-ZRSIN)/(ZRATI2*ROZ+ZRSIN) 

FF 

62 

63 

0ARGa-TP*2.*CH*R0Z 

FF 

63 

64 

3 

ROZa-ROZ 

FF 

64 
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65 

CCX=CIX 

FF 

65 

66 

ccy=ciy 

FF 

66 

67 

CCZ=CIZ 

FF 

67 

68 

4 

CIX=(0. .0.) 

FF 

68 

69 

CIY=(0. ,0.) 

FF 

69 

70 

CIZ=(0. ,0.) 

FF 

70 

71 

C 

FF 

71 

72 

C 

LOOP  OVER  STRUCTURE  SEGMENTS 

FF 

72 

73 

c 

FF 

73 

74 

DO  17  1=1 , N 

FF 

74 

75 

OMEGA=-(ROX*CAB(I)+ROY*SAB(I)+ROZ*SALP(I) ) 

FF 

75 

76 

EL=PI*SI(I) 

FF 

76 

77 

SILL=OMEGA*EL 

FF 

77 

78 

TOP=EL+SILL 

FF 

78 

79 

BOT=EL-SILL 

FF 

79 

80 

IF  (ABS(OMEGA) . LT . 1 . E-7)  GO  TO  5 

FF 

80 

81 

A=2 . *SIN(SILL)/OMEGA 

FF 

81 

82 

GO  TO  6 

FF 

82 

83 

5 

A=(2.-OMEGA*OMEGA*EL*EL/3. )»EL 

FF 

83 

84 

6 

IF  (ABS(TOP) .LT. 1 .E-7)  GO  TO  7 

FF 

84 

85 

TOO=SIN(TOP)/TOP 

FF 

85 

86 

GO  TO  8 

FF 

86 

87 

7 

TOO=1 . -T0P*T0P/6 . 

FF 

87 

88 

8 

IF  (ABS(BOT).LT.I .E-7)  GO  TO  9 

FF 

88 

89 

BOO=SIN(BOT)/BOT 

FF 

89 

90 

GO  TO  10 

FF 

90 

91 

9 

BOO=1 . -80T*B0T/6 . 

FF 

91 

92 

10 

B=EL*(BOO-TOO) 

FF 

92 

93 

C=EL*(BOO+TOO) 

FF 

93 

94 

RR=A*AIR(I)+B*BII(I)+C*CIR(I) 

FF 

94 

95 

RI=A*AII(I)-B*BIR( I)+C*CII( I ) 

FF 

95 

96 

ARG=TP*(X( I)*ROX+Y( I) *ROY+Z( I) *ROZ) 

FF 

96 

97 

IF  ( K . EQ . 2 . AND . IFAR . GE . 2 )  GO  TO  11 

FF 

97 

98 

EXA=CMPLX(COS(ARG) , SIN( ARG) ) *CMPLX( RR , RI) 

FF 

98 

99 

C 

FF 

99 

100 

c 

SUMMATION  FOR  FAR  FIELD  INTEGRAL 

FF 

100 

101 

c 

FF 

101 

102 

CIX=CIX+EXA*CA8( I) 

FF 

102 

103 

CIY=CIY+EXA*SAB(I) 

FF 

103 

104 

CIZ=CIZ+EXA*SALP(I) 

FF 

104 

105 

GO  TO  17 

FF 

105 

106 

c 

* 

FF 

106 

107 

c 

CALCULATION  OF  IMAGE  CONTRIBUTION  IN  CLIFF  AND  GROUND  SCREEN 

FF 

107 

108 

c 

PROBLEMS. 

FF 

108 

109 

c 

FF 

109 

110 

11 

OR=Z( I) *TTHET 

FF 

110 

111 

c 

FF 

1 1 1 

112 

c 

SPECULAR  POINT  DISTANCE 

FF 

112 

113 

c 

FF 

113 

114 

D=DR*PHY+X(I) 

FF 

1  14 

115 

IF  (IFAR.EQ.2)  GO  TO  13 

FF 

115 

116 

D=SORT( D*D+( Y ( I)-DR*PHX) **2) 

FF 

116 

117 

IF  (IFAR.EQ.3)  GO  TO  13 

FF 

117 

118 

IF  ( (SCRWL-D) . LT . 0 . )  GO  TO  1 2 

FF 

118 

119 

c 

FF 

119 

120 

c 

RAOIAL  WIRE  GROUND  SCREEN  REFLECTION  COEFFICIENT 

FF 

120 

121 

c 

FF 

121 

122 

D=D+T2 

FF 

122 

123 

ZSCRN=T1 »D*AL0G(D/T2) 

FF 

123 

124 

ZSCRN=(ZSCRN*ZRATI )/( ETA*ZRATI+ZSCRN) 

FF 

124 

125 

ZRSIN=CSORT ( 1 . -ZSCRN*ZSCRN*THZ*THZ) 

FF 

125 

126 

RRV=(ROZ+ZSCRN*ZRSIN)/(-ROZ+ZSCRN*ZRSIN) 

FF 

126 

127. 

RRH=(ZSCRN»ROZ+ZRSIN)/(ZSCRN»ROZ-ZRSIN) 

FF 

127 

128 

GO  TO  16 

FF 

128 
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IF  (IFAR.EQ.4)  GO  TO  14 

] 

129  12 

FF 

129  •  t 

130 

IF  (IFAR.EQ.5)  D=DR‘PHY+X( I ) 

FF 

1 30 

m 

131  13 

IF  ((CL-D).LE.O.)  GO  TO  15 

FF 

131 

132  14 

RRV=RRV1 

FF 

132  3 

133 

RRH=RRH1 

FF 

133  * 

134 

GO  TO  16 

FF 

134  '"j 

135  IS 

RRV=RRV2 

FF 

135  '•! 

136 

RRH=RRH2 

FF 

136  \ 

137 

ARG=ARG+DARG 

FF 

1 37  •; 

138  16 

EX A=CMP LX ( COS ( ARG )  ,SIN( ARG) ) *CMPLX( RR . RI) 

FF 

138 

139  C 

FF 

1 39  -1 

140  C 

CONTRIBUTION  OF  EACH  IMAGE  SEGMENT  MODIFIED  BY 

REFLECTION  COEF. 

FF 

140  j 

141  C 

FOR  CLIFF  AND  GROUND  SCREEN  PROBLEMS 

FF 

142  C 

FF 

1  42 

143 

TIX=EXA‘CAB(I) 

FF 

143  < 

144 

TIY=EXA‘SAB(I) 

FF 

144  1 

145 

TIZ=EXA‘SALP(I) 

FF 

1 45  ,'J 

146 

CDP=( TIX‘PHX+TIY*PHY ) * ( RRH-RRV ) 

FF 

1 46  % 

147 

CIX=CIX+TIX‘RRV+CDP‘PHX 

FF 

147  8 

148 

CIY=CIY+TIY‘RRV+CDP‘PHY 

FF 

148  V 

149 

CIZ=CIZ-TIZ‘RRV 

FF 

149 

150  17 

CONTINUE 

FF 

150 

151 

IF  (K.EQ.1)  GO  TO  19 

FF 

151  3 

152 

IF  (IFAR.GE.2)  GO  TO  18 

FF 

152  J 

153  C 

FF 

1 53  r,J 

154  C 

CALCULATION  OF  CONTRIBUTION  OF  STRUCTURE  IMAGE 

FOR  INFINITE  GROUND 

FF 

154  k 

155  C 

FF 

155  “ 

156 

CDP=(CIX‘PHX+CIY*PHY)‘( RRH-RRV) 

FF 

1 56  A 

157 

CIX=CCX+CIX‘RRV+CDP‘PHX 

FF 

157  ! 

158 

CIY=CCY+CIY‘RRV+CDP*PHY 

FF 

1 58  o 

159 

CIZ=CCZ-CIZ‘RRV 

FF 

1 59  i 

160 

GO  TO  19 

FF 

1 60  -I 

161  18 

cix=cix+ccx 

FF 

161  ij 

162 

CIY=CIY+CCY 

FF 

162 

163 

CIZ=CIZ+CCZ 

‘ 

FF 

163  } 

164  19 

CONTINUE 

FF 

1  64 

165 

IF  (M.GT.O)  GO  TO  21 

FF 

165  J 

166 

ETH=(CIX‘THX+CIY‘THY+CIZ‘THZ) ‘CONST 

FF 

166 

167 

EPH=(CIX‘PHX+CIY‘PHY) ‘CONST 

FF 

1 67 

168 

RETURN 

FF 

168  y 

169  20 

CIX=(0. ,0.) 

FF 

169  1 

170 

CIY=(0 . .0.) 

FF 

1 70 

171 

CIZ=(0. .0. ) 

FF 

171  -j 

172  21 

ROZ=ROZS 

FF 

172 

173  C 

FF 

173 

174  C 

ELECTRIC  FIELD  COMPONENTS 

FF 

174  J 

175  C 

FF 

175 

176 

RFL=-1 . 

FF 

176  f 

177 

DO  25  IP=1 , KSYMP 

FF 

177 

178 

RFL=-RFL 

FF 

1  78 

179 

RRZ=ROZ‘RFL 

FF 

1  79 

180 

CALL  FFLDS  ( ROX , ROY . RRZ , CUR(N+1 ) , GX , GY . GZ) 

FF 

180  C 

181 

IF  (IP.EQ.2)  GO  TO  22 

FF 

181  / 

182 

EX=GX 

FF 

182 

183 

EY=GY 

FF 

183  @ 

184 

EZ=GZ 

FF 

184  J 

185 

GO  TO  25 

FF 

185  5 

186  22 

IF  (IPERF.NE.  1  )  GO  TO  23 

FF 

186  i 

187 

GX=-GX 

FF 

187  K 

188 

GY=-GY 

FF 

1 88 

189 

GZ=-GZ 

FF 

189 

190 

GO  TO  24 

FF 

190  i 

m 

191  23 

RRV=CSORT( 1 . -ZRATI‘ZRATI‘THZ‘THZ) 

FF 

191 

192 

RRH=ZRATI‘ROZ 

FF 

192  I 
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1 

1 

193 

RRH=( RRH-RRV )/( RRH+RRV ) 

FF  193 

194 

RRV=ZRATI*RRV 

FF  194 

195 

RRV=-( ROZ-RRV )/( ROZ+RRV ) 

FF  195 

196 

ETH=(GX*PHX+GY*PHY ) * ( RRH-RRV ) 

FF  196 

197 

GX=GX»RRV+ETH*PHX 

FF  197 

198 

GY=GY*RRV+ETH*PHY 

FF  198 

199 

GZ=GZ»RRV 

FF  199 

200  24 

EXsEX+GX 

FF  200 

201 

EY=EY+GY 

FF  201 

202 

EZ=EZ-GZ 

FF  202 

203  25 

CONTINUE 

FF  203 

204 

EXaEX+CIX* CONST 

FF  204 

205 

EY=EY+CIY ‘CONST 

FF  205 

206 

EZ=EZ+CIZ* CONST 

FF  206 

207 

ETH=EX*THX+EY*THY+EZ*THZ 

FF  207 

208 

EPH=EX»PHX+EY*PHY 

FF  208 

209 

RETURN 

FF  209 

210 

END 

FF  210- 
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FFLDS 

PURPOSE 

To  calculate  the  x,  y,  z  components  of  the  far  electric  field  due  to 
surface  currents.  The  term  exp(-jkrg)/ (r^/A)  is  omitted. 

METHOD 

The  field  is  computed  using  the  surface  portion  of  equation  (126)  in 
Part  1.  With  lengths  normalized  to  the  wavelength,  the  equation  is 


SYMBOL  DICTIONARY 

ARG  ■  k  •  r^,  r^  -  center  of  patch  I 

CONS  -  CONSX  -  ju/2 

CT  ■  expCjk*^)  dA/A^  at  FL18 

-  k  •  F(7q)  at  FL24 

EX  _ 

-  x,  y,  z  components  of  F(rg)  at  FL22 

EZ  “  (r0A)exP(Jkrg)E(r0)  at  FL27 

I  ■  array  location  of  patch  data 

J  ■  patch  number 

K  ■  current  array  index 


FFLDS 


ROX 

ROY 

ROZ 

S(I) 

SCUR 

TP  I 

XS 

YS 

ZS 


*  x,  y,  z  components  of  k 

2 

■  (area  of  patch  I) /A 

■  array  containing  surface  current  components 
-  2ir 

*  arrays  containing  center  point  coordinates  of 
to  wavelength. 


patches  normalized 


CODE  LISTING 


1 

SUBROUTINE  FFLDS  (ROX . ROY, ROZ .SCUR . EX , EY . EZ) 

FL 

1 

2  C 

CALCULATES  THE  XYZ  COMPONENTS  OF  THE  ELECTRIC  FIELD  DUE  TO 

FL 

2 

3  C 

SURFACE  CURRENTS 

FL 

3 

4 

COMPLEX  CT, CONS, SCUR, EX. EY.EZ 

FL 

4 

5 

COMMON  /DATA/  LD, N1 ,N2 ,N , NP ,M1 , M2 . M , MP , X( 300) , Y(300) , Z( 300) , SI (300 

FL 

5 

< 

1 ) . BI( 300 ) . ALP(300 ) , BET ( 300 ) , IC0N1 ( 300 ) , ICON2 ( 300 ) , ITAG( 300 ) . ICONX ( 

FL 

6 

7 

2300) .WLAM.IPSYM 

FL 

7 

a 

DIMENSION  XS(1).  YS(1).  ZS(1).  S(1),  SCUR(l),  CONSX(2) 

FL 

8 

9 

EQUIVALENCE  (XS.X),  (YS.Y).  (ZS.Z),  (S.BI),  (CONS.CONSX) 

FL 

9 

10 

DATA  TPI/6 . 283 1 85308/ . CONSX/O .,188. 365/ 

FL 

10 

11 

EX=(0. ,0.) 

FL 

1 1 

12 

EY=(0. .0.) 

FL 

12 

13 

EZ=(0 . .0 . ) 

FL 

13 

14 

I=LD+1 

FL 

14 

15 

DO  1  J=1  ,  M 

FL 

15 

16 

1=1-1 

FL 

16 

17 

ARG=TPI*(ROX*XS( I)+ROY*YS(I)+ROZ*ZS(I) ) 

FL 

17 

18 

CT=CMPLX(COS( ARG) *S(I) ,  SIN( ARG) *S( I) ) 

FL 

18 

19 

K=3*  J 

FL 

19 

20 

EX=EX+SCUR(K-2)*CT 

FL 

20 

21 

EY=EY+SCUR(K-1 )*CT 

FL 

21 

22 

EZ=EZ+SCUR(K)*CT 

FL 

22 

23  1 

CONTINUE 

FL 

23 

24 

CT=ROX»EX+ROY»EY+ROZ»EZ 

FL 

24 

25 

EX=CONS • ( C  T • ROX -EX ) 

FL 

25 

26 

EYsCONS • ( CT • RO Y-E Y ) 

FL 

26 

27 

EZ=C0NS •  (  CT  • ROZ-EZ ) 

FL 

27 

28 

RETURN 

FL 

28 

29 

END 

FL 

29- 

i 
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GF 


PURPOSE 


To  supply  values  of  the  Integrated  function  exp(jkr) / (kr)  to  the 
numerical  integration  routine  INTX. 


METHOD 


The  geometry  parameters  for  integration  over  a  segment  are  shown  in 
the  following  diagram. 


in  which 


r(z')  -  [p2  +  (z*  -  z)2]172 


If  the  field  point  (p,z)  is  not  on  the  source  segment,  the  integrand  value  is 


G(z')  - 


kr(z') 


If  the  field  point  is  on  the  source  segment  (p  -  0,  z  *  0),  the  integrand 


value  is 


G(z') 


exp  I 1kr(z' 


kr(z’) 


In  the  latter  case,  if  kr  is  less  than  0.2,  then  (cos  kr)/kr  is  evaluated  by 
the  first  three  terms  of  its  Taylor's  series  to  reduce  numerical  error. 


SYMBOL  DICTIONARY 


CO  ■  real  part  of  G(z') 

COS  ■  external  function  (cosine) 

IJ  ■  flag  to  indicate  when  field  point  is  on  source  segment  (by  IJ 


RK  -  kr 
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X 
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ft 


B 


Sj 

Si 


E 


n 


u 


L 


Ki 


r  *1 


s 


__ 


m 


RKB2  -  (kp) 

SI  -  imaginary  part  of  G(z') 

SIN  *  external  function  (sine) 

SQRT  ■  external  function  (square  root) 
ZDK  -  kz’  -  kz 


ZPK  -  kz 


CONSTANTS 

-1. 38888889E-3 

4.16666667E-2  ■  constants  in  series  for  (cos  kr  -  l)/kr 

0.5 


CODE  LISTING 


1 

SUBROUTINE  Gf  (ZK.CO.SI) 

GF 

1 

2 

C 

GF 

2 

3 

C 

GF  COMPUTES  THE  INTEGRAND  EXP( JKR)/(KR)  FOR  NUMERICAL  INTEGRATION. 

GF 

3 

4 

C 

GF 

4 

5 

COMMON  /TMI/  ZPK.RKB2.IJ 

GF 

5 

6 

Z0K=ZK-ZPK 

GF 

6 

7 

RK=SQRT(RKB2+ZDK*ZDK) 

GF 

7 

8 

SI=SIN(RK)/RK 

GF 

8 

9 

IF  (IJ)  1 ,2.1 

GF 

9 

10 

1 

CO=COS(RK)/RK 

GF 

10 

11 

RETURN 

GF 

1  1 

12 

2 

IF  (RK.LT..2)  GO  TO  3 

GF 

12 

13 

CO=(COS(RK)-1 . )/RK 

GF 

13 

14 

RETURN 

GF 

14 

15 

3 

RKS=RK*RK 

GF 

15 

16 

CO=( (-1 . 38888889 E-3*RKS+4 . 1 6666667E-2 ) »RKS- . 5) *RK 

GF 

16 

17 

RETURN 

GF 

17 

18 

END 

GF 

18- 
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GFIL 


GFIL 


PURPOSE 

To  read  Che  NGF  file  and  store  parameters  in  the  proper  arrays. 


METHOD 

GI22 

GI30  -  GI48 


GI52  -  GI62 


GI63 

GI64 

GI74 

GI78  -  GI81 
G 183  -  GI88 
GI92  -  GI113 


Miscellaneous  parameters  are  read. 

Segment  coordinates  were  converted  to  the  form  involving 
the  segment  center,  segment  length,  and  orientation  (see 
Section  III,  COMMON/DATA/)  with  dimensions  of 
wavelength.  They  must  be  converted  back  to  the 
coordinates  of  the  segment  ends  so  that  subroutine 
CONNECT  can  locate  connections.  Dimensions  are  converted 
to  meters. 

Patch  coordinates  are  converted  from  units  of  wavelength 
to  meters  since  they  will  be  scaled  back  to  wavelengths 
along  with  the  new  segments  and  patches. 

Matrix  blocking  parameters  are  read. 

Interpolation  tables  for  the  Sommerfeld  integrals  are 
read  if  the  Sommerfeld/Norton  ground  treatment  was  used. 
Matrix  A^,  is  read  for  in-core  storage  ( ICASE  *  1  or  2).. 

Aj,  is  read  for  ICASE  *  4. 

Ap  is  read  for  ICASE  *  3  or  5. 

A  heading  summarizing  the  NGF  file  is  printed. 


SYMBOL  DICTIONARY 

DX  *  half  segment  length  (meters) 

IGFL  *  file  number  for  NGF  file 

IOUT  *  number  of  elements  in  matrix 

IPRT  *  1  to  print  coordinates  of  ends  of  segments 

NBL2  *  two  times  number  of  blocks  in  matrix  Ap  (since  Ap  is 

scored  twice,  in  ascending  and  descending  order) 

NEQ  *  order  of  the  NGF  matrix 

NOP  *  number  of  symmetric  sections 

NPEQ  *  number  of  unknowns  for  a  symmetric  section 

XI,  YI,  ZI  *  coordinates  of  the  center  of  a  segment  or  patch 
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1 

SUBROUTINE  GFIL  (IPRT) 

GI 

1 

2  C 

GI 

2 

3  C 

GFIL  READS  THE  N.G.F.  FILE 

GI 

3 

4  C 

GI 

4 

S 

COMPLEX  CM.SSX , ZRATI , ZRATI2 , T 1 .ZARRAY.AR1 . AR2 , AR3 . EPSCF , FRATI 

GI 

5 

6 

COMMON  /DATA/  LD.N1 ,N2 , N , NP ,M1 ,M2,M,MP,X(300),Y(300),Z(300),SI(300  GI 

6 

7 

1 ) ,BI(300) , ALP ( 300) , BET (300) , IC0N1 (300) , IC0N2( 300) , ITAG( 300 ) , ICONX( 

GI 

7 

8 

2300) .WLAM.IPSYM 

GI 

8 

9 

COMMON  /CMB/  CM(4000) 

GI 

9 

10 

COMMON  /ANGL/  SALP(300) 

GI 

10 

1 1 

COMMON  /GNO/ZRATI . ZRATI2 . FRATI , CL . CH , SCRWL . SCRWR , NRAOL , KSYMP , IFAR , 

GI 

1 1 

12 

1 1PERF. T1 ,T2 

GI 

12 

13 

COMMON  /GGRID/  AR1 ( 1 1 . 1 0 . 4) . AR2( 1 7 ,5 . 4) , AR3(9 ,8 , 4) , EPSCF , DXA(3) , DY 

GI 

13 

14 

1 A(3) ,XSA(3) , YSA(3) ,NXA(3) ,NYA(3) 

GI 

14 

15 

COMMON  /MATPAR/  ICASE , NBLOKS ,NPBLK , NLAST ,  NBLSYM .NPSYM , NLSYM , IMAT , I 

GI 

15 

16 

1CASX.NBBX.NPBX.NLBX.NBBL.NPBL.NLBL 

GI 

16 

17 

COMMON  /SMAT/  SSX(16,16) 

GI 

17 

18 

COMMON  /ZLOAD/  ZARRAY ( 300 ) , NLOAD , NLODF 

GI 

18 

19 

COMMON  /SAVE/  IP( 600) , KCOM , COM( 13,5), EPSR , SIG , SCRWLT , SCRWRT , FMHZ 

GI 

19 

20 

DATA  IGFL/20/ 

GI 

20 

21 

REWIND  IGFL 

GI 

21 

22 

READ  (IGFL)  N1 .NP.M1 ,MP .WLAM , FMHZ . IPSYM .KSYMP , IPERF .NRADL , EPSR , SIG 

GI 

22 

23 

1 , SCRWLT , SCRWRT , NLODF , KCOM 

GI 

23 

24 

N=N1 

GI 

24 

25 

M=M1 

GI 

25 

26 

N2=N1+1 

GI 

26 

27 

M2=M1  +1 

GI 

27 

28 

IF  (N1 .EQ.O)  GO  TO  2 

GI 

28 

29  C 

READ  SEG.  DATA  AND  CONVERT  BACK  TO  END  COORD.  IN  UNITS  OF  METERS 

GI 

29 

30 

REAO  (IGFL)  (X(I),I=1 . N1 ) . ( Y(I) , 1=1 ,N1 ) , (Z(I) .1*1 ,N1) 

GI 

30 

31 

READ  (IGFL)  (SI(I) , 1=1 ,N1 ) , (BI(I) , 1=1 ,N1 ) , (ALP(I) ,1=1 ,N1 ) 

GI 

31 

32 

REAO  (IGFL)  (BET(I),I=1,N1),(SALP(I),I=1,NI) 

GI 

32 

33 

READ  (IGFL)  ( IC0N1 ( I) , 1=1 ,N1 ) . ( IC0N2( I) . 1=1 , N1 ) 

GI 

33 

34 

READ  (IGFL)  ( ITAG(I) . 1=1 ,N1 ) 

GI 

34 

35 

IF  (NLODF. NE.O)  READ  (IGFL)  (ZARRAY(I) ,1=1 ,N1 ) 

GI 

35 

36 

DO  1  1=1  ,N1 

GI 

36 

37 

XI=X(I)*WLAM 

GI 

37 

38 

YI=Y(I)*WLAM 

GI 

38 

39 

ZI=Z(I)*WLAM 

GI 

39 

40 

DX=SI( I) * . 5*WLAM 

GI 

40 

41 

X(I)=XI-ALP(I)*DX 

GI 

41 

42 

Y(I)=YI-BET(I)*DX 

GI 

42 

43 

Z( I)=ZI-SALP( I) *DX 

GI 

43 

44 

SI(I)=XI+ALP( I) *DX 

GI 

44 

45 

ALP( I)=YI+BET( I) *DX 

GI 

45 

46 

BET(I)=ZI+SALP(I)*DX 

GI 

46 

47 

BI(I)=BI(I)*WLAM 

GI 

47 

48  1 

CONTINUE 

GI 

48 

49  2 

IF  (Ml .EO.O)  GO  TO  4 

GI 

49 

50 

J=LD-M1 +1 

GI 

50 

51  C 

READ  PATCH  DATA  AND  CONVERT  TO  METERS 

GI 

51 

52 

READ  (IGFL)  (X( I) , I=J . LD) , ( Y( I) . I=J . LD) . (Z(I) , I=J , LD) 

GI 

52 

53 

READ  (IGFL)  (SI( I) . I=J . LD) , ( BI( I) , I=J , LD) , ( ALP( I) , I=J , LD) 

GI 

53 

54 

READ  (IGFL)  (BET(I) , I=J , LD) . (SALP(I) . I=J , LD) 

GI 

54 

55 

REAO  (IGFL)  ( IC0N1 ( I) , I=J , LD) , ( IC0N2( I) , I=J , LD) 

GI 

55 

56 

READ  (IGFL)  ( ITAG( I) . I=J , LD) 

GI 

56 

57 

DX=WLAM*WLAM 

GI 

57 

58 

DO  3  I=J , LD 

GI 

58 

59 

X(I)=X(I) *WL AM 

GI 

59 

60 

Y(I)=Y(I) *WL AM 

GI 

60 

61 

Z(I)=Z(I) *WL AM 

GI 

61 

62  3 

BI(I)=BI(I)*DX 

GI 

62 

63  4 

READ  (IGFL)  ICASE . NBLOKS . NPBLK .NLAST . NBLSYM , NPSYM , NLSYM , IMAT 

GI 

63 

64 

IF  (IPERF. EQ. 2)  READ  (IGFL)  AR1 .AR2 ,AR3 . EPSCF , DXA . DYA , XSA . YSA . NXA . 

GI 

64 

GFIL 


65 

1 NYA 

GI 

65 

66 

NEQ=N1+2*M1 

GI 

66 

67 

NPEQ=NP+2*MP 

” 

GI 

67 

68 

NOP=NEQ/NPEQ 

GI 

68 

69 

IF  (N0P.GT.1)  READ  (IGFL)  ( (SSX( I , J ) , 1=1 , NOP ) , J 

=1  ,  NOP  ) 

GI 

69 

70 

READ  (IGFL)  ( IP( I) , 1=1 , NEQ) . COM 

GI 

70 

71 

C 

READ  MATRIX  A  AND  WRITE  TAPE13  FOR  OUT  OF  CORE 

GI 

71 

72 

IF  (ICASE.GT.2)  GO  TO  5 

GI 

72 

73 

IOUT=NEQ*NPEQ 

GI 

73 

74 

READ  (IGFL)  (CM( I) . 1=1 , IOUT) 

GI 

74 

75 

GO  TO  10 

GI 

75 

76 

5 

REWIND  13 

GI 

76 

77 

IF  (ICASE.NE.4)  GO  TO  7 

GI 

77 

78 

IOUT=NPEQ*NPEQ 

GI 

78 

79 

DO  6  K=1 .NOP 

GI 

79 

80 

READ  (IGFL)  (CM( J ) . J=1 , IOUT) 

GI 

80 

81 

6 

WRITE  (13)  (CM(J), J=1 .IOUT) 

GI 

81 

82 

GO  TO  9 

GI 

82 

83 

7 

I0UT=NPSYM*NPE0*2 

GI 

83 

84 

NBL2=2*NBLSYM 

GI 

84 

85 

DO  8  IOP=1 , NOP 

GI 

85 

86 

DO  8  1=1 .NBL2 

GI 

86 

87 

CALL  BLCKIN  (CM . IGFL . 1 , IOUT . 1 . 206 ) 

GI 

87 

88 

8 

CALL  BLCKOT  (CM. 1 3 , 1 . IOUT , 1 , 205) 

GI 

88 

89 

9 

REWIND  13 

GI 

89 

90 

10 

REWIND  IGFL 

GI 

90 

91 

C 

PRINT  N.G.F.  HEADING 

GI 

91 

92 

PRINT  16 

GI 

92 

93 

PRINT  14 

GI 

93 

94 

PRINT  14 

GI 

94 

95 

PRINT  17 

GI 

95 

96 

PRINT  18.  N1  .Ml 

GI 

96 

97 

IF  (NOP.GT.1)  PRINT  19,  NOP 

GI 

97 

98 

PRINT  20.  IMAT.ICASE 

GI 

98 

99 

IF  (ICASE.LT. 3)  GO  TO  1  1 

GI 

99 

100 

NBL2=NEQ*NPEQ 

GI 

100 

101 

PRINT  21 .  NBL2 

GI 

101 

102 

1 1 

PRINT  22.  FMHZ 

GI 

102 

103 

IF  (KSYMP.EQ.2.AND.IPERF.EQ. 1 )  PRINT  23 

GI 

103 

104 

IF  ( KSYMP . EQ. 2 . AND .IPERF.EQ.O)  PRINT  27 

GI 

104 

105 

IF  (KSYMP . EQ . 2 . AND .IPERF.EQ.2)  PRINT  28 

GI 

105 

106 

IF  ( KSYMP . EQ . 2 . AND . IPERF . NE . 1 )  PRINT  24.  EPSR.SIG 

GI 

106 

107 

PRINT  17 

GI 

107 

108 

DO  12  J=1 , KCOM 

GI 

108 

109 

12 

PRINT  15.  (COM(I, J) .1=1 .13) 

GI 

109 

110 

PRINT  17 

GI 

110 

111 

PRINT  14 

GI 

111 

112 

PRINT  14 

GI 

1  12 

113 

PRINT  16 

GI 

113 

114 

IF  (IPRT.EQ.O)  RETURN 

GI 

114 

115 

PRINT  25 

GI 

115 

116 

DO  13  1=1 ,N1 

GI 

116 

117 

13 

PRINT  26.  I,X(I).Y(I).Z(I).SI(I),ALP(I).BET(I) 

GI 

117 

118 

RETURN 

GI 

118 

119 

C 

GI 

119 

1 

FORMAT  { 5X , 50H* • •••••••••••••••••••••••••••••*• 

*  ,  3  GI 

1  20 

121 

GI 

121 

122 

15 

FORMAT  (5X.3H**  .13A6.3H  ••) 

GI 

122 

123 

16 

FORMAT  (////) 

GI 

123 

124 

17 

FORMAT  (5X,2H**.80X,2H**) 

GI 

124 

125 

18 

FORMAT  (5X.29H**  NUMERICAL  GREEN'S  FUNCTION , 53X . 2H» •./. 5X . 1 7H*» 

NO  GI 

125 

126 

1.  SEGMENTS  =. 14 . 1  OX . 1 3HN0 .  PATCHES  = . 14 , 34X . 2H»* ) 

GI 

126 

127 

19 

FORMAT  ( 5X . 27H**  NO.  SYMMETRIC  SECTIONS  = , 14 , 51 X . 2H»» ) 

GI 

127 

128 

20 

FORMAT  (5X.34H**  N.G.F.  MATRIX  -  CORE  STORAGE 

= , 17 , 23H  COMPLEX 

NU  GI 

128 

m 


cw 


CTO 


BW 


kjwvn 


HU* 


129  1MBERS,  CASE. 12. 16X.2H**)  GI  129 

130  21  FORMAT  (5X , 2H** , 1 9X , 1 3HMATRIX  SIZE  =,I7,16H  COMPLEX  NUMBERS , 25X . 2H  GI  130 

131  1**)  GI  131 

132  22  FORMAT  (5X,14H»»  FREQUENCY  =,E12.5,5H  MHZ . . 51 X , 2H»» )  GI  132 

133  23  FORMAT  (5X,17H»*  PERFECT  GROUND , 65X . 2H*» )  GI  133 

134  24  FORMAT  (5X.44H**  GROUND  PARAMETERS  -  DIELECTRIC  CONSTANT  =.£12.5.2  GI  134 

135  1 6X , 2H**  ,/ , 5X ,2H** ,21 X . 1 4HC0NDUCTIVITY  =.E12.5.8H  MHOS/M. . 25X , 2H»* )  GI  135 

136  25  FORMAT  (39X . 31 HNUMERICAL  GREEN'S  FUNCTION  DATA ./. 41 X , 27HCOORDINATE  GI  136 

137  IS  OF  SEGMENT  ENOS ,/,51 X ,8H(METERS) ,/,5X , 4HSEG. , 1 1 X , 1 9H -  END  ON  GI  137 

138  2E - .26X.19H - END  TWO - ,/ ,  6X  ,3HN0 .  ,  6X  ,  1 HX  ,  1  4X  ,  1 HY  ,  1  4X  ,  1  GI  138 

139  3HZ , 1 4X , 1 HX , 1 4X , 1 HY , 1 4X . 1  HZ )  GI  139 

140  26  FORMAT  ( 1 X . 17 , 6E1 5 . 6)  GI  140 

141  27  FORMAT  (5X.55H**  FINITE  GROUND.  REFLECTION  COEFFICIENT  APPROXIMAT  GI  141 

142  1ION.27X.2H**)  GI  142 

143  28  FORMAT  (5X.38H**  FINITE  GROUND.  SOMMERFELD  SOLUTION , 44X . 2H»* )  GI  143 

144  END  GI  144- 
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GFLD 

PURPOSE 

To  compute  the  electric  field  at  intermediate  distances  from  a  radiating 
structure  over  ground,  including  the  surface-wave  field  component. 

METHOD 

Approximate  expressions  for  the  field  of  a  horizontal  or  vertical  current 
element  over  a  ground  plane  were  derived  by  K.  A.  Norton  (ref.  2).  These 
expressions  are  used  to  evaluate  the  field  of  each  segment  in  a  structure  and 
the  components  summed  for  the  total  field  of  the  structure.  To  evaluate 
Norton's  expressions  for  segment  i,  a  local  coordinate  system  (x’»  y’,  z’)  is 
defined  (fig.  6a)  with  origin  on  the  ground  plane  and  the  vertical  z  axis 
passing  through  segment  i.  In  the  (x,  y,  z)  coordinate  system  (fig.  6  b)  the 
location  and  orientation  of  segment  i  are 

ri  *  xi*  +  yiy  +  zi* 

i  =  cos  a  cos  8  x  +  cos  a  sin  8  y  +  sin  a  z 

and  the  field  observation  point  is  at  (p,  <J> ,  z)  .  The  origin  of  the  primed 
coordinate  system  is  at  (x_^,  y^,  0)  in  the  umprimed  coordinates,  and  the  x’ 
axis  is  along  the  projection  of  the  segment  on  the  ground  plane. 

Norton's  expressions  give  the  electric  field  in  p',  <J>' ,  and  z'  components 
for  infinitesimal  current  elements  either  vertical  or  horizontal,  and  directed 
along  the  x'  axis.  To  evaluate  the  field  of  a  segment,  the  segment  current 
is  decomposed  into  horizontal  and  vertical  components,  and  the  fields  of  the 
infinitesimal  current  elements  are  integrated  over  the  segment.  Each  field 
component  for  the  infinitesimal  current  element  has  the  form 

EA(p',  <p’,  z')  =  F1(p',  <j>',  z'JexpMkR^  +  F2(p\  <j>',  z ' )  exp  (-j  kR2 )  , 

for 
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Segment  i 


t  ,  .  ,♦ 


where  F^  and  are  algebraic  functions  of  and  R2  and  can  be  considered 


constant  for  integration  over  the  segment  as  long  as  R^  and  are  much 


greater  than  the  segment  length.  To  integrate  the  exponential  factors  over 


the  segment,  R^  and  R^  are  approximated  as 


R!  3  R  “  Ri  *  Cri  +  i8) 


R2  s  R  -  •  (rj^  +  i's) 


where  R  -  |r|,  R1  -  R^/ | R^ | ,  R2  *  R2/|R2|;  r^,  i'  -  position  and  orientation 


of  image  of  segment  i,  and  s  ■  variable  of  length  along  the  segment  (s  ■  0  at 
segment  center) .  The  current  on  the  segment  is 


Ii(s)  ■  sin  ks  +  cos  ks  . 


With  F^  and  F?  considered  constant,  each  vector  component  of  the  field 


produced  by  segment  i  involves  an  Integral  of  the  form 


/-A/2A  I  (s)  r.  vs; 

E  *  F'  /  — ? —  exp(-jksod)  d  f  +  Fl  /  — 5; —  exp(-jksu)')  d(s/A)  , 

1  '-A/2A  A  A  A 


rA/2A  I,(s) 


where 


F|  -  A2F1  exp[-jk(R  -  Rx  • 


F'  -  A2F  exp[-jk(R  -  R2  •  r^) ] 


A  A 

u  -  -Rx  •  i 


u)’  -  -R2  •  i' 


A  -  segment  length 


The  integrals  can  be  evaluated  as 


/-A/2A  I  (s) 

G.  *  /  — \ exp  (-j 2tt  U)  s/A)  d  -r 

1  -A/2A  A  A 


r-FLD 


i  2  sin  ir  oj  d 

2irG,  -  -s - 

1  X  a) 


i  I  sin  [it  (1  -  w)dl  sin  [it  (1  +  oj)d] 


(1  -  o>) 


(1  +  w) 


_i  sin  [tt  (1  -  ti>)d]  sin  [it  (1  +  co) d  1  I 

X  (1  -  u>)  (1  +  o)  j 

where  d  -  A/X.  The  Integral  for  G-  (the  coefficient  of  F')  is  the  same  with 
r^  and  i  reflected  in  the  ground  plane.  The  terms  G.^  and  G^  and  other 
necessary  quantities  are  passed  to  subroutine  GWAVE  through  COMMON/GWAV/ . 

GWAVE  returns  the  field  components 

Ep  ■  p'  component  of  field  due  to  vertical  current  component 
v 

E^  ■  z  component  of  field  due  to  vertical  current  component 
Ep  ■  p'  component  of  field  due  to  horizontal  current  component 

■  (J)'  component  of  field  due  to  horizontal  current  component 

E^  *  z  component  of  field  due  to  horizontal  current  component 

The  common  factor  exp(-jkR)  occurring  in  F^  and  F^  is  omitted  from  the  field 
components  and  Included  in  the  total  field  after  summation. 

These  field  components  are  then  combined  to  form  the  total  field  in 
x,  y,  z  components  and  summed  for  each  segment.  The  field  is  finally  converted 
to  r,  6,  4>  components  in  a  spherical  coordinate  system  coinciding  with  the 
x,  y,  z  coordinate  system. 

The  approximations  involved  in  the  calculation  of  the  surface  wave  are 

2 

valid  to  second  order  in  u  ,  where 


k  ■  wave  number  in  free  space 
k^  ■  wave  number  in  ground  medium 

The  approximations  are  valid  for  practical  ground  parameters.  To  ensure  that 
the  expressions  are  not  used  in  an  invalid  range,  however,  the  surface  wave  is 
not  computed  if  |u|  is  greater  than  0.5.  Rather,  subroutine  FFLD  is  called, 
and  the  resulting  space  wave  is  multiplied  by  the  range  factor  exp(-jkR)/ 

(R/X) .  The  radial  field  component  will  be  zero  in  this  case.  FFLD  is  also 
called  if  R/X  is  greater  than  10  ,  or  if  there  is  no  ground  present. 
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SYMBOL  DICTIONARY 


A  -  coefficient  of  A^/A  in  27^  and  2ttG 2 

ABS  *  external  routine  (absolute  value) 

ARG  -  argument  of  exp(  )  for  phase  factor 
ATAN  *  external  routine  (arctangent) 

B  -  coefficient  of  B^/A  in  2irG^  and  2irG^ 

BOO  -  sin  (BOT) /BOT 

BOT  -  ir(l  -  <ri)d 

C  ■  coefficient  of  C^/A  in  2irG^  and  2irG2 

CAB (I)  *  cos  a  cos  @  for  segment  I 

CABS  -  external  routine  (magnitude  of  complex  number) 

CALP  ”  cos  a 

CBET  -  cos  6 

CIX 

CIY  ■  x,  y,  z  components  in  summation  for  field 
CIZ 

CMP LX  »  external  routine  (forms  complex  number) 

COS  -  external  routine  (cosine) 

CPH  ”  cos  <t>* 

DX 

A 

DY  ■  x,  y,  z  components  of  i 

DZ 

EL  ■  TTd 

EPH  ■  E,£  or  E^  cos  a  (4>*  component  of  total  field  of  segment  i) 

EPI  ■  component  of  field  of  structure 

ERD  ■  R  component  of  field  of  structure 

ERH  ■  E^  and  p'  component  of  total  field  of  segment  i 

ERV  -  E^ 

P 

ETH  ■  0  component  of  field  of  structure 

EX  ■  x  component  of  field  for  segment  i 

EXA  ■  phase  factor  at  GD30  and  GDI 30: 

Gj^  exp(jkR1  •  r^  or  G2  exp(jkR2  •  Tp  at  GD109 

EY  =  y  component  of  field  for  segment  i 

EZH  »  E  and  z  component  of  total  field  of  segment  i 


FFLD  ■  external  routine  (computes  space  wave) 

GWAVE  -  external  routine  (computes  E^,  E^  ,...) 

I  *D0  loop  index  (i) 

K  *D0  loop  index  (loop  over  segment  and  image) 

KSYMP  ■  1  if  ground  is  present;  0  otherwise 
OMEGA  •  u> 

PHI  -  <t> 

A 

PHX  -  x  component  of  4> 

PHY  -  y  component  of  £ 

PI  -  7T 

R  -  R/X 

RFL  ■  sign  factor  to  reflect  segment  coordinates  in  ground 

RHO  -  p/X 

RHP  -  p’/X 

RHS  -  (p'/X)2 

RHX  •  x  component  of  p' 

RHY  •  y  component  of  p’ 

RI  ■  imaginary  part  of  2ttG1  or  2ttG2 
RIX  -  x  component  of  R^/X  or  R2/X 

RIY  -  y  component  of.  R^/X  or  R2/X 

RIZ  -  z  component  of  R^/X  or  R0/X 

RNX 

RNY  -  x,  y,  z  components  of  R^  or  R2  or  R 
RNZ 

RR  •  real  part  of  2ttG^  or  2ttG 2 
RX  -  x  component  of  p/X 

RXYZ  -  Rx/X  or  R2/X  (for  s  -  0) 

RY  ■  y  component  of  p/X 

RZ  -  z/X 

SAB(I)  -  cos  a  sin  3 

SBET  -  sin  6 

SILL  ■  irdu) 

SIN  »  external  routine  (sine) 

SPH  -  sin  4>' 


GFLD 


SQRT 

■  external  routine  (square  root) 

THET 

■  0  in  spherical  coordinate  system 

THX 

A 

■  x  component  of  9 

THY 

A 

•  y  component  of  0 

THZ 

■  z  component  of  6 

TOO 

-  sin  (TOP) /TOP 

TOP 

■  ir(l  +  ui)d 

TP 

-  2tt 

U 

■  u 

ux 

■  u 

U2 

-  U2 

XXI 

-  Gx  expCJk^  •  r±) 

XX2 

“  G2  exp  (jkR2  •  rp 

CONSTANTS 

l.E-20 

■  tolerance  in  test  for  zero 

l.E-7 

■  tolerance  in  test  for  zero 

l.E-6 

*  tolerance  in  test  for  zero 

0.5 

*  upper  limit  for  |u| 

3.141592654  -  n 
6.283185308  -  2tt 

l.E+5  *  upper  limit  for  RA 
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SUBROUTINE  GFLD  (RHO . PHI , RZ . ETH . EPI , ERD , UX , KSYMP) 

GFLD  COMPUTES  THE  RADIATED  FIELD  INCLUDING  GROUND  WAVE. 


COMPLEX  CUR , EPI .CIX ,CIY , CIZ , EX A , XXI , XX2 , U , U2 , ERV , EZV , ERH , EPH 
COMPLEX  EZH.EX.EY.ETH.UX.ERO 

COMMON  /DATA/  LD.N1 , N2,N,NP,M1 , M2 . M , MP . X ( 300 ) ,Y(300) ,Z(300) , SI (300 
1 ) ,BI(300) . ALP( 300) , BET ( 300 ) .ICON 1 (300)  .  ICON2(300) , ITAG(300) , ICONX( 
2300) .WLAM.IPSYM 


GD 

GD 

GD 

GD 

GD 

GD 

GD 

GD 

GD 


10 

COMMON  /ANGL/  SALP(300) 

GD 

10 

11 

COMMON  /CRNT/  AIR(300) ,AII(300) , BIR(300) ,BII(300) ,CIR(300) 

,CII(300  GO 

1 1 

12 

1 ) , CUR (900) 

GD 

12 

13 

COMMON  /GWAV/  U.U2.XX1 .XX2.R1 .R2.ZMH.ZPH 

GD 

13 

14 

DIMENSION  CAB( 1 ) ,  SAB(1) 

GD 

14 

15 

EQUIVALENCE  (CAB( T) . ALP( 1 ) ) .  (SAB( 1 ) ,BET( 1 ) ) 

GD 

15 

16 

DATA  PI . TP/3 . 1 41 592654 . 6 . 283185308/ 

GD 

16 

17 

R=SQRT( RHO*  RHO+RZ • RZ ) 

GD 

17 

18 

IF  (KSYMP. EQ.1)  GO  TO  1 

GD 

16 

19 

IF  (CABS(UX).GT. .5)  GO  TO  1 

GD 

19 

20 

IF  (R.GT.1 . ES)  GO  TO  1 

GD 

20 

21 

GO  TO  4 

GD 

21 

22 

c 

GD 

22 

23 

c 

COMPUTATION  OF  SPACE  WAVE  ONLY 

GD 

23 

24 

c 

GD 

24 

25 

1 

IF  (RZ.LT.1 . E-20)  GO  TO  2 

GD 

25 

26 

THET=ATAN(RHO/RZ) 

GD 

26 

27 

GO  TO.  3 

GD 

27 

28 

2 

THET=PI* . 5 

GD 

28 

29 

3 

CALL  FFLD  (THET . PHI . ETH . EPI) 

GD 

29 

30 

ARG=-TP*R 

GD 

30 

31 

EXA=CMPLX(COS( ARG) , SIN( ARG) )/R 

GD 

31 

32 

ETH=ETH*EXA 

GD 

32 

33 

EPI=EPI*EXA 

GD 

33 

34 

ER0=(0. .0.) 

GD 

34 

35 

RETURN 

GD 

35 

36 

C 

GD 

36 

37 

C 

COMPUTATION  OF  SPACE  AND  GROUND  WAVES. 

GD 

37 

38 

c 

GD 

38 

39 

4 

U=UX 

GD 

39 

40 

U2=U*U 

GD 

40 

41 

PHX=-SIN(PHI) 

GD 

41 

42 

PHY=COS(PHI) 

GD 

42 

43 

RX=RHO*PHY 

GD 

43 

44 

RY=-RHO*PHX 

GD 

44 

45 

CIX=(0. ,0. ) 

GD 

45 

46 

CIY=(0 . ,0. ) 

GD 

46 

47 

CIZ=(0. .0.) 

GD 

47 

48 

c 

GD 

48 

49 

c 

SUMMATION  OF  FIELO  FROM  INDIVIDUAL  SEGMENTS 

GD 

49 

50 

c 

GD 

50 

51 

00  17  1=1  ,N 

GD 

51 

52 

DX=CAB( I) 

GD 

52 

53 

DY=SAB(I) 

GD 

53 

54 

DZ=SALP( I ) 

GD 

54 

55 

RIX=RX-X(I) 

GD 

55 

56 

RIY=RY-Y(I) 

GD 

56 

57 

RHS=RIX*RIX+RIY*RIY 

GD 

57 

58 

RHP=SQRT(RHS) 

GD 

58 

59 

IF  (RHP.LT.1 . E-6)  GO  TO  5 

GD 

59 

60 

RHX=RIX/RHP 

GD 

60 

61 

RHY=RIY/RHP 

GD 

61 

62 

GO  TO  6 

GD 

62 

63 

5 

RHX=1 . 

GD 

63 

64 

RHY=0 . 
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GD 

64 
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GFLD 


65 

6 

CALP=1 . -DZ*DZ 

GD 

65 

66 

IF  (CALP.LT.1 . E-6)  GO  TO  7 

GD 

66 

67 

CALP=SQRT(CALP) 

GD 

67 

68 

CBET=DX/CALP 

GD 

68 

69 

SBET=0Y/CALP 

GD 

69 

70 

CPH=RHX*CBET+RHY*SBET 

GD 

70 

71 

SPH=RHY*CBET-RHX*S8ET 

GD 

71 

72 

GO  TO  8 

GD 

72 

73 

7 

CPH=RHX 

GD 

73 

74 

SPH=RHY 

GD 

74 

75 

8 

EL=PI*SI( I) 

GD 

75 

76 

RFL=-1 . 

GD 

76 

77 

C 

GD 

77 

78 

C 

INTEGRATION  OF  (CURRENT)*(PHASE  FACTOR)  OVER  SEGMENT  AND  IMAGE  FOR 

GD 

78 

79 

C 

CONSTANT,  SINE,  AND  COSINE  CURRENT  DISTRIBUTIONS 

GD 

79 

80 

C 

GD 

80 

81 

00  16  K=1 .2 

GD 

81 

82 

RFL=-RFL 

GD 

82 

83 

RIZ=RZ-Z(I)*RFL 

GD 

83 

84 

RXYZ=SQRT(RIX*RIX+RIY*RIY+RIZ*RIZ) 

GD 

84 

85 

RNX=RIX/RXYZ 

GD 

85 

86 

RNY=RIY/RXYZ 

GD 

86 

87 

RNZ=RIZ/RXYZ 

GD 

87 

88 

0MEGA=-( RNX • DX+RN Y  *D Y+RNZ • DZ • R  F  L ) 

GD 

88 

89 

SILL=OMEGA*EL 

GD 

89 

90 

TOP=EL+SILL 

GD 

90 

91 

BOT=EL-SILL 

GD 

91 

92 

IF  (ABS(OMEGA) . LT . 1 . E-7)  GO  TO  9 

GD 

92 

93 

A=2. *SIN(SILL)/OMEGA 

GD 

93 

94 

GO  TO  10 

GD 

94 

95 

9 

A=(2.-OMEGA*OMEGA*EL*EL/3.)*EL 

GD 

95 

96 

10 

IF  (ABS(TOP).LT.I .E-7)  GO  TO  1 1 

GD 

96 

97 

TOO=SIN( T0P)/T0P 

GD 

97 

98 

GO  TO  12 

GD 

98 

99 

11 

TOO=1 .-TOP* TOP/6. 

GD 

99 

100 

12 

IF  (ABS(BOT).LT.I .E-7)  GO  TO  13 

GD 

100 

101 

BOO=SIN(BOT)/BOT 

GD 

101 

102 

GO  TO  14 

GD 

102 

103 

13 

B00=1 .-BOT*BOT/6 . 

GD 

103 

104 

14 

B=EL*(BOO-TOO) 

GD 

104 

105 

C=EL*(BOO+TOO) 

GD 

105 

106 

RR=A*AIR( I)+B*BII( I)+C*CIR( I) 

GD 

106 

107 

RI=A*AII(I)-B*BIR(I)+C*CII(I) 

GD 

107 

108 

ARG=TP*(X( I) *RNX+Y( I) *RNY+Z( I) *RNZ*RFL) 

GD 

108 

109 

EXA=CMPLX(COS( ARG) , SIN( ARG) ) *CMPLX( RR , RI)/TP 

GD 

109 

110 

IF  (K.EQ.2)  GO  TO  15 

GD 

110 

1 1 1 

XX1=EXA 

GD 

1 1 1 

112 

R1=RXYZ 

GD 

112 

113 

ZMH=RIZ 

GD 

113 

114 

GO  TO  16 

GD 

114 

115 

15 

XX2=EXA 

GD 

115 

116 

R2=RXYZ 

GD 

116 

117 

ZPH=RIZ 

GD 

117 

118 

16 

CONTINUE 

GD 

118 

119 

C 

GD 

119 

120 

C 

CALL  SUBROUTINE  TO  COMPUTE  THE  FIELD  OF  SEGMENT  INCLUDING  GROUND 

GD 

120 

121 

C 

WAVE. 

GD 

121 

122 

C 

GD 

122 

123 

CALL  GWAVE  ( ERV , EZV , ERH , EZH . EPH) 

GD 

123 

124 

ERH=ERH*CPH*CALP+ERV*DZ 

GD 

124 

125 

EPH=EPH*SPH*CALP 

GD 

125 

126 

EZH=EZH*CPH*CALP+EZV*DZ 

GD 

126 

127 

EX=ERH*RHX-EPH*RHY 

GD 

127 

128 

EY=ERH*RHY+EPH*RHX 

GD 

128 
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129 

CIX=CIX+EX 

GO  129 

130 

CIY=CIY+EY 

GO  130 

131  17 

CIZ=CIZ+EZH 

GO  131 

132 

ARG=-TP*R 

GO  132 

133 

EXA=CMPLX(COS( ARG) , SIN( ARG) ) 

GD  133 

134 

CIX=CIX*EXA 

GO  134 

1 35 

CIY=CIY*EXA 

GO  135 

136 

CIZ=CIZ*EXA 

GD  136 

137 

RNX=RX/R 

GD  137 

138 

RNY=RY/R 

GO  138 

139 

RNZ=RZ/R 

GO  139 

140 

THX=RNZ*PHY 

GO  140 

141 

THY=-RNZ*PHX 

GD  141 

142 

THZ=-RHO/R 

GO  142 

143 

ETH=CIX»THX+CIY*THY+CIZ*THZ 

GO  143 

144 

EPI=CIX*PHX+CIY*PHY 

GD  144 

145 

ERD=CIX*RNX+CIY*RNY+CIZ*RNZ 

GO  145 

146 

RETURN 

GO  146 

147 

END 

GO  147- 

GFOUT 


GFOUT 

PURPOSE 

To  wrice  Che  NGF  file. 


METHOD 

The  concencs  of  Che  COMMON  blocks  in  GFOUT  are  wriccen  Co  file  20.  If 
ICASE  is  3  or  5  Che  blocks  of  Che  LU  decomposicion  of  maCrix  A  are  on  file  13 
in  ascending  order  and  on  file  14  in  descending  order.  BoCh  files  are  wriccen 
Co  file  20. 

SYMBOL  DICTIONARY 

IGFL  *  NGF  file  number 

IOUT  *  number  of  elemenCs  in  maCrix 

NEQ  *  order  of  macrix  A 

NOP  »  number  of  symmeCric  seccions 

NPEQ  *  number  of  unknowns  for  a  symmeCric  seccion 


GFOUT 


SUBROUTINE  GFOUT 


WRITE  N.G.F.  FILE 


COMPLEX  CM , SSX , ZRATI , ZRATI2 , T 1 , ZARRAY , AR1 , AR2 , AR3 , EPSCF , FRATI 
COMMON  /DATA/  LD ,N1 ,N2 , N , NP ,M1 , M2 , M , MP , X(300) , Y ( 300) , Z(300) , SI ( 300 
1 ) ,81(300) , ALP (300) , BET (300) , IC0N1 (300) , IC0N2( 300) , ITAG( 300 ) , ICONX( 
2300) .WLAM.IPSYM 
COMMON  /CMB/  CM(4000) 

COMMON  /ANGL/  S ALP (300) 

COMMON  /GNO/ZRATI , ZRATI2 . FRATI , CL , CH , SCRWL , SCRWR . NRADL , KSYMP , IFAR , 
1IPERF.T1 ,T2 

COMMON  /GGRID /  AR1 ( 1 1 , 1 0 . 4) . AR2( 1 7 . 5 . 4) , AR3(9 , 8 . 4) , EPSCF , DXA(3) , DY 
1A(3) ,XSA(3) ,YSA(3) ,NXA(3) ,NYA(3) 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK , NLAST , NBLSYM , NPSYM , NLSYM , IMAT , I 
1 CASX . NBBX . NPBX . NLBX . NBBL , NPBL . NLBL 
COMMON  /SMAT/  SSX (16, 16) 

COMMON  /ZLOAD/  ZARRAY(300) , NLOAD.NLODF 

COMMON  /SAVE/  IP ( 600) , KCOM , COM( 13,5), EPSR , SIG , SCRWLT , SCRWRT , FMHZ 
DATA  IGFL/20/ 

NEQ=N+2»M 

NPEQ=NP+2*MP 

NOP=NEQ/NPEQ 

WRITE  (IGFL)  N , NP , M , MP , WLAM . FMHZ , IPSYM , KSYMP , IPERF , NRADL , EPSR , SIG , 
1 SCRWLT . SCRWRT , NLOAD . KCOM 
IF  (N.EQ.O)  GO  TO  1 

WRITE  (IGFL)  (X(I),I=1 , N) , ( Y(I) . 1=1 ,N) . (Z( I) . 1=1 ,N) 

WRITE  (IGFL)  (SI(I),I=1 ,N) , (BI( I) , 1=1 . N) . (ALP( I) . 1=1 ,N) 

WRITE  (IGFL)  (BET(I) ,1=1 ,N) ,(SALP(I) .1=1 ,N) 

WRITE  (IGFL)  ( IC0N1 ( I) , 1=1 , N) ,  ( IC0N2( I) ,1=1 ,N) 

WRITE  (IGFL)  ( ITAG( I) , 1=1 ,N) 

IF  (NLOAD. GT.O)  WRITE  (IGFL)  (ZARRAY(I) ,1=1 ,N) 

IF  (M.EQ.O)  GO  TO  2 
J=LD-M+1 

WRITE  (IGFL)  (X(I) , I=J , LD) ,(Y(I) , I=J . LD) , ( Z( I ) , I=J , LD) 

WRITE  (IGFL)  (SI( I) , I=J ,LD),(BI(I), I=J ,LD),(ALP(I), I=J , LD) 

WRITE  (IGFL)  ( BET( I)  , I=J ,LD),(SALP(I). I=J . LD) 

WRITE  (IGFL)  ( IC0N1 ( I) , I=J , LD) . ( IC0N2( I) . I=J , LD) 

WRITE  (IGFL)  ( ITAG( I) , I=J , LD) 

WRITE  (IGFL)  ICASE, NBLOKS, NPBLK, NLAST, NBLSYM. NPSYM, NLSYM, IMAT 
IF  (IPERF. EQ. 2)  WRITE  (IGFL)  AR1  , AR2 , AR3 , EPSCF , DXA , DYA , XSA , YSA ,NXA 
1  ,NYA 

IF  (N0P.GT.1)  WRITE  (IGFL)  ( (SSX( I . J ) . 1=1 .NOP) , J=1 , NOP) 

WRITE  (IGFL)  (IP(I),I=1 ,NEQ),COM 
IF  (ICASE. GT. 2)  GO  TO  3 
IOUT=NEQ»NPEQ 

WRITE  (IGFL)  (CM(I) , 1=1 , IOUT) 

GO  TO  12 

IF  (ICASE. NE. 4)  GO  TO  5 

REWIND  13 

I=NPEQ*NPEQ 

DO  4  K=1 .NOP 

READ  (13)  (CM(J) . J=1 ,1) 

WRITE  (IGFL)  (CM( J ) , J=1 , I) 

REWIND  13 
GO  TO  12 
REWIND  13 
REWINO  14 

IF  (ICASE. EQ. 5)  GO  TO  8 
I0UT=NPBLK*NEQ»2 
DO  6  1=1, NBLOKS 

CALL  BLCKIN  (CM . 1 3 , 1 , IOUT , 1 , 201 ) 

CALL  BLCKOT  (CM, IGFL . 1 , IOUT , 1 , 202) 

DO  7  1=1 .NBLOKS 


GO 

1 

GO 

2 

GO 

3 

GO 

4 

GO 

5 

GO 

6 

GO 

7 

GO 

8 

GO 

9 

GO 

10 

GO 

1 1 

GO 

12 

GO 

13 

GO 

14 

GO 

15 

GO 

16 

GO 

17 

GO 

18 

GO 

19 

GO 

20 

GO 

21 

GO 

22 

GO 

23 

GO 

24 

GO 

25 

GO 

26 

GO 

27 

GO 

28 

GO 

29 

GO 

30 

GO 

31 

GO 

32 

GO 

33 

GO 

34 

GO 

35 

GO 

36 

GO 

37 

GO 

38 

GO 

39 

GO 

40 

GO 

41 

GO 

42 

GO 

43 

GO 

44 

GO 

45 

GO 

46 

GO 

47 

GO 

48 

GO 

49 

GO 

50 

GO 

51 

GO 

52 

GO 

53 

GO 

54 

GO 

55 

GO 

56 

GO 

57 

GO 

58 

GO 

59 

GO 

60 

GO 

61 

GO 

62 

GO 

63 

GO 

64 

GFOUT 
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65 

CALL  BLCKIN  (CM, 1 4 , 1 , I0UT . 1 , 203) 

GO 

65 

66 

7 

CALL  BLCKOT  (CM . IGFL , 1 , IOUT , 1 . 204) 

GO 

66 

67 

GO  TO  12 

GO 

67 

68 

a 

IOUT=NPSYM»NPEQ*2 

GO 

68 

69 

DO  11  IOP=1,NOP 

GO 

69 

70 

00  9  1=1 , NBLSYM 

GO 

70 

71 

CALL  BLCKIN  (CM. 1 3 . 1 , I0UT . 1 ,205) 

GO 

71 

72 

9 

CALL  BLCKOT  (CM . IGFL , 1 . IOUT , 1 , 206) 

GO 

72 

73 

DO  10  1=1 .NBLSYM 

GO 

73 

74 

CALL  BLCKIN  (CM, 1 4, 1 , IOUT, 1 . 207) 

GO 

74 

75 

10 

CALL  BLCKOT  (CM , IGFL . 1 , IOUT . 1 .208) 

GO 

75 

76 

11 

CONTINUE 

GO 

76 

77 

REWINO  13 

GO 

77 

78 

REWIND  14 

GO 

78 

79 

12 

REWIND  IGFL 

GO 

79 

80 

PRINT  13,  IGFL, IMA T 

GO 

80 

81 

RETURN 

GO 

81 

82 

C 

GO 

82 

83 

13 

FORMAT  (///, 44H  ••••NUMERICAL  GREEN'S  FUNCTION  FILE  ON  TAPE, 13, 5H 

GO 

83 

84 

1 ••••,/, 5X , 1 6HMATRIX  STORAGE  -.I7.16H  COMPLEX  NUMBERS,///) 

GO 

84 

85 

END 

GO 

85- 
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WTO 


TO 


GH 


PURPOSE 

To  compute  the  function  that  is  numerically  integrated  for  the  near  H 
field  of  a  segment. 


METHOD 


The  value  returned  by  GH  is 


G  =  — +  — exp(-jkr)  , 

(kr)J  (kr) 


where 


r  -  [p’2  +  (z  -  z')2]1/2 

p'  =  p  coordinate  of  the  field  observation  poiut  in  a  cylindrical  coor¬ 
dinate  system  with  origin  at  the  center  of  the  source  segment  and 
z  axis  oriented  along  the  source  segment 
z'  =  z  coordinate  of  the  field  observation  point  in  the  cylindrical 
coordinate  system 

z  =  z  coordinate  of  the  integration  point  on  the  source  segment 
k  =  2ir/X 

SYMBOL  DICTIONARY 

CKR  =  cos  kr  / 

HR  =  real  part  of  G 

HI  =  imaginary  part  of  G 

R  kr 

RHKS  =  (kp')2 

RR2  =  1/ (kr) 2 

RR3  =  1/ (kr)3 

RS  =  (kr)2 

SKR  =  sin  kr 
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1 

2 

3 

A 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 


SUBROUTINE  GH  (ZK.HR.HI) 

INTEGRAND  FOR  H  FIELD  OF  A  WIRE 

COMMON  /TMH/  ZPK.RHKS 

RS=ZK-ZPK 

RS=RHKS+RS*RS 

R=SQRT(RS) 

CKR=COS(R) 

SKR=SIN(R) 

RR2=1 ./RS 
RR3=RR2/R 

HR=SKR*RR2+CKR*RR3 

HI=CKR*RR2-SKR*RR3 

RETURN 

END 


GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 

GH 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 
14- 


fir 
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GWAVE 


GWAVE 


PURPOSE 


To  compute  the  components  of  electric  field  due  to  an  electric  current 
element  over  a  ground  plane  at  Intermediate  distances,  including  the  surface 


wave  field. 


METHOD 


Approximate  expressions  for  the  electric  field  of  a  vertical  or 
horizontal  infinitesimal  current  element  above  a  ground  plane,  including 
surface  wave,  were  derived  by  K.  A.  Norton  (ref.  2).  The  geometry  is  shown 
in  figure  6a  for  a  current  element  at  height  a  above  the  ground  plane  and 
field  observation  point  at  p.  The  current  element  is  located  on  the  z'  axis, 
and  the  horizontal  current  element  is  directed  along  the  x'  axis.  The 
vertical  current  element  produces  z'  and  p’  field  components  given  by 


v  jnldJl  2  .  . 

E  ■  -  —  cos  lU’ 

z  2A 


exp (“jkR  ) 


,)  2  exp (-jkR  ) 

—  +  R  cos  \b  - - - — 

v  Y  R2 


2  exp  (-jkR  ) 

+  (1  "  V  cc  /  *  F  - - - — 


/  2  2 

+  u  a  1  -  u  cos  ip  sin  ^  2 


exp(-jkR2) 


exp(-jkR^) 


(1-3  sin  4;') 


exp(-jkR2) 


(jkR2)‘ 


(1-3  sin  ip) 


OWAVE 


v  inldJl  exp(-jkR  ) 

Ep  *  -*2^  sin  ip'  cos  ip’  - - - +  sin  tp  cos  \p 


exp(-jkR2) 


/  ;  2  exp(-jkR-) 

-  cos  ip(l  -  Ry)  u  1  -  u  cos  ip  F  - - - 


-  sin  ip  cos  ip  (1  -  R^) 


exp(-jkR2) 


i  \  exp(-jkR  ) 

TkR"  +  - 2  - 5 - 

jkRl  (jkR1)2/  R1 


V2  2  exp (-j kR„) 

1  -  u  cos  i|>  (1  -  R  )  - 2 - 

V  2jkR2 


+  3  sin  \p  cos  t|) 


^2  (jkR  )2/ 


exp(-jkR2) 


where 


1  -  j  /nv  exp(-w)  erfc 


erfc(z)  ■  1  -  erf(z) 


Z 

erf(z)  ■  2//n  j  exp(-t  )  dt  (error  function) 
Jo 

w  -  Ap-j/Cl  -  Rv)2 

p^  -  -jkR2u2  (1  -  u2  cos2  ip)/( 2cos2V) 


2 

sin  \p 
sin  ip’ 


sin  \p  -  u  *1  -  u  cos 


sin  ip  +  u  \Zl~-- u^- co ^~ip 


wave  number  in  free  space 
wave  number  in  lower  medium 
(z  +  a)/R2 
(z  -  a) /R 
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r^uwwvjyv 


T?h  _  -JnldA  .  Af  J  2  lf  eXp(_jkR1)  2  exp(-jkR,) 

Ep  2X  COS  ♦  sin  *  - 5 - —  ~  R.  sin  ip  - = - 2_ 


-  (1  -  u2cos^)  U2  (1  -  R  ) 


exp(-jkR-) 


jkRl  (jkR^2 


+  IkR.  +TT7~2  (1  -  3  cos  V) 


2  exp  (-j  kR  ) 

r)  — =— i-  ' 

Ri 


jl^2  +  (jkR  )2)  (1  "  3  COs2  W  1  "  “2  (1  +  V  -u2(1-Rv)F 


exp (-jkR  ) 

x  - S - +  u  cos  ip  (1  -  r  ) 

*S  v 


X  f(u2(1  ”  u2  cos2  *P)  ~  sin2  ip  + 


('  +  ^ 2 ) 

~)  -  — 
jkRzJ  jkR2 


exp(-jkR2) 


„h  _  Jnid*  •  .  ..  e*P(-jWS)  exp(-jkR  ) 

E*  a  s1”*  — ^--*h — sH" 


%  *2  l  3*V 

/,  .  1  Y.  2  .  2  exp(-jkR  ) 

’  l1  +  Tk*:)11  -  u  (1  +  Rv>  -  “  a  -  Rv)f] - t1- 

\  V  v  jkR2 


u  (1  -  R  )  / 2  \ 

T+-  (1  -  u  cos  *)  -  si„2  t  + 


exp(-jkR2) 
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where 

G 


v 


*h 


[1  -  j  /i(v  exp(-v)  erfc  (j  fv)  ] , 


4ql7  (1  +  Rh)2 

-jkA2  (1  -  u2  cos2  *|i)/(2u2  cos2  \|0 
^1  -  u2  cos2  <1>  -  u  sin  \|) 
vl-u2  cos  2<1<  +  u  sin  i|> 


The  approximations  in  these  expressions  are  valid  Cor  R^  and  R2 

,  2 

greater  than  about  a  wavelength  and  to  second  order  in  u  .  In  each 

equation,  the  first  term  represents  the  direct  space  wave  Cield  of  the  current 

element,  the  second  term  is  the  space  wave  Cield  reflected  from  the  ground, 

and  the  following  higher  order  terms  involving  F  and  G  represent  the  ground 

wave.  It  may  be  noted  that  the  coefficients  R  and  R.  are  the  Fresnel 

v  n 

reflection  coefficients  for  vertical  and  horizontal  polarization,  respectively. 

To  obtain  the  field  due  to  a  structure,  these  expressions  are  integrated 
over  each  segment'  and  the  fields  of  the  segments  are  summed  in  subroutine 
GFLD.  For  integration,  R^  and  R2  are  the  distances  from  the  integration 
point  i  on  the  segment  to  point  p.  Since  R^  and  R2  are  assumed  large 
compared  to  the,  segment  length,  R^,  R^,  and  i|>'  are  considered 
constant  during  integration  over  the  segment  except  where  jkR^  and  jkR2 
occur  in  exponential  functions.  Thus,  if  s  represents  distance  along  the 
segment,  the  integral  of  each  expression  over  the  segment  is  obtained  by 
replacing  (idJt/X2)  expC-jkR^  and  (idJl/A2)  exp(-jkR2)  by  XXI 
and  XX2  from  subroutine  GFLD.  A  factor  of  exp(-jkR)  is  omitted  from  the 
fields  and  is  included  after  summation  in  GFLD.  Including  a  factor  of 

9 

l/X  in  XXI  and  XX2  makes  a  factor  of  X  available  to  normalize  R^  and 
R^  in  the  denominators  of  the  field  expressions.  The  factors  sin  <J>'  or 
cos  <p'  are  omitted  from  the  fields  due  to  a  horizontal  current  element  in 
GWAVE  and  are  supplied  later. 
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SYMBOL  DICTIONARY 


CPP  ■  cos 

CPPP  ■  cos 

CPPP2  -  cos2 
2 

CPP2  *  cos  <|j 

ECON  *  — j n/ 2  (n  *  impedance  of  free  space) 

EPH  -  E^/sin  <j>' 

<P 

ERH  -  Eh/cos  <p’ 

P 

ERV  -  e! 

P 

SZH  -  Eh/cos  <J>' 

z 

EZV  -  E}[ 

F  -  F 

FJ  -  j  -  /^I 

G  -  G 

OMR  =»  I  -  Ry 

PI  -IT 

PI  -  P1 

QI  -  qL 

RH  -  Rh 

RK1  »  -jkRl 

RK2  -  -jkR2 

RV  »  Ry 

R1  -  Rj^/A 

R2  -  R2/A 

SPP  *  sin 

SPPP  ■  sin 

SPPP2  -  sin2  i|>' 

SPP2  -  sin2  \J> 

TPJ  -  2lTj 

TI  ■  I  -  u2  cos2  \|) 

T2  -  /fl 

T3  -  -U/(jkR1)  +  l/(jkRL)2] 


-U/(jkR2)  +  l/(jkR2r] 
u 

2 

u 

V 

w 

XXl/U/X) 

XX2/(R/X) 

G1  expCjkRi  •  ri) 

G2  exp(jkR2  .  r^') 


first,  second,  seventh  term  in  each  field  expression 


z  -  a 
z  +  a 


CONSTANTS 


(0.,  1.) 

“  j  “  / 

(0.,  6.2831853) 

=■  2TIj 

(0.,  -188.363) 

-  -jn/2 

3.1415926 

-  IT 
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1 

SUBROUTINE  GWAVE  ( ERV , EZV , ERH , EZH . EPH) 

GW 

1 

2  C 

GW 

2 

3  C 

GWAVE  COMPUTES  THE  ELECTRIC  FIELD,  INCLUDING  GROUND  WAVE,  OF  A 

GW 

3 

4  C 

CURRENT  ELEMENT  OVER  A  GROUND  PLANE  USING  FORMULAS  OF  K . A .  NORTON 

GW 

4 

5  C 

(PROC.  IRE.  SEPT.,  1937,  PP . 1 203 , 1 236 . ) 

GW 

5 

6  C 

GW 

6 

7 

COMPLEX  F J , TP J ,U2 ,U , RK1 ,RK2,T1 ,T2,T3,T4,P1 , RV ,OMR ,W, F ,Q1 .RH.V.G.XR 

GW 

7 

8 

1 1 .XR2.X1 , X2 , X3 , X4 , X5 , X6 , X7 , EZV , ERV , EZH , ERH , EPH , XX 1 . XX2 , ECON , FBAR 

GW 

8 

9 

COMMON  /CWAV/  U.U2.XX1 ,XX2,R1 ,R2,ZMH,ZPH 

GW 

9 

10 

DIMENSION  FJX(2),  TPJX(2).  EC0NX(2) 

GW 

10 

11 

EQUIVALENCE  (FJ.FJX),  (TPJ.TPJX),  (ECON.ECONX) 

GW 

1 1 

12 

DATA  PI/3. 141 592654/, FJX/O. .1 ./.TP JX/O. .6.283185308/ 

GW 

12 

13 

DATA  ECONX/O. .-188.367/ 

GW 

13 

14 

SPPP=ZMH/R1 

GW 

14 

15 

SPPP2=SPPP*SPPP 

GW 

15 

16 

CPPP2=1 . -SPPP2 

GW 

16 

17 

IF  (CPPP2.LT. 1 .E-20)  CPPP2=1.E-20 

GW 

17 

18 

CPPP=SQRT ( CPPP2 ) 

GW 

18 

19 

SPP=ZPH/R2 

GW 

19 

20 

SPP2=SPP*SPP 

GW 

20 

21 

CPP2=1 .-SPP2 

GW 

21 

22 

IF  (CPP2.LT. 1 .E-20)  CPP2=1 . E-20 

GW 

22 

23 

CPP=SQRT(CPP2) 

GW 

23 

24 

RK1=-TPJ*R1 

GW 

24 

25 

RK2=-TPJ*R2 

GW 

25 

26 

T 1 =1 . -U2*CPP2 

GW 

26 

27 

T2=CSQRT(T1) 

GW 

27 

28 

T3=(1 .-1 ./RK1 )/RK1 

GW 

28 

29 

T4=(1 .-1 . /RK2)/RK2 

GW 

29 

30 

P1=RK2*U2*T1/(2. *CPP2) 

GW 

30 

31 

RV=(SPP-U»T2)/(SPP+U*T2) 

GW 

31 

32 

0MR=1 .-RV 

GW 

32 

33 

W=1 ./OMR 

GW 

33 

34 

W=(4. ,0. )*P1 »W*W 

GW 

34 

35 

F=F BAR(W) 

GW 

35 

36 

Q1 =RK2*T1/( 2 .*U2*CPP2) 

GW 

36 

37 

RH=(T2-U*SPP)/(T2+U»SPP) 

GW 

37 

38 

V=1 ./( 1 . +RH) 

GW 

38 

39 

V=(4.  ,0.)»Q1*VV 

GW 

39 

40 

G=FBAR(V) 

GW 

40 

41 

XR1=XX1/R1 

GW 

41 

42 

XR2=XX2/R2 

GW 

42 

43 

X1=CPPP2*XR1 

GW 

43 

44 

X2=RV*CPP2*XR2 

GW 

44 

45 

X3=OMR*CPP2*F*XR2 

GW 

45 

46 

X4=U*T2*SPP*2 . ‘XR2/RK2 

GW 

46 

47 

X5=XR1 • T3 • ( 1 .-3 . *SPPP2) 

GW 

47 

48 

X6=XR2*T4*( 1 . -3 . *SPP2) 

GW 

48 

49 

EZV=( XI +X2+X3-X4-X5-X6 ) «ECON 

GW 

49 

50 

XI =SPPP*CPPP*XR1 

GW 

50 

51 

X2=RV*SPP*CPP*XR2 

GW 

51 

52 

X3=CPP*OMR*U*T2*F*XR2 

GW 

52 

53 

X4=SPP*CPP*0MR*XR2/RK2 

GW 

53 

54 

X5=3 . *SPPP*CPPP*T3*XR1 

GW 

54 

55 

X6=CPP»U»T2*0MR*XR2/RK2* .5 

GW 

55 

56 

X7=3.»SPP»CPP*T4*XR2 

GW 

56 

57 

£RV=-( X 1 +X2-X3+X4-X5+X6-X7 ) • ECON 

GW 

57 

58 

EZH=-( X 1 -X2+X3-X4-X5-X  6+X7 ) • ECON 

GW 

58 

59 

XI =SPPP2*XR1 

GW 

59 

60 

X2=RV*SPP2*XR2 

GW 

60 

61 

X4=U2*T1»0MR*F»XR2 

GW 

61 

62 

X5=T3* ( 1 .-3 . *CPPP2)*XR1 

GW 

62 

63 

X6=T  4* ( 1 . -3 . *CPP2) • ( 1 . -U2* ( 1 . +RV)-U2*0MR*F) *XR2 

GW 

63 

64 

X7=U2*CPP2*OMR*( 1 .-1 . /RK2) • ( F*(U2*  T 1 -SPP2-1 ./RK2)  +  1 ./RK2)*XR2 

GW 

64 
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63 

ERH=(  X 1  — X2— X4-X5+X6+X7  )  •  ECON 

GW 

65 

66 

X1=XR1 

GW 

66 

67 

X2=RH*XR2 

GW 

67 

68 

X3=(RH+1 .)*G*XR2 

GW 

68 

69 

X4=T3»XR1 

GW 

69 

70 

X5=T4»(1 .-U2*( 1 . +RV)-U2*0MR*F)*XR2 

GW 

70 

71 

X6=. 5*U2*OMR*( F* (U2*T1 — SPP2-1 ./RK2)+1 ./RK2)»XR2/RK2 

GW 

71 

72 

EPH=-( X 1 -X2+X3-X4+X5+X6 ) • ECON 

GW 

72 

73 

RETURN 

GW 

73 

74 

END 

GW 
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PURPOSE 


To  evaluate  terms  for  the  field  contribution  due  to  segment  ends  in  the 
thin  wire  kernel. 

SYMBOL  DICTIONARY 

GZ  -  exp(-jkr)/r  -  GQ 

GZP  -  -(1  +  jkr)  exp(-jkr)/r3 

R  -  r 

2  2  2 
R2  -  r  -  p  +  z 

RH  -  p 

RK  -  kR 

XK  -  2ir/X 

ZZ  -  z 

CODE  LISTING 


1 

SUBROUTINE  GX  (ZZ . RH . XK , GZ , GZP) 

GX 

1 

2  C 

SEGMENT  END  CONTRIBUTIONS  FOR  THIN  WIRE  APPROX. 

GX 

2 

3 

COMPLEX  GZ .GZP 

GX 

3 

4 

R2=ZZ*ZZ+RH*RH 

GX 

4 

5 

R=SQRT(R2) 

GX 

5 

6 

RK=XK*R 

GX 

6 

7 

GZ=CMPLX(  COS(  RK )  .-SIN(RK)  )/R 

GX 

7 

8 

GZP=-CMPLX(1 . , RK) *GZ/R2 

GX 

8 

9 

RETURN 

GX 

9 

10 

END 

GX 

10 

PURPOSE 


To  evaluate  terms  for  the  field  contribution  due  to  segment  ends  in  the 
extended  thin  wire  kernel. 

METHOD 

Equations  89  through  94  in  Part  I  are  evaluated  for  p  >  a,  and 
equations  99  through  103  for  p  <  a.  Several  variables  are  used  for  storage 
of  Intermediate  results  before  being  set  to  their  final  values . 


SYMBOL  DICTIONARY 


A 

=  radius  oJ 

2 

A2 

■  a 

Cl 

-  1  +  Jkr0 

C2 

■  3(1  +  jla 

C3 

-  (6  +  jkrc 

G1 

- 

G1P 

»  3G  /3z' 

G2 

G2P 

*  3G2/3zf 

G3 

■  3G- ./  3p 

GZ 

-°o 

GZP 

■  3Gq/3z? 

ISA 

■  1  to  indd 

R 

"  r0 

R2 

=  ro2 

R4 

V 

ri 

O 

-P* 

RH 

-  p 

RH2 

-p2 

RK 

*  kr. 

RK2 

.2°  2 
"  k  r0 

T1 

-  a2p2/4r4 

T2 

-  a2/2r2 

XK 

-  k  -  2tt/X 

ZZ 

*  z'  -  z 

2  2 


2  2 

C  ro 


GXX 


SUBROUTINE  GXX  (ZZ , RH , A . A2 , XK , IRA , G1 , G1 P . G2 . G2P , G3 , GZP) 
SEGMENT  END  CONTRIBUTIONS  FOR  EXT.  THIN  WIRE  APPROX. 
COMPLEX  GZ.C1 .C2.C3.G1 ,G1 P ,G2 . G2P ,G3 .GZP 
R2=ZZ*ZZ+RH*RH 
R=SQRT(R2) 

R4=R2*R2 

RK=XK»R 

RK2=RK*RK 

RH2=RH*RH 

T1=.25*A2*RH2/R4 

T2=. 5*A2/R2 

C1=CMPLX(1 . , RK) 

C2=3 . *C1 -RK2 

C3=CMPLX(6 . , RK) *RK2-1 5 .  *C1 
GZ=CMP  LX ( COS ( R  K ) ,-SIN(RK))/R 
G2=GZ*( 1 . +T1 *C2) 

G1=C2-T2»C1*GZ 

GZ=GZ/R2 

G2P=GZ*(T1 *C3-C1 ) 

GZP=T2*C2*GZ 
G3=G2P+GZP 
G1 P=G3*ZZ 

IF  (IRA.EO.1)  GO  TO  2 

G3=(G3+GZP)*RH 

GZP=-ZZ*C1*GZ 

IF  (RH .GT . 1 .  E-10)  GO  TO  1 

G2=0 . 

G2P=0 . 

RETURN 

G2=G2/RH 

G2  P=G2  P • ZZ/RH 

RETURN 

T2=.5*A 

G2=-T2*C1 *GZ 

G2P=T2*GZ*C2/R2 

G3=RH2*G2P-A*GZ*C1 

G2P=G2P*ZZ 

GZP=-ZZ*C1 *GZ 

RETURN 

END 


GY  6 


GY  8 
GY  9 


GY  10 
GY  1  1 


GY  12 
GY  13 


GY  14 
GY  15 


GY  16 
GY  17 


GY  18 
GY  19 


GY  20 
GY  21 


GY  22 
GY  23 


GY  24 
GY  25 


GY  26 
GY  27 


GY  28 
GY  29 


GY  30 
GY  31 


GY  32 
GY  33 


GY  34 
GY  35 


GY  36 
GY  37 


GY  38 
GY  39 


GY  40- 
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HFK 

PURPOSE 

To  compute  the  near  H  field  of  a  uniform  current  filament  by  numerical 
integration. 

METHOD 

The  H  field  of  a  current  filament  of  length  A  with  uniform  current 
distribution  of  magnitude  I  -  X  is 


JEfil 


/ 


kA/2 


-kA/2 


-A_  +  ^L_ 

(kr)3  (kr)2. 


exp(-jkr)  d(kz) 


9 


where  r,  p',  z'  and  z  are  defined  in  the  description  of  subroutine  GH.  The 
numerical  integration  is  performed  by  the  method  of  Romberg  quadrature  with 
variable  Interval  width,  which  is  described  in  the  discussion  of  subroutine 
INTX.  The  integral  is  multiplied  by  kp'/2  at  HF79  and  HF80  in  the  code. 


SYMBOL  DICTIONARY 

This  listing  excludes  those  variables  used  in  the  numerical  quadrature 
algorithm,  which  are  defined  under  subroutine  INTX. 

RHK  -  kp’ 

RHKS  -  (kp’)2 

SGI  “  imaginary  part  of 

SGR  -  real  part  of 

ZPK  -  kzf  (z'  ■  z  coordinate  of  observation  point) 

ZPKX  -  ZPK 


m 


t 
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1 

SUBROUTINE  HFK  (ELI . EL2 ,RHK .ZPKX . SGR .SGI) 

HF 

1 

2  C 

HfK  COMPUTES  THE  H  FIELD  OF  A  UNIFORM  CURRENT  FILAMENT  BY 

HF 

2 

3  C 

NUMERICAL  INTEGRATION 

HF 

3 

4 

COMMON  /TMH/  ZPK.RHKS 

HF 

4 

5 

OATA  NX .NM.NTS , RX/1 . 65536 , 4 . 1 . E-4/ 

HF 

5 

6 

ZPKsZPKX 

HF 

6 

7 

RHKS-RHK*RHK 

HF 

7 

8 

Z=EL1 

HF 

8 

9 

ZE=EL2 

HF 

9 

10 

SaZE-Z 

HF 

10 

11 

EP=S/( 1 0 . *NM) 

HF 

11 

12 

ZEND=ZE-EP 

HF 

12 

13 

SGR=0 . 0 

HF 

13 

14 

SGI=0 . 0 

HF 

14 

15 

NS=NX 

HF 

IS 

16 

NT=0 

HF 

16 

17 

CALL  GH  (Z.G1R.G1I) 

HF 

17 

18  1 

OZ=S/NS 

HF 

18 

19 

ZP=Z+0Z 

HF 

19 

20 

IF  (ZP-ZE)  3,3.2 

HF 

20 

21  2 

DZ=ZE-Z 

HF 

21 

22 

IF  (ABS(DZ)-EP)  17,17.3 

HF 

22 

23  3 

DZOT=OZ* .5 

HF 

23 

24 

ZP=Z+DZOT 

HF 

24 

25 

CALL  GH  (ZP.G3R.G3I) 

HF 

25 

26 

ZP=Z+OZ 

HF 

26 

27 

CALL  GH  (ZP.G5R.G5I) 

HF 

27 

28  4 

TOOR=(G1R+G5R)»OZOT 

HF 

28 

29 

T00I=(G1 I+G5I)*OZOT 

HF 

29 

30 

T01 R=( T00R+0Z*G3R)*0 . 5 

HF 

30 

31 

T01 I=( T00I+DZ»G3I) *0 . 5 

HF 

31 

32 

T 1 0R=(  4 . 0*  T0 1 R-TOOR  )/3 . 0 

HF 

32 

33 

T 1 0I=(4.0*T01 I-T00I)/3 . 0 

HF 

33 

34 

CALL  TEST  (T01 R ,T1 OR , TE1 R , T01 I , T1 01 , TE1 I ,0 . ) 

HF 

34 

35 

IF  (TE1I-RX)  5.5,6 

HF 

35 

36  5 

IF  (TE1R-RX)  8,8,6 

HF 

36 

37  6 

ZP=Z+DZ*0.25 

HF 

37 

38 

CALL  GH  (ZP.G2R.G2I) 

HF 

38 

39 

ZP=Z+DZ*0 .75 

HF 

39 

40 

CALL  GH  (ZP.G4R.C4I) 

HF 

40 

41 

T02R®( TO 1 R+OZOT • ( G2R+G4R ) ) *0 . 5 

HF 

41 

42 

T02I=( TO 1 I+OZOT* ( G2I+G4I ) ) »0 . 5 

HF 

42 

43 

T1 1 R®(4, 0*T02R— T01 R)/3 . 0 

HF 

43 

44 

T1 1 I=(4. 0*T02I-T01 I)/3 . 0 

HF 

44 

45 

T20R=( 1 6 .0*T1 1 R-T1 0R)/1 5.0 

HF 

45 

46 

T20I=( 1 6 . 0*T1 1 I— T10I)/1 5 . 0 

HF 

46 

47 

CALL  TEST  ( T 1 1 R . T20R ,TE2R . T1 1 I, T20I . TE2I ,0 . ) 

HF 

47 

48 

IF  (TE2I-RX)  7,7,14 

HF 

48 

49  7 

IF  (TE2R-RX)  9,9,14 

HF 

49 

50  8 

SGR=SGR+T 1 0R 

HF 

50 

51 

SGI=SGI+T1 01 

HF 

51 

52 

NT=NT+2 

HF 

52 

S3 

GO  TO  10 

HF 

53 

54  9 

SGR=SGR+T20R 

HF 

54 

55 

SGI=SGI+T20I 

HF 

55 

56 

NT=NT+1 

HF 

56 

57  10 

Z=Z+0Z 

HF 

57 

58 

IF  (Z-ZENO)  11,17,17 

HF 

SB 

59  11 

G1 R=G5R 

HF 

59 

60 

G1 I=G5I 

HF 

60 

61 

IF  (NT-NTS)  1,12,12 

HF 

61 

62  12 

IF  (NS-NX)  1,1,13 

HF 

62 

63  13 

NS=NS/2 

HF 

63 

64 

NT=1 

HF 

64 
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as 

GO  TO  1 

HF 

65 

66 

14 

NT=0 

HF 

66 

67 

IF  (NS-NM)  16,15,15 

HF 

67 

66 

15 

PRINT  18,  Z 

HF 

68 

69 

GO  TO  9 

HF 

69 

70 

16 

NS=NS*2 

HF 

70 

71 

DZsS/NS 

HF 

71 

72 

DZ0T=OZ*0.5 

HF 

72 

73 

G5r(=G3R 

HF 

73 

74 

C5I=G3I 

HF 

74 

75 

G3R=G2R 

HF 

75 

76 

G3I=G2I 

HF 

76 

77 

GO  TO  4 

HF 

77 

78 

17 

CONTINUE 

HF 

78 

79 

SGR=SGR«PHK».5 

HF 

79 

80 

SGI=SGI*RHK*.5 

HF 

80 

81 

RETURN 

HF 

81 

82 

C 

HF 

82 

83 

18 

FORMAT  (24H  STEP  SIZE  LIMITED  AT  Z=.F10.5) 

HF 

83 

84 

END 

HF 

84- 
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PURPOSE 


To  compute  the  near  magnetic  field  due  to  a  single  patch  in  free  space 
or  over  ground. 

METHOD 

The  magnetic  field  is  computed  at  the  point,  XI,  YI,  ZI  due  to  the  patch 
defined  by  parameters  in  COMMON/DATAJ/ .  The  H  field  at  r  -  (XI)x  +  (YI)9  + 

A  — 

(ZI)z  due  to  patch  1,  centered  at  r^9  is  approximated  as: 


-*[ 


Cl  +  jkR) 


(R/X)- 


-  |(R/X)  x  Jij  A±y 


where  R  •  r  -  r^,  and  A^  is  the  area  of  patch  i.  This  expression  treats  the 
surface  currents  as  lumped  at  the  center  of  the  patch.  H  is  computed  for  unit 

A  /V 

currents  along  the  surface  vectors  t^  and  t2^- 

When  a  ground  is  present,  the  code  is  executed  twice  in  a  loop.  In  the 
second  pass,  the  field  of  the  Image  of  the  patch  is  computed,  multiplied  by 
the  reflection  coefficients,  and  added  to  the  direct  field. 

SYMBOL  DICTIONARY 

CR  “  cos  (kR) 

CTE  -  cos  6,  9  ■  angle  between  the  reflected  ray  and  the  normal  to 

the  ground 


EYC  I  -  x,  y,  and  z  components  of  H  excluding  (x  J^)  term 


EYK  J  ■  H  for  J±  ■  t1± 


EYS  [  -  H  for  J±  =  t2i 


F1Y  |  -  H  for  ■  t^;  direct  or  reflected  field  contribution 


lit' 


HINTG 


H  for  ■  t2i;  direct  or  reflected  field  contribution 


IPERF  - 
KSYMP  - 


-  H  excluding  the  term  (R/X)  x  j 

■  1  for  direct  field,  2  for  reflected  field 
*  1  for  perfect  ground,  0  otherwise 

-  1  for  free  space,  2  for  ground 

■  unit  vector  normal  to  plane  of  incidence  for  reflected  ray 

-  R/X 

■  +1  for  direct  field,  -1  for  reflected  field 

-  kR;  k  -  2tt/X 


R2/X2 


sin  (kR) 


-  z  component  of  t^  for  patch  i  or  for  the  image  of  patch  i 
reflected  in  the  ground 

-  same  as  T1ZR  for  the  t„_. 


*  field  evaluation  point  r/X 


<  Q. 
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XJ 

YJ  -  position  of  center  of  patch  r^/X 
ZJ 

XYMAG  -  magnitude  of  R/X  projected  on  the  x-y  plane 

CONSTANTS 

12.56637062  -  4tt 
6.283185308  -  2ir 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


SUBROUTINE  HINTG  (XI.YI.ZI)  HI 

HINTG  COMPUTES  THE  H  FIELD  OF  A  PATCH  CURRENT  HI 

COMPLEX  EXK . EYK , EZK . EXS , EYS . EZS . EXC , E YC , EZC . ZRATI . ZRATI2 . GAM . F 1 X , F  HI 
1 1 Y, F1Z ,F2X , F2Y , F2Z , RRV ,RRH , T1 , FRATI  HI 

COMMON  /DATAJ/  S . B ,X J . YJ ,ZJ .CAB J .SAB J ,SALP J , EXK . EYK . EZK . EXS , EYS , EZ  HI 
1 S . EXC . EYC , EZC . RKH . IEXK . INO 1 , IND2 . IPGND  HI 

COMMON  /GND/ZRATI . ZRATI2 , FRATI , CL , CH , SCRWL , SCRWR , NRADL , KSYMP , IFAR ,  HI 
1IPERF.T1.T2  HI 

EQUIVALENCE  (T1XJ.CABJ),  (T1YJ.SABJ).  (T1ZJ .SALPJ) .  (T2XJ.8).  ( T2Y  HI 
1J.IND1),  (T2ZJ.IN02)  HI 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


1 


11 

DATA  FPI/1 2 . 56637062/ . TP/6 . 283 1 85308/ 

HI 

11 

12 

RX=XI— X J 

HI 

12  5 

13 

RY=YI— YJ 

HI 

13 

14 

RFL=-1 . 

HI 

14 

IS 

EXK=(0 . ,0.) 

HI 

15  \ 

16 

EYK=(0. .0.) 

HI 

16  1 

17 

EZK=(0 . ,0 . ) 

HI 

17 

18 

EXS=(0. .0.) 

HI 

18 

19 

EYS=(0. ,0.) 

HI 

19 

20 

EZS=(0. ,0.) 

HI 

20  j 

21 

DO  5  IP=1 , KSYMP 

HI 

21  \ 

22 

RFL=-RFL 

HI 

22  ) 

23 

RZ=ZI-Z J*RFL 

HI 

23 

24 

RSQ=RX*RX+RY»RY+RZ*RZ 

HI 

24 

25 

IF  (RSQ.LT.1 .E-20)  GO  TO  5 

HI 

25 

26 

R=SQRT(RSQ) 

HI 

26  j 

27 

RK=TP*R 

HI 

27  i 

28 

CR=COS(RK) 

HI 

28  ' 

29 

SR=SIN(RK) 

HI 

29  ? 

30 

GAM=-(CMPLX(CR,-SR)+RK*CMPLX(SR,CR))/(FPI*RSQ*R)*S 

HI 

30  j 

31 

EXC=GAM*RX 

HI 

31 

32 

EYC=GAM»RY 

HI 

32 

33 

EZC=GAM*RZ 

HI 

33  Al:,  1 

34 

T1 ZR=T1 ZJ’RFL 

HI 

34  (L  > 

35 

T2ZR=T2Z J’RFL 

HI 

35 

36 

FI X=EYC*T1 ZR-EZC*T1 YJ 

HI 

36  | 

j  37 

FI Y=EZC*T1 X J— EXC*T1 ZR 

HI 

37  | 

38 

F1Z=EXC*T1YJ-EYC*T1XJ 

HI 

38 

39 

F2X=EYC*T2ZR-EZC*T2Y J 

HI 

39  1 

40 

F2Y=EZC*T2XJ-EXC*T2ZR 

HI 

40 

41 

F2Z=EXC*T2Y J— EYC*T2X J 

HI 

41  ‘J 

42 

IF  (IP.EQ.1)  GO  TO  4 

HI 

42 

43 

IF  (IPERF.NE. 1 )  GO  TO  1 

HI 

43 

44 

FI X=-F 1 X 

HI 

44  1 

45 

F1Y=-F1Y 

HI 

45  | 

46 

F 1 Z=-F 1 Z 

HI 

46 

47 

F2X=-F2X 

HI 

47 

48 

F2Y=-F2Y 

HI 

48  'i 

49 

F2Z=-F2Z 

HI 

49 

50 

GO  TO  4 

HI 

50  J 

51  1 

XYMAG=SQRT( RX*RX+RY*RY ) 

HI 

51  \ 

!  52 

IF  (XYMAG.GT.1 .E-6)  GO  TO  2 

HI 

52 

53 

PX=0. 

HI 

53  ( 

54 

PY=0. 

HI 

54  J 

55 

CTH=1 . 

HI 

55  -■ 

56 

RRV=( 1 . ,0. ) 

HI 

56 

57 

GO  TO  3 

HI 

57 

58  2 

PX=-RY/XYMAG 

HI 

58 

59 

PY=RX/XYMAG 

HI 

59 

60 

CTH=RZ/R 

HI 

60 

61 

RRV=CSQRT ( 1 . — ZRATI*ZRATI*(1 . -CTH’CTH) ) 

HI 

61  1 

62  3 

RRH=ZRATI*CTH 

HI 

62 

63 

RRH=( RRH-RRV )/( RRH+RRV ) 

HI 

63  _ 

64 

RRV=ZRATI*RRV 
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65  RRV=-(CTH-RRV)/(CTH+RRV) 

66  GAM=(HX*PX+F1Y»PY)*(RRV-RRH) 

67  F 1 X=F 1 X*RRH+GAM*PX 

68  FI Y=F1 Y*RRH+GAM*PY 

69  F1Z=F1Z»RRH 

70  GAMs( F2X*PX+F2Y*PY ) • ( RRV— RRH) 

71  F2X*F2X*RRH+GAM*PX 

72  F2Y=F2Y*RRH+GAM*PY 

73  F2Z=F2Z*RRH 

74  4  EXK=EXK+F 1 X 

75  EYKsEYK+FIY 

76  EZKaEZK+FIZ 

77  EXS*EXS+F2X 

78  EYS=EYS+F2Y 

79  EZS=EZS+F2Z 

80  5  CONTINUE 

81  RETURN 

82  END 
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65 

HI 

66 

HI 

67 

HI 

68 

HI 

69 

HI 

70 

HI 

71 

HI 

72 

HI 

73 

HI 

74 

HI 

75 

HI 

76 

HI 

77 

HI 

78 

HI 

79 

HI 

80 

HI 

81 

HI 
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HSFLD 

PURPOSE 

To  compute  the  near  magnetic  field  due  to  constant,  sine,  and  cosine 
current  distributions  on  a  segment  in  free  space  or  over  ground. 

METHOD 

The  magnetic  field  is  computed  at  the  point  XI,  YI,  ZI  due  to  the 
segment  defined  by  parameters  in  COMMON/DATAJ/ .  The  fields  computed  by 
routine  HSFLX  are  stored  in  /DATAJ/.  When  a  ground  is  present,  the  code  is 
executed  twice  in  a  loop.  In  the  second  pass,  the  field  of  the  image  of  the 
segment  is  computed,  multiplied  by  the  reflection  coefficients,  and  added  to 
the  direct  field. 

The  field  is  evaluated  in  a  cylindrical  coordinate  system  with  the 

source  segment  at  the  origin.  The  radius  of  a  segment  on  which  the  field  is 

evaluated  is  treated  in  the  same  way  as  for  the  electric  field  in  subroutine 

EFLD.  When  the  field  evaluation  point  is  not  on  a  segment,  the  observation 

segment  radius  is  set  to  zero  in  the  call  to  HSFLD.  Thus,  as  for  the  electric 

field,  the  p  coordinate  of  the  field  evaluation  point  is  computed  for  the 

2  2  1/2 

surface  of  the  observation  segment  as  p'  3  (p  +  a  )  ,  where  p  is  the 

distance  from  the  axis  of  the  source  segment  to  (XI,  YI,  ZI)  and  a  is  the 
radius  of  the  observation  segment.  The  resulting  H  field  is  multiplied  by 
p/p’. 

SYMBOL  DICTIONARY 

AI  ■  radius  of  observation  segment,  if  any 

CTH  *  cos  0,  0  *  angle  between  the  ray  reflected  from  the  ground 

and  vertical 
ETA  -  n  *  /p/e 


H,  due  to  cosine,  constant,  and  sine  current,  respectively 
9 


(p/p ' ) 9  in  the  cylindrical  coordinates  of  the  source  segment 
or  its  image 
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unit  vector  normal  to  the  plane  of  incidence  of  the  reflected 


ray,  p 


p/pr  [R^  +  (Ry  -  *  P)P]  for  reflected  ray 


RHOSPC  - 


SALPR 


+1  for  direct  field,  -1  for  reflected  field 
P* 

distance  from  coordinate  origin  to  the  point  where  the  ray 
from  the  source  to  (XI,  YI,  ZI)  reflects  from  the  ground 


-  P  or  p/p' 


distance  from  the  field  evaluation  point  to  the  center  of  the 


source  segment 


z  component  of  unit  vector  in  the  direction  of  the  source 
segment  or  its  image 


■  x,  y,  z  coordinates  of  the  field  evaluation  point 


x,  y,  z  components  of  distance  from  center  of  source  segment 
to  field  observation  point 


XSPEC  - 


YSPEC 


XYMAG 


x,  y  coordinates  of  the  ground  plane  reflection 
point 

horizontal  distance  from  the  source  segment  to  the  field 
observation  point 

projection  of  the  vector  (XIJ,  Y1J,  ZIJ)  on  the  axis  of  the 


source  segment 


ZRATX 


temporary  storage  for  ZRATI 
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nwwwwww 

1 

SUBROUTINE  HSFLD  ( XI ,  YI , ZI , AI) 

HS 

i 

2  C 

HSFLD  COMPUTES  THE  H  FIELD  FOR  CONSTANT,  SINE,  AND 

COSINE  CURRENT 

HS 

2 

3  C 

ON  A  SEGMENT  INCLUDING  GROUND  EFFECTS. 

HS 

3 

4 

COMPLEX  EXK , EYK , EZK , EXS , EYS ,EZS,EXC,EYC,EZC,ZRATI,ZRATI2,T1 ,HPK,HP 

HS 

4 

5 

1 S  ,  HPC , QX ,QY , QZ , RRV . RRH , ZRATX , FRATI 

HS 

5 

6 

COMMON  /DATA J/  S , B . X J . Y J , Z J .CAB J , SAB J , SALP J , EXK . EYK , EZK , EXS . EYS . EZ 

HS 

6 

7 

1 S  ,  EXC . EYC , EZC , RKH . IEXK . IND1 . IND2 , IPGND 

HS 

7 

8 

COMMON  /GND/ZRATI . ZRATI2 , FRATI . CL , CH , SCRWL , SCRWR . NRADL , KSYMP , IFAR , 

HS 

8 

9 

1IPERF.T1 ,T2 

HS 

9 

10 

DATA  ETA/376.73/ 

HS 

10 

1 1 

XIJ=XI-XJ 

HS 

1 1 

12 

YI J=YI-Y  J 

HS 

12 

13 

RFL=-1 . 

HS 

13 

14 

DO  7  IP=1, KSYMP 

HS 

1  4 

y 

15 

RFL=-RFL 

HS 

15 

16 

SALPR=SALPJ*RFL 

HS 

16 

} 

17 

ZI J=ZI-RFL*Z J 

HS 

17 

\ 

18 

ZP=XI J*CAB J+YI J’SAB J+ZI J*SALPR 

HS 

18 

j 

19 

RHOX=XIJ-CABJ*ZP 

HS 

19 

20 

RHOY=YI J-SAB J*ZP 

HS 

20 

21 

RHOZ=ZI J-SALPR*ZP 

HS 

21 

22 

RH=SQRT ( RHOX • RHOX+RHOY*  RHOY+RHOZ*  RHOZ+AI • AI ) 

HS 

22 

4 

23 

IF  (RH.GT.1 . E — 10)  GO  TO  1 

HS 

23 

' 

24 

EXK=0. 

HS 

24 

25 

EYK=0 . 

HS 

25 

4 

26 

EZK=0 . 

HS 

26 

27 

EXS=0 . 

HS 

27 

28 

EYS=0 . 

HS 

28 

29 

EZS=0 . 

HS 

29 

[ 

30 

EXC=0 . 

HS 

30 

31 

EYC=0 . 

HS 

31 

32 

EZC=0 . 

HS 

32 

> 

33 

GO  TO  7 

HS 

33 

34  1 

RHOX=RHOX/RH 

HS 

34 

cn 

35 

RHOY=RHOY/RH 

HS 

35  . 

36 

RHOZ=RHOZ/RH 

HS 

36 

37 

PHX=SABJ*RHOZ-SALPR*RHOY 

HS 

37 

\ 

38 

PHY=SALPR*RHOX-CAB J  *RHOZ 

HS 

38 

39 

PHZ=CAB  J • RHO Y-S AB  J • RHOX 

HS 

39 

i 

40 

CALL  HSFLX  (S , RH , ZP ,HPK ,HPS . HPC) 

HS 

40 

41 

IF  (IP.NE.2)  GO  TO  6 

HS 

41 

42 

IF  (IPERF.EQ.1)  GO  TO  5 

HS 

42 

43 

ZRATX=ZRATI 

HS 

43 

c 

44 

RMAG=SQRT(ZP*ZP+RH*RH) 

HS 

44 

45 

XYMAG=SORT( XIJ  *XI J+YI J* YI J ) 

HS 

45 

46  C 

HS 

46 

i 

47  C 

SET  PARAMETERS  FOR  RADIAL  WIRE  GROUND  SCREEN. 

HS 

47 

48  C 

HS 

48 

49 

IF  (NRADL. EQ.O)  GO  TO  2 

HS 

49 

50 

XSPEC=(XI*ZJ+ZI*XJ)/(ZI+ZJ) 

HS 

50 

51 

YSPEC=(YI»ZJ+ZI*Yj)/( ZI+Z J ) 

HS 

51 

i 

Q 

52 

RHOSPC=SQRT(XSPEC*XSPEC+YSPEC* YSPEC+T2*T2 ) 

HS 

52 

k 

53 

IF  ( RHOSPC .  GT  .  SCRW1.)  GO  TO  2 

HS 

53 

; 

54 

RRV=T 1 ‘RHOSPC* ALOG( RH0SPC/T2 ) 

HS 

54 

55 

ZRATX=(RRV*ZRATI)/(ETA*ZRATI+RRV) 

HS 

55 

X 

56  2 

IF  (XYMAG.GT. 1 .E-6)  GO  TO  3 

HS 

56 

1 

57  C 

HS 

57 

58  C 

CALCULATION  OF  REFLECTION  COEFFICIENTS  WHEN  GROUND 

IS  SPECIFIED. 

HS 

58 

59  C 

HS 

59 

•j 

60 

PX=0. 

HS 

60 

61 

PY=0 . 

HS 

61 

V 

0 

62 

CTH=1 . 

HS 

62 

y 

63 

RRV=(1  .  ,0.  ) 

HS 

63 

_  H 

64 

GO  TO  4 

HS 

64 

a 
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96 

97  6 

98 

99 
100 
101 
102 
103 
104. 

105 

106  7 

107 

108 


PX=— YIJ/XYMAG 
PY=XI J/XYMAG 
CTH=ZI J/RMAG 

RRV=CSQRT( 1 .-ZRATX*ZRATX*( 1 . -CTH'CTH) ) 

RRH=ZRATX*CTH 

RRH=-( RRH-RRV )/( RRH+RRV ) 

RRV=ZRATX*RRV 

RRV=( CTH-RRV )/( CTH+RRV ) 

QY=( PHX • PX+PH Y  *  P Y ) • ( RRV-RRH ) 

QX=QY«PX+PHX*RRH 

QY=QY*PY+PHY*RRH 

QZ=PHZ*RRH 

EXK=EXK-HPK»QX 

E YK=EYK-HPK  *QY 

EZK=EZK-HPK*QZ 

EXS=EXS-HPS*QX 

EYS=EYS-HPS*QY 

EZS=EZS-HPS  *QZ 

EXC=EXC-HPC*QX 

EYC=EYC-HPC*QY 

EZC=EZC-HPC*QZ 

GO  TO  7 

EXK=EXK-HPK»PHX 

EYK=EYK-HPK*PHY 

EZK=EZK-HPK*  PHZ 

EXS=EXS-HPS*PHX 

EYS=EYS-HPS*PHY 

EZS=EZS-HPS*PHZ 

EXC=EXC-HPC*PHX 

EYC=EYC-HPC*PHY 

EZC=EZC-HPC*  PHZ 

GO  TO  7 

EXK=HPK*PHX 

EYK=HPK*PHY 

EZK=HPK*PHZ 

EXS=HPS‘PHX 

EYS=HPS*PHY 

EZS=HPS*PHZ 

EXC=HPC*PHX 

EYC=HPC*PHY 

EZC=HPC*PHZ 

CONTINUE 

RETURN 

END 
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PURPOSE 


To  compute  the  near  H  field  of  filamentary  currents  of  sine,  cosine,  and 
constant  distribution  on  a  segment. 

METHOD 

The  wire  segment  is  considered  to  be  located  at  the  origin  of  a  local 
cylindrical  coordinate  system  with  the  point  at  which  the  H  field  is  computed 
being  (p,  <P,  z).  The  coordinate  geometry  for  a  filament  of  current  of  length 
A  is  shown  in  figure  7.  For  a  sine  or  cosine  current  distribution,  the  field 
can  be  written  in  closed  form.  For  a  current 


sin  kz' 


cos  kz' 


the  field  is 


„  ,  _  JVX  |  _  ,  v  T  cos(kA/2)"|  ^  rcos(kA/2)"l 

H0  (P,  z)  “  2kp  exp(-jkr2)  |_sin(kA/2)J  “  exp(-jkrL)  [gin(kA/2)J 


-  j(kz  -  kA/2) 


+  j  (kz  +  kA/2) 


eXp('Jkr2)  [sin  (kA/2)l 

kr2  [cos  (kA/2)J 

expC-Jtoj)  r  s±n  (kA/2)-| 

kr^  |_  cos  (kA/2)J 


Iq/X  -  1  is  assumed  in  this  routine. 

For  small  values  of  p  with  |z|  >  A/2,  this  equation  may  produce  large 
numerical  errors  due  to  cancellation  of  large  terms.  Hence,  for  z  >  0  and 

_3 

p/ (z  -  A/2)  <10  ,  a  more  stable  approximation  for  small  p/ (z  ±  A/2)  is  used: 


Vp’z) 


exp(-jkz) 


[(z  + 


2tt _ 

A/2) /X 


2tt 

(z  -  A/2) /X 


][-J 


exp (jkA/ 2)  /sin  (kA/2)\  exp (-j kA/2) 


(z-A/2  )2/X2 


tcos  (kA/2) 


)  _  exP 

'  (z  + 


(z  +  A/2)2/X2 


/-sin  (kA/2) 
^  cos  (kA/2); 


For  z  <  0,  the  above  equation  is  evaluated  for  H^(p,  -  z) .  The  field  of  a 
sin  kz'  current  is  multiplied  by  -1  in  this  case,  since  it  is  an  odd  function 


HSFLX 


Segment - 


Figure  7.  Coordinates  for  Evaluating  H  Field  of  a  Segment. 


The  field  due  to  a  constant  current  is  obtained  by  numerical  integra¬ 
tion,  which  is  performed  by  subroutine  HFK.  If  p  is  zero,  all  field  quanti¬ 


ties  are  set  to  zero,  since  H.  is  undefined. 


SYMBOL  DICTIONARY 


HKR,  HKI 


cos(kA/2) 

-j/(2kp) 

A/2 

kA/2 


exp(-jkr^) 


exp(-jkr2) 


real  and  imaginary  parts  of  H  due  to  a  constant  current 


due  to  cosine,  constant,  and  sine  currents,  respectively 


sign  of  z 


p/(z  -  A/2) 
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1 

SUBROUTINE  HSFLX  (S , RH , ZPX ,HPK ,HPS ,HPC) 

HX 

1 

2  C 

CALCULATES  H  FIELD  OF  SINE  COSINE.  AND  CONSTANT  CURRENT  OF 

SEGMENT  HX 

2 

3 

COMPLEX  FJ.FJK.EKR1 .EKR2.T1 , T2 .CONS ,HPS ,HPC .HPK 

HX 

3 

4 

DIMENSION  FJX(2) ,  FJKX(2) 

HX 

4 

5 

EQUIVALENCE  (FJ.FJX).  (FJK.FJKX) 

HX 

5 

6 

DATA  TP/6. 2831 85308/. FJX/O. .1 ./. FJKX/O . . -6 . 2831 85308/ 

HX 

6 

7 

DATA  PI8/25. 132741 23/ 

HX 

7 

8 

IF  (RH.LT.1 .E-10)  GO  TO  6 

HX 

8 

9 

IF  (ZPX.LT.O.)  GO  TO  1 

HX 

9 

to 

ZP=ZPX 

HX 

10 

11 

HSS=1 . 

HX 

11 

12 

GO  TO  2 

HX 

12 

13  1 

ZP=-ZPX 

HX 

13 

14 

HSS=-1 . 

HX 

14 

IS  2 

DH=.5»S 

HX 

15 

16 

Z1=ZP+0H 

HX 

16 

17 

Z2=ZP-DH 

HX 

17 

18 

IF  (Z2.LT.1 .E-7)  GO  TO  3 

HX 

18 

19 

RHZ=RH/Z2 

HX 

19 

20 

GO  TO  4 

HX 

20 

21  3 

RHZ=1 . 

HX 

21 

22  4 

DK=TP*OH 

HX 

22 

23 

CDK=COS(DK) 

HX 

23 

24 

SDK=SIN(DK) 

HX 

24 

25 

CALL  HFK  (-0K , DK , RH*TP , ZP*TP . MKR . HKI) 

HX 

25 

26 

HPK=CMPLX(HKR,HKI) 

HX 

26 

27 

IF  (RHZ.LT.1 .E-3)  GO  TO  5 

HX 

27 

28 

RH2=RH»RH 

HX 

28 

29 

R1=SQRT(RH2+Z1*Z1) 

HX 

29 

30 

R2=SQRT(RH2+Z2*Z2) 

HX 

30 

31 

EKR1 =CEXP( F JK*R1 ) 

HX 

31 

32 

EKR2=CEXP(FJK*R2) 

HX 

32 

33 

T1=Z1*EKR1/R1 

HX 

33 

34 

T2=Z2*EKR2/R2 

HX 

34 

35 

HPS=( CDK* ( EKR2— EKR 1 )-FJ*S0K»(T2+T1 ) )*HSS 

HX 

35 

36 

HPC=-SDK*( EKR2+EKR1 )-F  J*CDK*( T2-T1  ) 

HX 

36 

37 

CONS=-F  J/( 2 . • TP • RH ) 

HX 

37 

38 

HPS=CONS*HPS 

HX 

38 

39 

HPC=CONS*HPC 

HX 

39 

40 

RETURN 

HX 

40 

41  5 

EKR1=CMPLX(CDK.SDK)/(Z2»Z2) 

HX 

41 

42 

EKR2=CMPLX(CDK.-SDK)/(Z1*Z1 ) 

HX 

42 

43 

T1 =TP*( 1 . /Z 1  — 1 ,/Z2) 

HX 

43 

44 

T2=CEXP( F  JK*ZP) *RH/PI8 

HX 

44 

45 

HPS=T2*( T 1 +( EKR1+EKR2 ) *SDK) *HSS 

HX 

45 

46 

HPC=T2*(-F J*T1 +( EKR1 -EKR2) *CDK) 

HX 

46 

47 

RETURN 

HX 

47 

48  6 

HPS=(0. .0. ) 

HX 

48 

49 

HPC=(0. .0. ) 

HX 

49 

50 

HPK=(0. .0. ) 

HX 

50 

51 

RETURN 

HX 

51 

52 

END 

HX 
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INTRP 


PURPOSE 

To  evaluate  the  Sommerfeld  integral  contributions  to  the  field  of  a 
source  over  ground  by  interpolation  in  precomputed  tables. 

METHOD 

The  interpolation  region  in  and  0  is  covered  by  three  grids  as 
shown  in  Figure  12  of  Part  1.  The  interpolation  tables  and  the  number  of  data 
points  and  the  boundaries  of  each  grid  are  read  from  file  21  and  stored  in 
COMMON/GGRID/  by  the  main  program.  In  subroutine  INTRP  the  variable  x 
corresponds  to  R^  and  y  to  0. 

The  three  interpolation  tables  are  stored  in  the  arrays  ARl,  AR2  and  AR3 
in  COMMON/GGRID/.  For  grid  i,  ARi(l,J,K)  is  the  value  at 

x_  *  s.  +  (I  -  1)  Ax.  ,  1*1,  •••  N. 

i  i  i  l 

yT*  t.  +  (J  -  1)  Ay.  ,  J  *  1,  ...  M. 

'  J  i  i  i 

where  s^  »  XSA(i)  ,  Ax^  »  DXA(i)  ,  N^  *  NXA(i) 
ti  *  YSA(i)  ,  Ay  ^  -  DYA(i)  ,  Mi  -  NYA(i) 

V  V  H  H 

Each  array  contains  values  for  1^,  1^,  1^  and  1^  from  equations  156  through  159 

of  Part  I  for  K  equal  to  1  through  4,  respectively.  The  grid  boundaries  and 
density  of  points  can  be  varied  but  the  relative  positions  of  the  three  grids 
must  be  as  shown  in  Figure  12  of  Part  I  for  the  logic  for  choosing  the  correct 
grid  to  work  correctly.  In  particular,  XSA(l),  YSA(l)  and  YSA(2)  must  be 
zero;  and  XSA(2)  and  XSA(3)  must  be  equal. 

V  V  H  H 

For  a  given  x  and  y  the  values  of  I  ,  I  ,  I  and  I  .  are  found  by 
J  p  z  p  4» 

bivariate  cubic  interpolation  and  returned  in  the  variables  FI,  F2,  F3  and 
F4.  The  grid  containing  (x,y)  is  determined  and  a  four  by  four  point  region 
containing  (x,y)  is  selected.  If  x^  and  y^  are  the  minimum  values  of  x 
and  y  in  the  four  by  four  point  region  then  four  interpolation  polynomials  in 
x  are  computed  for  y  ■  y^  with  j  ■  k,  k  +  1,  k  +  2,  k+3.  These  are 


f .  .(x)  ■  a.  .£?  +  b.  +  c.  +  d.  . 
ij  i]  1  ij  i  ij  i  ij 

where  5^  ■  (x  -  x^+^)/Ax 

"ij  mi  tFi,j  *  2Fi«,j  *  Fi*2,j!  ■ 


c.  .  -  F.  -  .  -  -7  [2F.  .  +  3F.  .  .  +  F.  . ,  .  ] 

ij  i+2,j  6  i,J  i+l,J  1+3, 

d.  .  ■  F  . 
ij  i+l, j 

Fi.j  ‘  F(v  V 


A  cubic  polynomial  in  y,  fit  Co  Che  poinCs  f^j(x)  for  j  ■  k,  ...  k  +  3  is 
Chen  evaluaced  for  Che  given  y  Co  obcain  the  inCerpolaCed  value  F(x,y) 


F(*,y)  -  {  (Pj.^  *  P2n^  *  P3\>  ♦  p4 
\  -  (y  -  ykn>My 

pi  ‘  £i,k.3<x)  -  £ik(x>  *  3  Ifi,k.i(x)  -  £i,k.2(x)1 
p2  -  3[f.  k(«)  -  2<1>kn<x)  ♦  fiik,2<*>J 

p3  "  6£i,k*2<x)  '  2£i,k(x>  "  3£i>k.l(x)  "  £i,k.3(x) 
p4  "  £i,k*l 


To  reduce  compuCaCion  time  Che  coefficienCs  a..,  b. c.  ■  and  d.  .  are 
y  ij  ij  ij  ij 

saved  as  long  as  successive  poinCs  (x,y)  fall  in  Che  same  four  by  four  point 

region  of  a  grid.  In  addition  Che  four  by  four  point  interpolation  regions 

are  restricted  to  starting  indices  i  and  k  with  values  3n  +  l,  n  =  0,  1.... 

Thus  the  regions  do  not  overlap.  This  is  less  accurate  than  centering  the 

region  on  each  x,y  point  but  requires  less  frequent  computation  of  the 

coefficients.  At  the  outer  edges  of  a  grid  the  regions  are  chosen  to  extend 

to  the  edge  but  not  beyond.  If  x,y  is  out  of  the  entire  three  grid  region  the 

nearest  four  by  four  point  region  is  used  for  extrapolation. 

The  coefficients  a..,  b..,  c..  and  d..  are  stored  in  two 

ij  ij  ij 

dimensional  arrays  from  IT  106  to  IT  109.  When  they  are  used,  from  IT  118  to 
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IT  149  Chey  are  used  as  simple  variables  (A(l,l)  =  All)  to  save  cime.  Also 
Che  three  dimensional  arrays  ARl,  AR2,  and  AR3  are  used  as  linear  arrays  from 
IT  92  to  IT  105.  The  equivalent  three  subscripts  are  shown  in  the  comment  at 
IT  91. 

SYMBOL  DICTIONARY 


Aij 

■  A(i,j)  -  a.  j 

ARl 

■  ARL1  ■  grid  1 

AR2 

*  ARL2  ■  grid  2 

AR3 

■  ARL 3  ■  grid  3 

Bij 

-  B(i,j)  -  b.  j 

Cij 

-  C(i,j)  - 

Dij 

-  D(i,j)  -  d^ 

DX 

■  Ax  for  grid  being  used 

DXA 

*  array  of  Ax  values  for  the  three  grids 

DY 

•  Ay  for  grid  being  used 

DYA 

■  array  of  Ay  values 

EPSCF 

-  ex  -  jo/u)E0 

V 

FI 

“  *p 

V 

F2 

-  h 

H 

F3 

"XP 

H 

F4 

"  X4> 

FXl 

•  fijU) 

FX2 

*  ti,j.i<x) 

FX3 

■  £i,j.2(x) 

FX4 

'  £i,j.3<x> 

IADD 

*  index  for  linear  arrays  ARLl,  etc. 

IADZ 

*  initial  value  for  IADD 

IGR 

*  grid  number  for  present  x,y 

IGRS 

*  grid  number  for  last  x,y 

IX 

■  x  index  of  the  grid  coordinate  just  less 

IXEG 

■  x  index  of  the  upper  edge  of  the  last  no 

located  interpolation  patch  when  a  patch 
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IXS 

IY,  IYEG,  IYS 

K 

NO 

NDA 

NDP 
NO  PA 

NXA 

NXM2 

NXMS 

NY A,  NYM2,  NYMS 
PI,  P2,  P3,  P4 
X 

xs 

XS2 

XSA 

XX 

xz 

Y 

YS 

YS3 

YSA 

YY 

YZ 


normal  locations  is  used  at  the  outer  edge  of  a  grid, 
-10000  otherwise 

a  1  plus  the  x  index  of  the  lower  edge  of  4  by  4  point 
interpolation  patch 

*  same  for  y  as  IX,  IXEG  and  IXS 
-  1.  2,  3.  4  for  ij.  tV.  !»,  x} 

*  NDA  for  the  particular  grid 

■  array  containing  the  first  dimensions  of  AR1,  AR2  and 
AR3 

*  NDPA  for  a  particular  grid 

*  array  containing  the  product  of  the  first  two 
dimensions  in  ARl,  AR2  and  AR3 

*  number  of  x  values  in  each  grid 

■  NXA  -  2  for  a  particular  grid 

*  upper  x  index  of  the  last  normally  located  patch  at 
the  edge  of  a  grid 

*  same  for  y  as  NXA,  NXM2  and  NXMS 

*  ^1’  ^2*  ^3*  ^4 

*  x 

«*  XSA  for  the  present  grid 

*  XSA( 2)  through  equivalence 

*  array  of  values  of  x  at  lower  edge  of  each  grid  (s.) 

*  «i 

*  Xi+1  ^or  comPuti-n8  5^ 

■  y 

■  YSA  for  present  grid 

*  YSAC3)  through  equivalence 

=  array  of  values  of  y  at  lower  edge  of  each  grid  (t^) 

“  \ 

*  Yk+1  for  computing  nk 


% 
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SUBROUTINE  INTRP  (X , Y , FI . F2 . F3 . F4) 


INTRP  USES  BIVARIATE  CUBIC  INTERPOLATION  TO  OBTAIN  THE  VALUES  OF 
4  FUNCTIONS  AT  THE  POINT  (X.Y). 


COMPLEX  FI ,F2.F3,F4,A,B.C.D.FX1 , FX2 . FX3 . FX4 . PI .P2.P3.P4.A1 1 .A12.A1 
13.A14.A21 .A22.A23.A24.A31 , A32 . A33 , A34 . A41 , A42 , A43 , A44 , B1 1 .B12.B13, 
2B14.B21 .B22.B23.B24.B31 .832.B33.B34.B41 , B42 . B43 ,B44 ,C1 1 .C12.C13.C1 
34.C21 .C22.C23.C24.C31 .C32.C33.C34.C41 ,C42 ,C43 . C44 . 01 1 .01 2 ,D1 3 .01 4. 
4021 .022.023.024,031 . 032 .033 . 034 . D41 .042,043,044 
COMPLEX  AR1 .AR2.AR3.ARL1 , ARL2 , ARL3 , EPSCF 

COMMON  /GGRIO/  AR1 ( 1 1 . 1 0 . 4) . AR2( 1 7 .5 . 4) . AR3(9 .8 . 4) . EPSCF . DXA(3) . DY 
1 A(3) ,XSA(3) , YSA(3) ,NXA(3) ,NYA(3) 

DIMENSION  NDA(3) .  N0PA(3) 

DIMENSION  A(4,4),  B(4.4).  C(4.4),  0(4.4).  ARL1(1),  ARL2(1).  ARL3(1 

D 

EQUIVALENCE  (A( 1.1) ,A1 1 ) .  (A( 1 . 2) . A1 2) .  (A( 1 .3) ,A1 3) .  (A(1.4).A14) 
EQUIVALENCE  (A(2 . 1 ) ,A21 ) .  (A(2 .2) . A22) .  (A(2,3) ,A23) .  (A(2,4),A24) 
EQUIVALENCE  (A(3. 1 ) .A31 ) .  ( A(3 . 2) . A32) .  (A(3 .3) ,A33) .  (A(3,4),A34) 
EQUIVALENCE  (A(4. 1 ) .A41 ) .  (A(4,2) ,A42) .  (A(4,3) ,A43) ,  (A(4,4).A44) 
EQUIVALENCE  (B( 1 . 1 ) . B1 1 ) .  (B( 1 ,2) . B1 2) ,  (B( 1 .3) ,B1 3) .  (B(1.4).B14) 
EQUIVALENCE  (B(2. 1 ) .821 ).  (B(2.2) ,B22) .  (B(2 . 3) .B23) .  (B(2,4).B24) 
EQUIVALENCE  (B(3. 1 ) ,B31 ) .  (B(3 .2) . B32) .  (B(3.3) .B33) .  (B(3.4),B34) 
EQUIVALENCE  (B(4. 1 ) ,B41 ) .  (B(4,2) ,B42) .  (B(4.3) ,B43) .  (B(4,4),B44) 
EQUIVALENCE  (C( 1.1) .Cl  1 ) .  (C( 1 ,2) .Cl 2) .  (C( 1 .3) ,C1 3) .  (C(1.4),C14) 
EQUIVALENCE  (C(2. 1 ) ,C21 ) ,  (C(2 , 2) .C22) .  (C(2 .3) .C23) .  (C(2,4),C24) 
EQUIVALENCE  (C(3 . 1 ) .C31 ) .  (C(3 .2) , C32) .  (C(3 . 3) .C33) .  (C(3.4),C34) 
EQUIVALENCE  (C(4. 1 ) ,C41 ) .  (C(4.2) .C42) ,  (C(4 . 3) .C43) ,  (C(4.4).C44) 
EQUIVALENCE  (0(1 .1 ) .01 1 ) .  (D( 1 .2) .01 2) .  (D( 1 ,3) ,013) .  (0(1.4).D14) 
EQUIVALENCE  (0(2 , 1  ) .021  ) .  (D(2 .2) ,D22) .  (D(2,3) ,023) .  (0(2,4).D24) 
EQUIVALENCE  (D(3 . 1 ) .031 ) .  (D(3 .2) . 032) ,  (D(3,3) .033) .  (D(3,4),D34) 
EQUIVALENCE  (0(4. 1  ) ,041  ) .  (D(4,2) .042) .  (0(4.3) ,D43) .  (D(4.4),D44) 
EQUIVALENCE  (ARL1 ,AR1 ) .  (ARL2.AR2),  (ARL3.AR3),  (XS2 , XSA( 2) ) ,  ( YS3 
1.YSA(3)) 

DATA  IXS , IYS , IGRS/-1 0 ,-1 0 ,-1 0/ . DX , DY , XS , YS/1 . .1 . .0. ,0./ 

DATA  NDA/1 1,17,9/. NDPA/1 1 0 , 85 . 72/ , IXEG . IYEG/O . 0/ 

IF  (X.LT.XS.OR.Y.LT.YS)  GO  TO  1 

IX=INT((X-XS)/DX)+1 

IY=INT((Y-YS)/DY)+1 


IF  POINT  LIES  IN  SAME  4  BY  4  POINT  REGION  AS  PREVIOUS  POINT.  OLD 
VALUES  ARE  REUSED 


IF  (IX . LT . IXEG.OR . IY . LT . IYEG)  GO  TO  1 
IF  (IABS(IX-IXS) . LT . 2 . AND. IABS( IY-IYS) . LT . 2)  GO  TO  12 


DETERMINE  CORRECT  GRID  AND  GRID  REGION 


IF  (X.GT.XS2)  GO  TO  2 

IGR=1 

GO  TO  3 

IGR=2 

IF  (Y.GT.YS3)  IGR=3 
IF  (IGR.EQ.IGRS)  GO  TO  4 
IGRS=IGR 
OX=DXA(IGRS) 

OY=OYA(IGRS) 

XS=XSA( ICRS) 

YS=YSA(IGRS) 

NXM2=NXA( IGRS )-2 
NYM2=NYA(IGRS)-2 
NXMS=( (NXM2+1 )/3)»3+1 
NYMS=( (NYM2+1 )/3)»3+1 
ND=NDA( IGRS) 


IT 

1 

IT 

2 

IT 

3 

IT 

4 

IT 

5 

IT 

6 

IT 

7 

IT 

8 

IT 

9 

IT 

10 

IT 

11 

IT 

12 

IT 

13 

IT 

14 

IT 

15 

IT 

16 

IT 

17 

IT 

18 

IT 

19 

IT 

20 

IT 

21 

IT 

22 

IT 

23 

IT 

24 

IT 

25 

IT 

26 

IT 

27 

IT 

28 

IT 

29 

IT 

30 

IT 

31 

IT 

32 

IT 

33 

IT 

34 

IT 

35 

IT 

36 

IT 

37 

IT 

38 

IT 

39 

IT 

40 

IT 

41 

IT 

42 

IT 

43 

IT 

44 

IT 

45 

IT 

46 

IT 

47 

IT 

48 

IT 

49 

IT 

50 

IT 

51 

IT 

52 

IT 

53 

IT 

54 

IT 

55 

IT 

56 

IT 

57 

IT 

58 

IT 

59 

IT 

60 

IT 

61 

IT 

62 

IT 

63 

IT 

64 

.'AV.V.'.S’A' 


65 

NDP=NDPA ( IGRS ) 

IT 

65 

66 

IX=INT((X-XS)/DX)+t 

IT 

66 

67 

IY=INT((Y-YS)/DY)+1 

IT 

67 

68  4 

IXS=((IX— 1 )/3)*3+2 

IT 

68 

69 

IF  (IXS.LT.2)  IXS=2 

IT 

69 

70 

IXEG=-1 0000 

IT 

70 

71 

IF  (IXS.LE.NXM2)  GO  TO  5 

IT 

71 

72 

IXS=NXM2 

IT 

72 

73 

IXEG=NXMS 

IT 

73 

74  5 

IYS=((IY-1 )/3)*3+2 

IT 

74 

75 

IF  (IYS.LT.2)  IYS=2 

IT 

75 

76 

IYEG=— 1 0000 

IT 

76 

77 

IF  (IYS.LE.NYM2)  GO  TO  6 

IT 

77 

78 

IYS=NYM2 

IT 

78 

79 

IYEG=NYMS 

IT 

79 

80  C 

IT 

80 

81  C 

COMPUTE  COEFFICIENTS  OF  4  CUBIC  POLYNOMIALS  IN  X  FOR  THE  4  GRID 

IT 

81 

82  C 

VALUES  OF  Y  FOR  EACH  OF  THE  4  FUNCTIONS 

IT 

82 

83  C 

IT 

83 

84  6 

lADZ=IXS+( IYS-3 ) *ND— NOP 

IT 

84 

85 

DO  11  K=1 .4 

IT 

85 

86 

IADZ=IADZ+NDP 

IT 

86 

87 

IAOD=IADZ 

IT 

87 

88 

DO  11  1=1 .4 

IT 

88 

89 

IADD=IAD0+ND 

IT 

89 

90 

GO  TO  (7,8,9).  IGRS 

IT 

90 

91  C 

P 1 =AR 1 ( IXS- 1 . I YS-2+I , K ) 

IT 

91 

92  7 

P1=ARL1 (IADD— 1 ) 

IT 

92 

93 

P2=ARL1 (IADD) 

IT 

93 

94 

P3=ARL1 (IADD+1 ) 

IT 

94 

95 

P4=ARL 1 ( IADD+2 ) 

IT 

95 

96 

GO  TO  10 

IT 

96 

97  8 

P1=ARL2(IADD— 1 ) 

IT 

97 

98 

P2=ARL2 ( IAOO ) 

IT 

98 

99 

P3=ARL2(IA00+1 ) 

IT 

99 

100 

P4=ARL2(IAD0+2) 

IT 

100 

101 

GO  TO  10 

IT 

101 

102  9 

P1=ARL3(IA00— 1 ) 

IT 

102 

103 

P2=ARL3( IADD ) 

IT 

103 

104 

P3=ARL3( IADD+1 ) 

IT 

104 

105 

P4=ARL3( IADD+2) 

IT 

105 

106  10 

A(I,K)=(P4-P1+3.C(P2-P3))V 1666666667 

IT 

106 

107 

8(I,K)=(P1-2 . *P2+P3) * . 5 

IT 

107 

108 

C( I , K)=P3-(2 . »P1 +3 . »P2+P4) • . 1 666666667 

IT 

108 

109  11 

0(I.K)=P2 

IT 

109 

110 

XZ=(IXS-1 )*OX+XS 

IT 

110 

111 

YZ=( IYS-1 ) *DY+YS 

IT 

111 

112  C 

IT 

112 

113  C 

EVALUATE  POLYNOMIALS  IN  X  AND  THEN  USE  CUBIC  INTERPOLATION  IN  Y 

IT 

113 

114  C 

FOR  EACH  OF  THE  4  FUNCTIONS. 

IT 

114 

115  C 

IT 

115 

116  12 

XX=(X-XZ)/DX 

IT 

116 

117 

YY=(Y-YZ)/DY 

IT 

117 

118 

FX1 =( (A1 1 *XX+B1 1 )»XX+C1 1 )»XX+D1 1 

IT 

118 

119 

FX2=( (A21 ‘XX+B21 ) »XX+C21 ) ‘XX+D21 

IT 

119 

120 

FX3=( ( A31 *XX+B31 ) ‘XX+C31 ) *XX+D31 

IT 

120 

121 

FX4=( ( A41 *XX+B41 ) *XX+C41 )»XX+D41 

IT 

121 

122 

P1=FX4-FX1+3.»(FX2-FX3) 

IT 

122 

123 

P2=3 . *(FX1-2. ’FX2+FX3) 

IT 

123 

124 

P3=6 . »FX3-2 . *FX1 -3 . ‘FX2-FX4 

IT 

124 

125 

F1=( (PI *YY+P2)»YY+P3)»YY* . 1 666666667+FX2 

IT 

125 

126 

FX1 =( ( A1 2*XX+B1 2) *XX+C1 2) *XX+D1 2 

IT 

126 

127 

FX2=( ( A22*XX+B22 ) »XX+C22 ) »XX+D22 

IT 

127 

128 

FX3=( ( A32*XX+B32) •XX+C32),XX+D32 

IT 

128 

INTRP 


1 29  FX4=( ( A42»XX+B42 )  *XX+C42 ) *XX+042 

130  PI =FX4-FX1+3 . •( FX2-FX3) 

131  P2=3 . *(FX1 — 2 . *FX2+FX3) 

132  P3=6 . *FX3— 2 . *FX1 — 3 . *FX2-FX4 

133  F2=( (PI •YY+P2)*YY+P3 ) • YY* . 1 666666667+FX2 

134  FX1=( ( A1 3*XX+B1 3) *XX+C1 3) *XX+01 3 

1 35  FX2=( ( A23*XX+B23 ) *XX+C23 ) *XX+D23 

136  FX3=((A33*XX+B33)*XX+C33)»XX+D33 

1 37  FX4=( (A43*XX+B43) *XX+C43 ) »XX+D43 

138  PI =FX4— FX1+3 . •( FX2-FX3) 

139  P2=3 . • ( FX 1 -2 . ‘FX2+FX3 ) 

140  P3=6 . *FX3-2 . *FX1 -3 . *FX2— FX4 

141  F3=((P1*YY+P2)*YY+P3)*YY*. 1 666666667+FX2 

142  FX1 =( (A1 4*XX+B1 4) *XX+C1 4) *XX+D1 4 

1 43  FX2=( ( A24«XX+B24) *XX+C24) »XX+024 

1 44  FX3=( ( A34*XX+B34) *XX+C34) *XX+034 

145  FX4=((A44*XX+B44)*XX+C44)*XX+D44 

146  Pi =FX4-FX1+3 . •( FX2-FX3) 

147  P2=3 . *( FX1— 2 . *FX2+FX3) 

148  P3=6 . *FX3-2 . *FX1-3 . *FX2-FX4 

149  F4=( (PI *YY+P2) *YY+P3) *YY* . 1 666666667+FX2 

150  RETURN 

151  END 


IT  129 
IT  130 
IT  131 
IT  132 
IT  133 
IT  134 
IT  135 
IT  136 
IT  137 
IT  138 
IT  139 
IT  140 
IT  141 
IT  142 
IT  143 
IT  144 
IT  145 
IT  146 
IT  147 
IT  148 
IT  149 
IT  150 
IT  151- 
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INTX 


PURPOSE 

To  numerically  compute  the  integral  of  the  function  exp(jkr)/kr. 


METHOD 

For  evaluation  of  the  field  due  to  a  segment,  a  local  cylindrical 
coordinate  system  is  defined  with  origin  at  the  center  of  the  segment  and  z 
axis  in  the  segment  direction.  This  geometry  is  illustrated  in  the  discussion 
of  subroutine  GF.  Subroutine  INTX  is  called  by  subroutine  EFLD  to  evaluate 
the  integral 


JcA/2  ,  . 

g  -  f  zsSjgel  d(kl)  , 

■McA/2 


where 


[p’2  +  (z  -  z’)2]172 


and  other  symbols  are  defined  in  the  discussion  of  subroutine  GF. 

The  numerical  integration  technique  of  Romberg  integration  with  variable 
interval  width  is  used  (refs .  3  and  4) .  The  Romberg  integration  formula  is 
obtained  from  the  trapezoidal  formula  by  an  iterative  procedure  (ref.  1).  The 


trapezoidal  rule  for  integration  of  the  function  f(x)  over  an  interval  (a,  b) 


using  2  subintervals  is 


T0k  ’  l<b -»)/»]  [(1/2)  £„  +  + 


•  *  Vi  *  <'«>'»]  ' 


where 


£  (xi) 


a  +  i(b  -  a)/N 


These  trapezoidal-rule  answers  are  then  used  in  the  iterative  formula 
T 


r  "  ( 
m,n  \ 


4Vi,ttfi-Vi,-i/(^-i)- 


[.■> 
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INTX 


may  be  arranged  in  a  triangular  matrix  of  the  form 


The  results  T 

m,n 


where  the  elements  in  the  first  column,  T^,  represent  the  trapezoidal  rule 

results,  and  the  elements  in  the  diagonal,  T  _,  are  the  Romberg  integration 

k  kU 

results  for  2  subintervals. 

Convergence  to  increasingly  more  accurate  answers  takes  place  down  the 
first  column  and  the  diagonal,  as  well  as  towards  the  right  along  the  rows. 

The  row  convergence  generally  provides  a  more  realistic  indication  of  error 
magnitude  than  two  successive  trapezoidal-rule  or  Romberg  answers. 

This  convergence  along  the  rows  is  used  to  determine  the  interval  width 
in  the  variable  interval-width  scheme.  The  complete  integration  interval  is 
first  divided  into  a  minimum  number  of  subintervals  (presently  set  to  1)  and 
T00*  T01*  an<*  ^10  are  comPuted  on  f*-rst  subinterval.  The  relative 
difference  of  Tq^  and  T^q  is  then  computed,  and  if  less  than  the  error 
criterion,  R^,  T^g  is  accepted  as  the  integral  over  that  interval,  and  inte¬ 
gration  proceeds  to  the  next  interval.  If  the  difference  of  Tg^  and  T^q  is 
too  great,  T^i  T^  and  T^q  are  computed.  The  relative  difference  of  T^  and 
T£q  is  then  computed,  and  if  less  than  Rx,  T£q  is  accepted  as  the  integral 
over  the  subinterval.  If  the  difference  of  T^  and  T^q  is  too  great,  the  sub¬ 
interval  is  divided  in  half  and  the  process  repeated  starting  with  Tqq  for  the 
left  hand,  new  subinterval.  The  subinterval  is  repeatedly  halved  until  con¬ 
vergence  to  less  than  R^  is  found.  The  process  is  repeated  for  successive 
subintervals  until  the  right-hand  side  of  the  integration  interval  is  reached. 
When  convergence  has  been  obtained  with  a  given  sub interval  size  for  a  few 
times,  the  routine  attempts  doubling  the  sub interval  size  to  maintain  the 
largest  subinterval  size  that  will  give  the  required  accuracy.  Thus,  the 
routine  will  use  many  points  in  a  rapidly  changing  region  of  a  function  and 
fewer  points  where  the  function  is  smoothly  varying. 

Since  the  function  to  be  integrated  is  complex,  the  convergence  of  both 
real  and  imaginary  parts  is  tested  and  V 'th  must  be  less  than  R^.  The  same 
subinterval  sizes  are  used  for  real  and  imaginary  parts. 


0,0 

r. 

0,1  1,0 


0,2  ‘1,1 


I'M  '.I 


•.,•■  .  ,  -  -  ■  .-f.H 


When  the  field  of  a  segment  is  being  computed  at  the  segment's  own 


center,  the  length  r  becomes 


r,  2  .  ,  ,  .2.1/2 

r  =*  [b  +  (z  -  z')  ] 


where  b  is  the  wire  radius.  For  small  values  of  b,  the  real  part  of  the 
integrand  is  sharply  peaked  and,  hence,  difficult  to  integrate  numerically. 
Hence,  the  integral  is  divided  into  the  components 


■■'■I 


exp(-.lkr)  -  1 


d(kz) 


-kA/2 


kA/2 

; "  -  f  ^  d(kz) 

-kA/2  kT 


G  =  G'  +  G" 


G'  must  be  computed  numerically;  however,  the  integrand  is  no  longer  peaked. 
G",  which  contains  the  sharp  peak,  can  be  computed  as 


G"  =  2  log 


Jb2  +  A2 


-) 


To  further  reduce  integration  time  for  the  self  term,  the  integral  of  G'  is 
computed  from  -kA/2  to  0,  and  the  result  doubled  to  obtain  G'. 


SYMBOL  DICTIONARY 


ABS  =  external  routine  (absolute  value) 


ALOG  =  external  routine  (natural  log) 
B  =  wire  radius,  b/X 


sub interval  size  on  which  Tqq>  ^qi’ 


are  computed 


0.5  DZ 


-kA/2 


tolerance  for  ending  the  integration  interval 
real  number  equivalent  of  NM 


real  number  equivalent  of  NS 
external  routine  (integrand) 
imaginary  part  of  f^ 
real  part  of  f 
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G2I  "  imaginary  part  of 
G2R  *  real  part  of  f^ 

G3I  =  imaginary  part  of  f^ 

G3R  ■  real  part  of  f^ 

G4I  ■  imaginary  part  of  f^ 

G4R  -  real  part  of  f^ 

G5I  *  imaginary  part  of  f,. 

G5R  *  real  part  of  f ^ 

IJ  *  indication  of  self  term  integration  when  equal  to  zero 

NM  -  minimum  allowed  subinterval  size  is  kA/NM 

NS  «  present  subinterval  size  is  kA/NS 

NT  ■  counter  to  control  increasing  of  subinterval  size 

NTS  -  larger  values  retard  increasing  of  subinterval  size 

NX  -  maximum  allowed  subinterval  size  is  kA/NX 

RX  -  R 

x 

S  ■  A/X 

SGI  -  Imaginary  part  of  G 

SGR  -  real  part  of  G 

SQRT  «■  external  routine  (square  root) 

TEST  *  external  routine  (computes  relative  convergence) 

TE1I  *  relative  difference  of  T^  and  T^  for  imaginary  part 

TE1R  -  relative  difference  of  T  ^  and  T^  for  real  part 

TE2I  *  relative  difference  of  T  ^  and  T^q  for  imaginary  part 

TE2R  -  relative  difference  of  T^  and  T^q  for  real  part 

T00I  *  imaginary  part  T „ 

TOOR  -  real  part  TQQ 
T01I  ”  imaginary  part  T^ 

T01R  -  real  part  TQ1 
T02I  -  imaginary  part  T^2 
T02R  =  real  part  TQ2 
T10I  *  imaginary  part  T^^ 

T10R  »  real  part  of  T^q 
Till  *  imaginary  part  of  T^ 

T11R  -  real  part  of  T 
T20I  »  imaginary  part  of  T2q 
T20R  *  real  part  of  T2q 
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ZEND  ' 
ZP 

CONSTANTS 

65536 

l.E-4 


integration  variable  at  left-hand  side  of  subinterval 
kA/2 

kA/2  -  EP;  EP  ■  tolerance  term 
integration  variable 

1  2^  *  limit  of  minimum  subinterval  size  (NM) 

>  error  criterion,  R 

x 


INTX 


1 

SUBROUTINE  INTX  ( ELI . EL2 , B . I J . SGR .SGI) 

IN 

1 

2 

C 

IN 

2 

3 

C 

INTX  PERFORMS  NUMERICAL  INTEGRATION  OF  EXP(JKR)/R  BY  THE  METHOD  OF 

IN 

3 

4 

C 

VARIABLE  INTERVAL  WIDTH  ROMBERG  INTEGRATION.  THE  INTEGRANO  VALUE 

IN 

4 

S 

C 

IS  SUPPLIED  BY  SUBROUTINE  GF . 

IN 

5 

6 

C 

IN 

6 

7 

DATA  NX . NM , NTS . RX/1 . 65536 . 4 . 1 . E-4/ 

IN 

7 

8 

Z=EL1 

IN 

8 

9 

ZE=EL2 

IN 

9 

10 

IF  (IJ.EQ.O)  ZE=0 . 

IN 

10 

1 1 

S=ZE-Z 

IN 

1  1 

12 

FNM=NM 

IN 

12 

13 

EP=S/ ( 1 0 . • FNM ) 

IN 

13 

14 

ZEND=ZE-EP 

IN 

14 

15 

SGR=0 . 

IN 

15 

16 

SGI=0. 

IN 

16 

17 

NS=NX 

IN 

17 

18 

NT=0 

IN 

18 

19 

CALL  GF  (Z.G1R.G1I) 

IN 

19 

20 

1 

FNS=NS 

IN 

20 

21 

DZ=S/FNS 

IN 

21 

22 

ZP=Z+DZ 

IN 

22 

23 

IF  (ZP-ZE)  3,3.2 

IN 

23 

24 

2 

DZ=ZE-Z 

IN 

24 

25 

IF  (ABS(DZ)-EP)  17,17.3 

IN 

25 

26 

3 

DZOT=DZ» .5 

IN 

26 

27 

ZP=Z+DZOT 

IN 

27 

28 

CALL  GF  (ZP.G3R.G3I) 

IN 

28 

29 

ZP=Z+DZ 

IN 

29 

30 

CALL  GF  (ZP.G5R.G5I) 

IN 

30 

31 

4 

T00R=(G1 R+G5R) *DZOT 

IN 

31 

32 

T00I=(G1 I+G5I) *DZOT 

IN 

32 

33 

T01 R=(TOOR+DZ*G3R) *0 . 5 

IN 

33 

34 

T01 I=( T00I+DZ*G3I) *0 . 5 

IN 

34 

35 

T 1 0R=( 4 . 0  *  T0 1 R-TOOR )/3 . 0 

IN 

35 

36 

T1 0I=( 4 . 0*T01 I-T00I)/3 . 0 

IN 

36 

37 

c 

IN 

37 

38 

c 

TEST  CONVERGENCE  OF  3  POINT  ROMBERG  RESULT. 

IN 

38 

39 

c 

IN 

39 

40 

CALL  TEST  ( T01 R  .  T1 OR , TE1 R . T01 1 , T1 01 . TE1 1 ,0 . ) 

IN 

40 

41 

IF  (TE1I-RX)  5.5,6 

IN 

41 

42 

5 

IF  (TE1R-RX)  8.8,6 

IN 

42 

43 

6 

ZP=Z+DZ*0 . 25 

IN 

43 

44 

CALL  GF  (ZP.G2R.G2I) 

IN 

44 

45 

ZP=Z+0Z*0 . 75 

IN 

45 

46 

CALL  GF  (ZP.G4R.G4I) 

IN 

46 

47 

T02R=( T0 1 R+OZOT* ( G2R+G4R ) ) »0 . 5 

IN 

47 

48 

T02I=( T0 1 1+DZOT* ( G2I+G4I ) ) *0 . 5 

IN 

48 

49 

T1 1R=(4.0*T02R-T01R)/3.0 

IN 

49 

50 

T1 1 I=( 4 . 0*T02I-T01 I)/3 . 0 

IN 

50 

51 

T20R=( 1 6 . 0* T 1 1 R-T1 OR )/1 5 . 0 

IN 

51 

52 

T20I=( 1 6 . 0*T 1 1 1-T 1 01 ) /I  5 . 0 

IN 

52 

53 

C 

IN 

53 

54 

C 

TEST  CONVERGENCE  OF  5  POINT  ROMBERG  RESULT. 

IN 

54 

55 

C 

IN 

55 

56 

CALL  TEST  ( T 1 1 R , T20R , TE2R , T1 11, T20I , TE2I , 0 . ) 

IN 

56 

57 

IF  (TE2I-RX)  7.7,14 

IN 

57 

58 

7 

IF  (TE2R-RX)  9,9.14 

IN 

58 

59 

8 

SGR=SGR+T  1 0R 

IN 

59 

60 

SGI=SGI+T  1 01 

IN 

60 

61 

NT=NT+2 

IN 

61 

62 

GO  TO  10 

IN 

62 

63 

9 

SGR=SGR+T20R 

IN 

63 

64 

SGI=SGI+T20I 

IN 

64 

.1 

*> 
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65 

NT=NT-t-1 

IN 

65 

66 

10 

Z=Z+0Z 

IN 

66 

67 

IF  (Z-ZEND)  11,17,17 

IN 

67 

68 

11 

G1 R=G5R 

IN 

68 

69 

G1I=G5I 

IN 

69 

70 

IF  (NT-NTS)  1,12,12 

IN 

70 

71 

12 

IF  (NS-NX)  1,1,13 

IN 

71 

72 

C 

IN 

72 

73 

C 

DOUBLE  STEP  SIZE 

IN 

73 

74 

C 

IN 

74 

75 

13 

NS=NS/2 

IN 

75 

76 

NT=1 

IN 

76 

77 

GO  TO  1 

IN 

77 

78 

14 

NT=0 

IN 

78 

79 

IF  (NS-NM)  16,15,15 

IN 

79 

60 

15 

PRINT  20,  Z 

IN 

80 

61 

GO  TO  9 

IN 

81 

82 

C 

IN 

82 

83 

C 

HALVE  STEP  SIZE 

IN 

83 

84 

C 

IN 

84 

85 

16 

NS=NS*2 

IN 

85 

86 

FNS=NS 

IN 

86 

87 

DZ=S/FNS 

IN 

87 

88 

DZ0T=DZ*0 . 5 

IN 

88 

89 

G5R=G3R 

IN 

89 

90 

G5I=G3I 

IN 

90 

91 

G3R=C2R 

IN 

91 

92 

G3I=G2I 

IN 

92 

93 

GO  TO  4 

IN 

93 

94 

17 

CONTINUE 

IN 

94 

95 

IF  ( I J )  19,18,19 

IN 

95 

96 

C 

.  IN 

96 

97 

C 

A00  CONTRIBUTION  OF  NEAR  SINGULARITY  FOR  DIAGONAL  TERM 

IN 

97 

98 

C 

IN 

98 

99 

18 

SGR=2 . • ( SGR+A  LOG ( ( SQR  T ( B  *  B+S • S ) +S ) /B ) ) 

IN 

99 

100 

SGI=2 . *SGI 

IN 

100 

101 

19 

CONTINUE 

IN 

101 

102 

RETURN 

IN 

102 

103 

C 

IN 

103 

104 

20 

FORMAT  (24H  STEP  SIZE  LIMITED  AT  Z=,F10.5) 

IN 

104 

105 

END 

IN 

105- 
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I SEGNO 


PURPOSE 

To  determine  the  segment  number  of  the  mC^  segment  ordered  by  increasing 
segment  numbers  in  the  set  of  segments  with  tag  numbers  equal  to  the  given  tag 
number.  With  a  given  tag  of  zero,  segment  number  m  is  returned. 


METHOD 

Search  segments  consecutively  and  check  their  tag  numbers  against  a  given 

tag. 


SYMBOL  DICTIONARY 

I  “DO  loop  index 
ICNT  “  counter 

ITAGI  ■  input  tag  number  (given  tag) 

M  ■  input  quantity  specifying  the  position  in  the  set  of  segments 
with  the  given  tag 


CODE  LISTING 


t 

FUNCTION  ISEGNG  (ITAGI. MX) 

IS 

1 

2 

C 

IS 

2 

3 

C 

ISEGNO  RETURNS  THE  SEGMENT  NUMBER  OF 

THE  MTH 

SEGMENT  HAVING  THE 

IS 

3 

4 

C 

TAG  NUMBER  ITAGI.  IF  ITAGI=0  SEGMENT 

NUMBER 

M  IS  RETURNED. 

IS 

4 

5 

C 

IS 

5 

6 

COMMON  /DATA/  LD ,N1 ,N2 ,N ,NP ,M1 ,M2 ,M ,MP . X(300) , Y(300) , Z(300) , SI (300 

IS 

6 

7 

1 ) .81(300) ,ALP(300) ,BET(300) .IC0N1 (300) ,ICON2(300) ,ITAG(300) ,ICONX( 

IS 

7 

8 

2300 )  , WLAM , IPSYM 

IS 

8 

9 

IF  (MX .GT . 0)  GO  TO  1 

IS 

9 

10 

PRINT  6 

IS 

10 

11 

STOP 

IS 

1 1 

12 

1 

ICNT=0 

IS 

12 

13 

IF  (ITAGI. NE.0)  GO  TO  2 

IS 

13 

14 

ISEGN0=MX 

IS 

14 

15 

RETURN 

IS 

15 

16 

2 

IF  (N.LT.1)  GO  TO  4 

IS 

16 

17 

DO  3  1=1  ,  N 

IS 

17 

18 

IF  (ITAG(I).NE.ITAGI)  GO  TO  3 

IS 

18 

19 

ICNT=ICNT+1 

IS 

19 

20 

IF  (ICNT. EQ. MX)  GO  TO  5 

IS 

20 

21 

3 

CONTINUE 

IS 

21 

22 

4 

PRINT  7.  ITAGI 

IS 

22 

23 

STOP 

IS 

23 

24 

5 

ISEGN0=I 

IS 

24 

25 

RETURN 

IS 

25 

26 

C 

IS 

26 

27 

6 

FORMAT  (4X.91HCHECK  DATA.  PARAMETER  SPECIFYING  SEGMENT  POSITION  IN 

IS 

27 

28 

1  A  GROUP  OF  EQUAL  TAGS  MUST  NOT  BE  ZERO) 

IS 

28 

29 

7 

FORMAT  (///, 1 0X , 26HNO  SEGMENT  HAS  AN 

ITAG  OF 

.15) 

IS 

29 

30 

END 

IS 

30- 
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LFACTR 

PURPOSE 

To  perform  the  Gauss-Doollttle  factorization  calculations  on  two  blocks 
of  the  matrix  in  core  storage.  This  routine  in  conjunction  with  FACIO  factors 
a  matrix  that  is  too  large  for  core  storage  into  an  upper  and  lower  triangular 
matrix  using  the  Gauss-Doollttle  technique.  The  factored  matrix  is  used  by 
LUNSCR  and  LTSOLV  to  determine  the  solution  of  the  transposed  matrix  equation 


T.T 
x  A 


bt. 


METHOD 

The  basic  algorithm  used  in  this  routine  is  presented  by  Ralston  in 
ref.  1  on  pages  411-416.  A  brief  discussion  is  also  given  under  FACTR  in  this 
manual.  The  main  difference  between  LFACTR  and  FACTR  is  that  LFACTR  is  set  up 
to  perform  the  calculations  on  two  blocks  of  columns  of  the  transposed  matrix 
that  reside  in  core  storage.  This  situation  arises  when  the  matrix  is  too 
large  to  fit  in  core  at  one  time;  thus,  the  matrix  is  divided  into  blocks  of 
columns  and  stored  on  files.  This  matrix  is  then  factored  into  a  lower 
triangular  matrix  and  an  upper  triangular  matrix  by  the  subroutines  FACIO  and 
LFACTR.  The  function  of  these  two  subroutines  is  closely  tied  together: 

LFACTR  performs  the  mathematical  computations  involved  in  the  factorization, 
while  FACIO  controls  the  input  and  output  of  matrix  blocks  in  core  storage, 
and,  thus,  controls  the  necessary  block  ordering  input  to  LFACTR.  For 
clarification  of  the  ordering  of  matrix  blocks  during  factorization,  refer  to 
FACIO. 

The  computations  performed  in  LFACTR  are  slightly  different  for  three 
matrix  block  conditions:  (1)  block  numbers  1  and  2,  (2)  adjacent  matrix 
blocks,  and  (3)  non-adjacent  matrix  blocks.  If  the  blocks  are  numbers  1  and 
2,  both  blocks  are  factored,  and  the  computations  proceed  exactly  as  in 
FACTR.  The  only  difference  between  LFACTR  and  FACTR  here  is  that  the  two 
blocks  do  not  form  a  square  matrix,  and  the  row  and  column  indices  in  LFACTR 
have  not  been  interchanged  as  in  FACTR.  At  the  end  of  this  stage,  both  blocks 
1  and  2  are  completely  factored.  For  case  2,  where  the  blocks  are  adjacent 
in  the  matrix  and  other  than  1  and  2,  the  first  block  is  assumed  factored  and 
is  used  to  complete  the  factorization  of  the  partially  factored  second  block. 
The  computations  start  with  the  first  column  of  the  second  block  and  proceed 
as  in  FACTR  (with  the  exceptions  noted  above).  If  the  blocks  are  not 
adjacent  (case  3),  the  first  block  is  assumed  factored  and  is  used  to  partially 
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factor  Che  second  block.  Computations  start  with  the  first  column  of  the 
second  block.  Factorization  cannot  be  completed,  since  values  from  the 
intervening  columns  are  necessary. 


CODING 


Initialization  of  loop  parameters  for  the  various  matrix 
block  conditions. 

Loop  over  columns  to  be  factored  or  partially  factored. 
Write  column  of  A  in  scratch  vector  D. 

Computations  for  u^_  (see  FACTR) ,  where  positioning  for 
size  is  taken  into  account.  The  range  of  i  is  determined 
by  the  matrix  blocks  used. 

For  case  3,  the  partially  factored  column  is  stored  in  A, 
and  a  jump  to  LF100  is  made. 

For  cases  1  and  2,  the  maximum  value  in  the  column  is  found 
for  positioning. 

For  cases  1  and  2,  (see  FACTR)  is  calculated;  limits  on 
i  are  dependent  on  blocks. 


SYMBOL  DICTIONARY 


CONJG 


ELMAG 


array  which  contains  the  two  blocks  of  columns  of  the  transposed 

matrix  in  some  state  of  factorization 

external  routine  (conjugate  of  complex  numbers) 

scratch  vector,  temporary  storage  of  one  column 

maximum  value  in  column 

intermediate  variable 

DO  loop  index 

small  pivot  value  flag 

array  containing  positioning  information 
index 

first  block  number,  input 
second  block  number,  input 
DO  loop  index 
J  +  1 

DO  loop  limits 


J2  +  1 
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J2P2  -  J2  +  2 
K  *  DO  loop  Index 
LI 

L2  -  logical  variables  for  testing 

L3 

NCOL  •  number  of  columns 
NROW  -  number  of  rows 
PJ  -  intermediate  variables 

PR 

R  »  DO  loop  index 

REAL  ■  external  routine  (real  part  of  a  complex  number) 
Rll  «D0  loop  limits,  relative  column  number  limits  for 
R2 1  calculations 


In  programs  using  double  precision  accumulation  in  the  matrix  solution, 
the  following  double  precision  variables  are  used  in  LFACTR. 


DARI 

DAI1 

DAR2 

DAI2 

DR 

DI 


real  and  imaginary  parts  of  a  number  for  temporary  storage 

real  and  imaginary  vectors  replacing  the  complex  vector  D  in 
single  precision  programs 


CONSTANT 


l.E-10  ■  small  value  test 
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LFACTR 


1 

SUBROUTINE  LFACTR  (A .NROW. 1X1 . 1X2 . IP) 

LF 

1 

2 

C 

LF 

2 

3 

C 

LFACTR  PERFORMS  GAUSS-OOOLITTLE  MANIPULATIONS 

ON  THE  TWO  BLOCKS  OF 

LF 

3 

4 

C 

THE  TRANSPOSED  MATRIX  IN  CORE  STORAGE. 

THE  GAUSS-DOOLITTLE 

LF 

4 

S 

C 

ALGORITHM  IS  PRESENTED  ON  PAGES  411-416 

OF  A. 

RALSTON  —  A  FIRST 

LF 

5 

6 

C 

COURSE  IN  NUMERICAL  ANALYSIS.  COMMENTS 

BELOW 

REFER  TO  COMMENTS  IN 

LF 

6 

7 

C 

RALSTONS  TEXT. 

LF 

7 

S 

C 

LF 

8 

9 

COMPLEX  A.0.AJR 

LF 

9 

10 

INTEGER  R.R1 .R2.PJ.PR 

LF 

10 

1 1 

LOGICAL  L1.L2.L3 

LF 

1 1 

12 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK . NLAST , NBLSYM , NPSYM , NLSYM , IMAT , I 

LF 

12 

13 

1 CASX . NB8X . NPBX . NLBX . NBBL . NPBL . NLBL 

LF 

13 

14 

COMMON  /SCRATM/  0(600) 

LF 

14 

15 

DIMENSION  A(NR0W,1),  IP(NROW) 

LF 

15 

16 

IFLG=0 

LF 

16 

17 

C 

LF 

17 

18 

C 

INITIALIZE  R1  .R2.J1 . J2 

LF 

18 

19 

C 

LF 

19 

20 

LI =1X1 . EQ . 1 .AND. 1X2 . EQ . 2 

LF 

20 

21 

L2=( 1X2-1 ).EQ. 1X1 

LF 

21 

22 

L3=IX2 . EQ . NBLSYM 

LF 

22 

23 

IF  (LI)  GO  TO  1 

LF 

23 

24 

GO  TO  2 

LF 

24 

25 

1 

R1  =1 

LF 

25 

26 

R2=2*NPSYM 

LF 

26 

27 

J 1  =1 

LF 

27 

28 

J  2= —  1 

LF 

28 

29 

GO  TO  5 

LF 

29 

30 

2 

R1=NPSYM+1 

LF 

30 

31 

R2=2*NPSYM 

LF 

31 

32 

J1=( 1X1-1 )*NPSYM+1 

LF 

32 

33 

IF  (L2)  GO  TO  3 

LF 

33 

34 

GO  TO  4 

LF 

34 

35 

3 

J2=J 1 +NPSYM— 2 

LF 

35 

36 

GO  TO  5 

LF 

36 

37 

4 

J2=J 1 +NPSYM— 1 

LF 

37 

38 

5 

IF  (L3)  R2=NPSYM+NLSYM 

LF 

38 

39 

DO  16  R=R1 ,R2 

LF 

39 

40 

C 

LF 

40 

41 

C 

STEP  1 

LF 

41 

42 

c 

LF 

42 

43 

DO  6  K=J1  .NROW 

LF 

43 

44 

D(K)=A(K,R) 

LF 

44 

45 

6 

CONTINUE 

LF 

45 

46 

C 

LF 

46 

47 

C 

STEPS  2  ANO  3 

LF 

47 

48 

C 

LF 

48 

49 

IF  (LI .0R.L2)  J2=J2+1 

LF 

49 

50 

IF  ( J1 .GT. J2)  GO  TO  9 

LF 

50 

51 

IXJ=0 

LF 

51 

52 

DO  8  J=J1 , J2 

LF 

52 

53 

IXJ=IXJ+1 

LF 

53 

54 

P J=IP( J) 

LF 

54 

55 

AJR=0(P J ) 

LF 

55 

56 

A(J,R)=AJR 

LF 

56 

57 

D(PJ)=D(J) 

LF 

57 

58 

JP1=J+1 

LF 

58 

59 

DO  7  I=JP1 .NROW 

LF 

59 

60 

D(I)=D(I)-A(I.IXJ)»AJR 

LF 

60 

61 

7 

CONTINUE 

LF 

61 

62 

8 

CONTINUE 

LF 

62 

63 

9 

CONTINUE 

LF 

63 

64 

C 

LF 

64 
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05  C 

STEP  4 

LF 

65 

66  C 

LF 

66 

67 

J2P1=J2+1 

LF 

67 

68 

IF  (LI .0R.L2)  GO  TO  11 

LF 

68 

69 

IF  (NR0W.LT.J2P1)  GO  TO  16 

LF 

69 

70 

00  10  I=J2P1,NR0W 

LF 

70 

71 

A(I.R)=D(I) 

LF 

71 

72  10 

CONTINUE 

LF 

72 

75 

GO  TO  16 

LF 

75 

74  11 

DMAX*REAL(D(J2P1)*C0NJG(D(J2P1))) 

LF 

74 

75 

IP(J2P1)*J2P1 

LF 

75 

76 

J2P2=J2+2 

LF 

76 

77 

IF  ( J2P2.GT .NROW)  GO  TO  15 

LF 

77 

78 

DO  12  I=J2P2,NR0W 

LF 

78 

79 

ELMAG=REAL(D(I)*CONJG(D(I) ) ) 

LF 

79 

80 

IF  (ELMAG.LT.DMAX)  GO  TO  12 

LF 

80 

81 

DMAXsELMAG 

LF 

81 

82 

IP(J2P1)=I 

LF 

82 

85  12 

CONTINUE 

LF 

85 

84  15 

CONTINUE 

LF 

84 

85 

IF  (0MAX.LT.1 .E-10)  IFLG=1 

LF 

85 

86 

PR=IP(J2P1) 

LF 

86 

87 

A( J2P1 ,R)=0(PR) 

LF 

87 

88 

D(PR)=0( J2P1) 

LF 

88 

89  C 

LF 

89 

90  C 

STEP  5 

LF 

90 

91  C 

LF 

91 

92 

IF  (J2P2.GT.NR0W)  GO  TO  15 

LF 

92 

95 

AJR=1 ./A(J2P1 ,R) 

LF 

95 

94 

DO  14  I=J2P2.NR0W 

LF 

94 

95 

A(I,R)*0(I)*AJR 

LF 

95 

96  14 

CONTINUE 

LF 

96 

97  15 

CONTINUE 

LF 

97 

98 

IF  (IFLG.EO.O)  CO  TO  16 

LF 

98 

99 

PRINT  17.  J2.0MAX 

LF 

99 

100 

IFLG=0 

LF 

100 

101  16 

CONTINUE 

LF 

101 

102 

RETURN 

LF 

102 

105  C 

LF 

105 

104  17 

FORMAT  ( 1 H  . 6HPIV0T( ,I5,2H)  =  ,E16.8) 

LF 

104 

105 

END 

LF 
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PURPOSE 

To  compute  the  Impedances  at  a  given  frequency  for  the  loading  specified 
by  LD  cards. 

METHOD 

The  value  of  XZ/A,  where  Z  is  the  total  impedance  on  a  segment  and  A  is 
the  length  of  the  segment,  is  computed  for  each  loaded  segment  and  stored  in 
the  array  ZARRAY.  The  proper  impedance  formula  is  chosen  by  the  value  of  the 
input  quantity  LDTYP.  These  computations  are  performed  from  the  sequence 
L074  to  L096  of  the  program,  and  the  formulas  are: 


LDTYP  -  0  (series  R,  L,  and  C): 


Z  -  R  +  jaiL  + 


z'  ■  t  Hr- *  J2*'  (I) + - —2 — 

\  M*)(D 

where  c  is  the  speed  of  light  and  R,  L,  and  C  are  input. 


LDTYP  ™  1  (parallel  R,  L,  and  C;  R,  L,  and  C  input) 


LDTYP  -  2  and  3  (same  as  above,  but  R/A,  L/A,  C/A  are  input) 


LDTYP  ■  4  (resistance  and  reactance  input): 


resistance  +  1  reactance 


LDTYP  -  5  (call  another  subroutine  for  wire  conductivity  calculation) 
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ABS  -  external  routine  (absolute  value  of  a  real  number) 

AIMAG  -  external  routine  (imaginary  part  of  a  complex  number) 

CMP LX  ■  external  routine  (forms  a  complex  number) 

ICHK  -  check  flag  in  diagnosing  data  errors 
ISTEP  *»  loading  card  subscript 

IWARN  ■  flag  checking  for  multiply  loaded  segments 

JUMP  -  LDTYP  +  1 

LDTAG  ■  tag  number,  input  quantity 

LDTAGF  -  input  quantity 

LDTAGS  -  LDTAG (ISTEP) 

LDTAGT  ■  Input  quantity 

LDTYP  *  input  quantity  specifying  loading  type 

NLOAD  ■  number  of  input  loading  data  cards 

PRNT  *  external  routine  (prints  the  impedance  data  in  a  table) 

REAL  -  external  routine  (takes  the  real  part  of  a  complex  number) 

TPCJ  ■  j2irc,  where  c  is  the  speed  of  light 

ZARRAY  -  array  containing  XZ/A  for  each  segment,  dimensioned  to  the 
maximum  number  of  segments 

ZINT  *  external  routine  (calculates  the  internal  impedance  of  a  finitely 
conducting  wire) 

ZLC  ■  input  quantities,  the  definitions  are  a  function  of  the  type  of 
ZLI  loading  specified.  For  the  case  of  series  RLC  (LDTYP  =■  0) : 

ZLR  ZLC  *  capacitance  (farads) ,  ZLI  ■  inductance  (henrys) ,  and 

ZLR  *  resistance  (ohms).  For  the  remaining  cases,  see  Part  III. 
ZT  ■  Z'  ■  XZ/A  for  one  segment;  however,  variable  name  is  used 
during  the  calculation  of  this  quantity 

CONSTANTS 

l.E-20  *  floating  point  zero  test 

(0.,  1. 88365 37 1E+9)  ■  j2nc,  where  c  is  the  velocity  of  light 
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SUBROUTINE  LOAD  ( LDTYP , LDTAG , LDTAGF , LDTAGT , ZLR , ZLI , ZLC) 

LOAD  CALCULATES  THE  IMPEDANCE  OF  SPECIFIED  SEGMENTS  FOR  VARIOUS 
TYPES  OF  LOADING 


COMPLEX  ZARRAY , ZT , TPC J , ZINT 

COMMON  /DATA/  LD.N1 , N2 .N ,NP ,M1 ,M2 ,M,MP , X(300) . Y(300) . Z(300) , SI( 300 
1 ) .01(300) , ALP (300) , BET (300) , IC0N1 (300) . ICON2(300) . ITAG(300) . ICONX( 
2300  )  ,  WL AM ,  IPSYM 

COMMON  /ZLOAD/  ZARRAY ( 300 ) , NLOAD , NLODF 

DIMENSION  LDTYP(I).  LDTAG( 1 ) ,  LDTAGF(l).  LDTAGT(I),  ZLR(1),  ZLI(1) 
t,  ZLC(t).  TPCJX(2) 

EQUIVALENCE  (TPCJ.TPCJX) 

DATA  TPCJX/O. ,1 . 883698955E+9/ 

PRINT  HEADING 


PRINT  25 

INITIALIZE  D  ARRAY.  USED  FOR  TEMPORARY  STORAGE  OF  LOADING 
INFORMATION. 

DO  1  I=N2 , N 
ZARRAY(I)=(0. .0.) 

IWARN=0 

CYCLE  OVER  LOADING  CARDS 

ISTEP=0 

ISTEP=ISTEP+1 

IF  (ISTEP.LE. NLOAD)  GO  TO  5 
IF  (IWARN.EQ.1)  PRINT  26 
IF  (N1+2»M1 .GT.O)  GO  TO  4 
NOP=N/NP 

IF  (N0P.EQ.1)  GO  TO  4 
DO  3  1=1 , NP 
ZT=ZARRAY(I) 

L1=I 

DO  3  L2=2 , NOP 
L1=L1+NP 
ZARRAY(L1 )=ZT 
RETURN 

IF  (LDTYP(ISTEP) .LE.5)  GO  TO  6 
PRINT  27.  LDTYP(ISTEP) 

STOP 

LDTAGS=LDTAG(ISTEP) 

JUMP=LDTYP(ISTEP)+1 

ICHK=0 

SEARCH  SEGMENTS  FOR  PROPER  ITAGS 

L1=N2 

L2=N 

IF  (LDTAGS.NE.O)  GO  TO  7 

IF  ( LDTAGF ( ISTEP) . EO.O .AND. LDTAGT ( ISTEP) . EO.O)  GO  TO  7 
L1=LDTAGF(ISTEP) 

L2=LDTAGT( ISTEP) 

IF  (LI .GT.N1)  GO  TO  7 

PRINT  29 

STOP 

DO  17  I=L 1 , L2 

IF  (LDTAGS.EQ.O)  GO  TO  8 

IF  ( LDTAGS . NE . ITAG(  I ) )  GO  TO  17 


LO  9 
LO  10 
LO  11 
LO  12 
LO  13 
LO  14 
LO  IS 
LO  16 
LO  17 
LO  18 
LO  19 
LO  20 
LO  21 
LO  22 
LO  23 
LO  24 
LO  25 
LO  26 
LO  27 
LO  28 
LO  29 
LO  30 
LO  31 
LO  32 
LO  33 
LO  34 
LO  35 
LO  36 
LO  37 
LO  38 
LO  39 
LO  40 
LO  41 
LO  42 
LO  43 
LO  44 
LO  45 
LO  46 
LO  47 
LO  48 
LO  49 
LO  50 
LO  51 
LO  52 
LO  53 
LO  54 
LO  55 
LO  56 
LO  57 
LO  58 
LO  59 
LO  60 
LO  61 
LO  62 
LO  63 
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71 
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73 
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80 
81 
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84 
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86 

87 

88 
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92 
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105 

106 
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IF  (LDTAGF(ISTEP).EQ.O)  GO  TO  8  10 

ICHKsICHK+1  LO 

IF  ( ICHK . GE . LDT AGF ( ISTEP ) . AND . ICHK . LE . LDT AGT ( ISTEP ) )  GO  TO  9  LO 

GO  TO  17  LO 

ICHKsI  LO 

LO 

CALCULATION  OF  LAMDA'IMPED.  PER  UNIT  LENGTH.  JUMP  TO  APPROPRIATE  LO 
SECTION  FOR  LOADING  TYPE  LO 

LO 

GO  TO  (10.11.12.13,14.15),  JUMP  LO 

ZT=ZLR(ISTEP)/SI(I)+TPCJ»ZLI(ISTEP)/(SI(I)»WLAM)  LO 

IF  (ABS(ZLC( ISTEP) ) .GT . 1 . E— 20)  ZT=ZT+WLAM/(TPCJ»SI( I) *ZLC(ISTEP) )  LO 
GO  TO  16  LO 

ZT=TPCJ*SI(  I)*ZLC(  ISTEP)/Vn.AM  LO 

IF  (ABS(ZLI( ISTEP) ) .GT . 1 . E-20)  ZT=ZT+SI(I)»WLAM/(TPCJ»ZLI(ISTEP) )  LO 
IF  (ABS(ZLR(ISTEP))-GT. 1 .E-20)  ZT=ZT+SI(I)/ZLR(ISTEP)  LO 

ZT=1 ,/ZT  LO 

GO  TO  16  LO 

ZT=ZLR ( 1ST EP)*WLAM+TPCJ*ZLI( ISTEP )  LO 

IF  (ABS(ZLC(ISTEP) ) . GT . 1 . E-20)  ZT=ZT+1 ./(TPCJ*SI(I)«SI(I)*ZLC(ISTE  LO 
IP))  LO 

GO  TO  16  LO 

ZT=TPCJ*SI(I)*SI(I)*ZLC(ISTEP)  LO 

IF  (ABS(ZLI(ISTEP) ) . GT . 1 . E-20)  ZT=ZT+1 ./( TPCJ*ZLI( ISTEP) )  LO 

IF  (ABS(ZLR(ISTEP) ) . GT . 1 . E-20)  ZT=ZT+1 . /(ZLR( ISTEP )*WLAM)  LO 

ZT=1 ./ZT  LO 

GO  TO  16  LO 

ZT=CMPLX(ZLR( ISTEP) , ZLI( ISTEP) )/SI( I)  LO 

GO  TO  16  LO 

ZT=ZINT(ZLR(ISTEP)*WLAM,BI(I) )  LO 

IF  ( (ABS(REAL(ZARRAY( I) ) )+A8S( AIMAG(ZARRAY(I) ) ) ) . GT . 1 . E— 20)  IWARN=  LO 
1 1  LO 

ZARRAY(I)=ZARRAY(I)+ZT  LO 

CONTINUE  LO 

IF  (ICHK.NE.O)  GO  TO  18  LO 

PRINT  28,  LDTAGS  LO 

STOP  LO 

LO 

PRINTING  THE  SEGMENT  LOADING  DATA,  JUMP  TO  PROPER  PRINT  LO 

LO 

GO  TO  (19,20.21,22,23,24),  JUMP  LO 

CALL  PRNT  (LDTAGS, LDTAGF( ISTEP ). LDTAGT( ISTEP) . ZLR( ISTEP ). ZLI( ISTEP  LO 
1).ZLC(ISTEP),0. .0..0..7H  SERIES. 7)  LO 

GO  TO  2  LO 

CALL  PRNT  (LDTAGS, LDTAGF(ISTEP) , LDTAGT( ISTEP) .ZLR(ISTEP) ,ZLI(ISTEP  LO 
1  )  .ZLC(ISTEP) ,0. ,0. .0. .8HPARALLEL.8)  LO 

GO  TO  2  LO 

CALL  PRNT  (LDTAGS, LDTAC-(ISTEP) .LDTAGT(ISTEP) .ZLR(ISTEP) ,ZLI(ISTEP  LO 
1 ) ,ZLC( ISTEP) ,0 . ,0 . ,0 . , 1 8HSERIES  (PER  METER), 18)  LO 

GO  TO  2  LO 

CALL  PRNT  (LDTAGS, LDTAGF( ISTEP) , LDTAGT( ISTEP) ,ZLR( ISTEP) , ZLI( ISTEP  LO 
1 ) ,ZLC( ISTEP) ,0. ,0. ,0. . 20HPARALLEL  (PER  METER) .20)  LO 

GO  TO  2  LO 

CALL  PRNT  (LDTAGS, LDTAGF( ISTEP) , LDTAGT( ISTEP ),0. ,0. ,0. ,ZLR( ISTEP),  LO 
1ZLI( ISTEP) ,0. , 15HFIXED  IMPEDANCE , 1 5)  LO 

GO  TO  2  LO 

CALL  PRNT  (LDTAGS. LDTAGF(ISTEP) , LDTAGT(ISTEP) ,0. .0. ,0. .0. .0. ,ZLR(I  LO 
ISTEP), 6H  WIRE, 6)  LO 

GO  TO  2  LO 

LO 

FORMAT  (// , 7X . 8HL0CATI0N , 1 0X , 1 0HRESISTANCE . 3X . 1 0HINDUCTANCE , 2X , 1 1 H  LO 
1  CAPACITANCE ,7X , 1 6HIMPEDANCE  (OHMS ) , 5X . 1 2HC0NDUCTIVITY , 4X , 4HTYPE ./.  LO 
24X , 4HITAG , 1 0H  FROM  THRU , 1 0X , 4H0HMS . 8X , 6HHENRYS , 7X , 6HFARADS , 8X , 4HRE  LO 
3AL , 6X .9HIMAGINARY , 4X , 1 OHMHOS/METER)  LO 


64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 
»0 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 
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128 

26 

129 

130 

27 

131 

132 

28 

133 

134 

29 

135 

136 

FORMAT  (/, 10X ,  74HNOTE ,  SOME  OF  THE  ABOVE  SEGMENTS  HAVE  BEEN  LOAOED  LO  12B 


1  TWICE  -  IMPEDANCES  ADDED) 


LO  129 


FORMAT  (/ , 1 0X , 46HIMPR0PER  LOAD  TYPE  CHOOSEN,  REQUESTED  TYPE  IS  ,13  LO  130 


LO  131 


FORMAT  (/ , 1 0X , SOHLOADING  DATA  CARD  ERROR,  NO  SEGMENT  HAS  AN  ITAG  =  LO  1 32 


1  .15) 


LO  133 


FORMAT  ( 63H  ERROR  -  LOADING  MAY  NOT  BE  ADDED  TO  SEGMENTS  IN  N.G.F.  LO  134 
1  SECTION)  L0  135 

END  LO  136- 
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LTSOLV 

PURPOSE 

To  solve  the  matrix  equation  X  LU  *  B  ,  where  R  denotes  a  row  vector 
and  L  and  U  are  the  lower  and  upper  triangular  matrices  stored  as  blocks  on 
files. 

METHOD 

The  L  and  U  triangular  matrices  are  written  in  a  square  array,  where  the 
l's  on  the  diagonal  of  the  L  matrix  are  suppressed.  The  array  is  stored  by 
blocks  of  columns  in  ascending  order  on  file  IFLl  and  descending  order  on  file 
IFL2.  The  solution  procedure  is  as  follows.  First  solve  the  equation 


Y^U  -  BR 


(1) 


then 


x\  -  YR  , 


(2) 


since  XRLU  *  BR. 
straightforward , 
equation  ( 1) , 


The  solutions  of  equations  ( 1)  and  ( 2)  are 
since  both  matrices  are  triangular.  In  particular  for 


j  ”  1»  • « « i  n 


-TSOLV 


S 

9 


% 


2 


and  similarly  for  equation  (2). 

Several  right-hand  side  vectors  may  be  stored  in  the  two  dimensional 
array  B.  The  forward  and  backward  substitution  is  then  done  on  each  vector  in 
the  loops  from  LT  23  to  LT  34  and  LT  43  to  LT  56.  This  can  be  much  faster 
than  calling  LTSOLV  for  each  vector  since  the  files  IFLl  and  IFL2  are  read 
only  once.  This  feature  is  used  in  computing  A_1B  for  the  NGF  solution.  It 
is  not  used  with  the  multiple  excitations  for  a  receiving  pattern  or  to 
compute  the  driving  point  interaction  matrix  in  NETWK  but  could  reduce  the 
out-of-core  solution  time  in  these  cases. 
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Row  interchanges  were  used  to  position  elements  for  size  in  factoring 
the  transposed  structure  matrix;  therefore,  the  elements  in  the  solution 

P 

vector  X  are  not  in  the  original  locations.  Using  the  IX  array  (filled  by 
LUNSCR) ,  the  vector  can  be  put  back  into  the  original  order.  The  integer 
contained  in  IX(J)  is  the  index  of  the  original  location  of  the  parameter  now 

in  the  jth  location.  The  solution  vector  is  overwritten  on  the  input 

•  •  R 

right-hand  side  vector  B  . 

SYMBOL  DICTIONARY 

A  ”  array  for  matrix  blocks 

£ 

B  *  B  ,  right-hand  side  and  solution 

12  *  number  of  words  in  a  block 

IFLl  *  file  with  blocks  in  normal  order 

IFL2  •  file  with  blocks  in  reversed  order 

IX  *  solution  unscramble  vector 

IXBLK1  *  block  number 

J  ■  row  index 

JST  *  initial  value  for  J 

K2  *  number  of  columns  in  a  block 

KP  ■  column  index 

NEQ  *  total  number  of  equations 

NRH  *  number  of  right-hand  side  vectors  in  B 

NROW  »  row  dimension  of  A  (number  of  equations  in  a  symmetric  section) 

SUM  *  summation  result 
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1  SUBROUTINE  LTSOLV  (A. NROW. IX. B.NEQ.NRH.IFL1  ,IFL2)  LT  1 

2  C  LT  2 

3  C  LTSOLV  SOLVES  THE  MATRIX  EQ.  Y(R) *LU(T)=B(R)  WHERE  (R)  DENOTES  ROW  LT  3 


4  C 

VECTOR  AND  LU(T)  DENOTES  THE  LU  DECOMPOSITION 

OF  THE 

TRANSPOSE  OF 

LT 

4 

s  c 

THE  ORIGINAL  COEFFICIENT  MATRIX.  THE  LU(T)  DECOMPOSITION  IS 

LT 

5 

6  C 

STORED  ON  TAPE  5  IN  BLOCKS  IN  ASCENDING  ORDER 

AND  ON 

FILE  3  IN 

LT 

6 

7  C 

BLOCKS  OF  DESCENDING  ORDER. 

LT 

7 

8  C 

LT 

8 

9 

COMPLEX  A.B.Y.SUM 

LT 

9 

10 

COMMON  /Matpar/  icase .NBLOKS .npblk .nlast .nblsym. npsym 

I.NLSYM,  IMAT ,  I 

LT 

10 

11 

1 CASX .  NBBX ,  NPBX .  NLBX ,  NBBL ,  NPBL .  NLBL 

LT 

11 

12 

COMMON  /SCRATM/  Y(600) 

LT 

12 

13 

DIMENSION  A(NROW.NROW) ,  B(NEQ.NRH),  IX(NEQ) 

LT 

13 

14  C 

LT 

14 

15  C 

FORWARD  SUBSTITUTION 

LT 

15 

16  C 

LT 

16 

17 

I2=2*NPSYM*NROW 

LT 

17 

18 

DO  4  IXBLK1=1 .NBLSYM 

LT 

18 

19 

CALL  BLCKIN  (A.IFL1 , 1 , 12 . 1 , 121 ) 

LT 

19 

20 

K2=NPSYM 

LT 

20 

21 

IF  (IXBLK1 .EQ. NBLSYM)  K2=NLSYM 

LT 

21 

22 

JST=( IXBLK1-1 ) ‘NPSYM 

LT 

22 

23 

DO  4  IC=1 ,NRH 

LT 

23 

24 

JaJST 

LT 

24 

25 

DO  3  K=1 , K2 

LT 

25 

26 

JM1*J 

LT 

26 

27 

JaJ+1 

LT 

27 

28 

SUM=(0. >0.) 

LT 

28 

29 

IF  (JM1 .LT.1 )  GO  TO  2 

LT 

29 

30 

00  1  1*1, JM1 

LT 

30 

31  1 

SUM=SUM+A( I , K) *B( I , IC) 

. 

LT 

31 

32  2 

B(J.IC)=(B(J,IC)-SUM)/A(J.K) 

LT 

32 

33  3 

'  CONTINUE 

LT 

33 

34  4 

CONTINUE 

LT 

34 

35  C 

LT 

35 

36  C 

BACKWARD  SUBSTITUTION 

LT 

36 

37  C 

• 

LT 

37 

38 

JST=NR0W+1 

LT 

38 

39 

DO  8  IX8LK1=1 .NBLSYM 

LT 

39 

40 

CALL  BLCKIN  (A . IFL2 . 1 . 12 . 1 . 1 22) 

LT 

40 

41 

K2=NPSYM 

LT 

41 

42 

IF  (IXBLK1 .EQ.1)  K2=NLSYM 

LT 

42 

43 

DO  7  IC=1 ,NRH 

LT 

43 

44 

KP*K2+1 

LT 

44 

45 

JsJST 

LT 

45 

46 

DO  6  K=1 ,K2 

LT 

46 

47 

KP=KP— 1 

LT 

47 

48 

JP1=J 

LT 

48 

49 

J=J-1 

LT 

49 

50 

SUM=(0. ,0.) 

LT 

50 

51 

IF  (NROW.LT. JP1 )  GO  TO  6 

LT 

51 

52 

DO  5  I=JP1,NR0W 

LT 

52 

53  5 

SUM=SUM+A (I,KP)*B(I,IC) 

LT 

S3 

54 

B( J , IC)=B( J , IC)-SUM 

LT 

54 

55  6 

CONTINUE 

LT 

55 

56  7 

CONTINUE 

LT 

56 

57  8 

JST*JST-K2 

LT 

57 

58  C 

LT 

58 

59  C 

UNSCRAMBLE  SOLUTION 

LT 

59 

60  C 

LT 

60 

61 

DO  10  IC=1 ,NRH 

LT 

61 

62 

DO  9  1*1 .NROW 

LT 

62 

63 

IXI*IX(I) 

LT 

63 

64  9 

Y(IXI)*B(I,IC) 

LT 

64 
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65 

66  10 

67 

68 


DO  10  1=1 ,NR0W 

B(I.IC)=Y(I) 

RETURN 

END 


LT  65 
LT  66 
LT  67 
LT  68- 
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LUNSCR 

LUNSCR 

PURPOSE 

To  unscramble  the  lower  triangular  matrix  of  the  factored  out-of-core 
matrix  and  to  determine  the  appropriate  ordering  of  the  unknowns.  The 
unscrambled  factored  matrix  Is  written  in  blocks  on  file  IU3  in  ascending  order 
and  on  file  1U4  in  descending  order. 


METHOD 

During  factorization  by  LFACTR,  the  elements  in  the  lower  triangular 
matrix  L  were  not  explicitly  arranged  in  accordance  with  the  row  interchanges 
used  in  positioning  for  size  during  the  calculations.  Specifically,  as  the 
factorization  proceeds  by  columns  from  left  to  right  in  the  matrix,  row 
rearrangements  in  the  r1"*1  column  are  not  explicitly  performed  in  the  left 
r  -  1  columns;  rather,  positioning  information  is  stored  in  the  IP  array. 

For  the  in-core  calculations,  these  rearrangements  are  included  during  the 
final  solution  (subroutine  SOLVE).  For  the  out-of-core  case,  rearrangement 
during  the  solution  (subroutine  LTSOLV)  is  inconvenient,  since  the  transposed 
system  xrAC  ■  Br  is  being  solved,  where  r  signifies  a  row  vector. 

•  The  procedure  for  unscrambling  the  L  matrix  is  as  follows,  p,  is  the 

til  " 

positioning  information  contained  in  IP(K).  Then  for  the  r  column,  let  t 
be  a  temporary  variable: 


l  overwrites  l, 

Pk»r  k,r 

t  overwrites  i  for  k  =  r  +  1 . n-1 

Pk»r 

Since  row  interchanges  were  used  on  the  transposed  matrix,  the  positions 
of  the  unknowns  in  the  equations  have  changed.  The  final  arrangement  is 
determined  by  performing  interchanges  on  a  vector  of  integers.  Specifically, 
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x  overwrites  x, 
pk  k 

t  overwrites  x  for  k  ■  1,  ....  n 

pk 

The  integer  now  contained  in  x^  specifies  the  original  placement  of  the 
iC^  unknown. 

SYMBOL  DICTIONARY 

A  *  array  for  matrix  blocks 

11  ■  first  word  of  matrix  block 

12  ■  last  word  of  matrix  block 

IP  ■  array  of  pivot  index  data 

IU2  ■  input  file 

IU3  *  output  file,  blocks  in  normal  order 

IU4  ■  output  file,  blocks  in  reversed  order 

IX  ■  array  x^ 

IXBLK1  ■  block  number 

KA  »  increment  to  locate  the  KK  submatrix  in  case  of  symmetry 

NOP  m  number  of  symmetric  sections 

NROW  »  row  dimension  of  A 


I1 


i 


1 

SUBROUTINE  LUNSCR  ( A . NROW, NOP , IX . IP , IU2 . IU3 , IU4) 

LU 

LUNSCR 

1 

2 

C 

LU 

2 

3 

C 

S/R  WHICH  UNSCRAMBLES.  SCRAMBLED  FACTORED  MATRIX 

LU 

3 

4 

C 

LU 

4 

5 

COMPLEX  A, TEMP 

LU 

5 

6 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK , NLAST , NBLSYM , NPSYM , NLSYM , IMAT , I  LU 

6 

7 

1 CASX . NBBX . NPBX . NLBX . NBBL , NPBL . NLBL 

LU 

7 

8 

DIMENSION  A(NROW.I),  IP ( NROW) .  IX(NROW) 

LU 

8 

9 

11*1 

LU 

9 

10 

I2=2*NPSYM*NROW 

LU 

10 

11 

NM1=NR0W-1 

LU 

11 

12 

REWIND  IU2 

LU 

12 

13 

REWIND  IU3 

LU 

13 

14 

REWIND  IU4 

LU 

14 

15 

DO  9  KK=1 ,NOP 

LU 

15 

16 

KA=(KK-1)»NROW 

LU 

16 

17 

DO  4  IX0LK1=1 .NBLSYM 

LU 

17 

18 

CALL  BLCKIN  (A. IU2 . 11 . 12 . 1 , 1 21 ) 

LU 

18 

19 

K1=(IXBLK1-1 )*NPSYM+2 

LU 

19 

20 

IF  (NM1.LT. K1)  GO  TO  3 

LU 

20 

21 

J2=0 

LU 

21 

22 

00  2  K=K1  ,  NM1 

LU 

22 

23 

IF  (J2.LT. NPSYM)  J2=J2+1 

LU 

23 

24 

IPK=IP(K+KA) 

LU 

24 

25 

DO  1  J*1 . J2 

LU 

25 

26 

TEMP=A(K, J) 

LU 

26 

27 

A(K , J )=A( IPK, J ) 

LU 

27 

28 

A(IPK.J)=TEMP 

LU 

28 

29 

1 

CONTINUE 

LU 

29 

30 

2 

CONTINUE 

LU 

30 

31 

3 

CONTINUE 

LU 

31 

32 

CALL  BLCKOT  (A . IU3 . 11 . 12 . 1 . 1 22) 

LU 

32 

33 

4 

CONTINUE 

LU 

33 

34 

DO  5  IXBLK1 =1 .NBLSYM 

LU 

34 

35 

BACKSPACE  IU3 

LU 

35 

36 

IF  (IXBLK1 .NE.1)  BACKSPACE  IU3 

LU 

36 

37 

CALL  BLCKIN  (A . IU3 , 11 . 12 . 1 . 1 23) 

LU 

37 

38 

CALL  BLCKOT  (A, IU4 . 11 . 12 . 1 . 1 24) 

LU 

38 

39 

5 

CONTINUE 

LU 

39 

40 

DO  6  1=1 .NROW 

LU 

40 

41 

IX(I+KA)=I 

LU 

41 

42 

6 

CONTINUE 

LU 

42 

43 

DO  7  1=1 .NROW 

LU 

43 

44 

IPI=IP(I+KA) 

LU 

44 

45 

IXT=IX(I+KA) 

LU 

45 

46 

IX ( I+KA ) =IX ( IP I+KA ) 

LU 

46 

47 

IX(IPI+KA)=IXT 

LU 

47 

48 

7 

CONTINUE 

LU 

48 

49 

IF  (N0P.EQ.1)  GO  TO  9 

LU 

49 

50 

N01 =NBLSYM— 1 

LU 

50 

51 

C 

SKIP  NB1  LOGICAL  RECORDS  FORWARD 

LU 

51 

52 

DO  8  IXBLK1 =1 , NB1 

LU 

52 

53 

CALL  BLCKIN  (A . IU3 . 11 . 12 . 1 , 1 25) 

LU 

53 

54 

8 

CONTINUE 

LU 

54 

55 

9 

CONTINUE 

LU 

55 

56 

REWIND  IU2 

LU 

56 

57 

REWIND  IU3 

LU 

57 

58 

REWINO  IU4 

LU 

58 

59 

RETURN 

LU 

59 

60 

END 

LU 
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MOVE 

PURPOSE 

To  rotate  and  translate  a  previously  defined  structure,  either  moving 
original  segments  and  patches  or  leaving  the  original  fixed  and  producing  new 
segments  and  patches. 


METHOD 

The  formal  parameters  ROX,  ROY,  ROZ  are  the  angles  of  rotation  about 
the  x,  y,  and  z  axes,  respectively,  and  XS,  YS,  ZS  are  the  translation  dis¬ 
tances  in  the  x,  y,  and  z  directions.  Angles  are  in  radians,  and  a  positive 
angle  represents  a  right-hand  rotation.  The  structure  is  first  rotated  about 
the  x  axis  by  ROX,  then  about  the  y  axis  by  ROY,  then  about  the  z  axis  by  ROZ, 
and  finally  translated  by  XS,  YS,  ZS.  These  operations  transform  a  point  with 
coordinates  x,  y,  z  to  x',  y',  z',  where 


T 

11 

m 

COS  p 

cos 

9 

T 

12 

m 

COS  p 

sin 

9 

sin 

P  - 

sin 

<P  cos 

P 

T 

13 

m 

cos  p 

sin 

9 

cos 

P  + 

sin 

<p  sin 

P 

T 

21 

m 

sin  <p 

cos 

0 

T 

22 

m 

sin  <)> 

sin 

0 

sin 

P  + 

cos 

<P  cos 

P 

T 

23 

m 

sin  $ 

sin 

0 

cos 

~ 

cos 

ip  sin 

P 

T 

31 

m 

-  sin 

0 

T 

32 

m 

cos  9 

sin 

T 

33 

m 

cos  0 

cos 

P 

with 

p  -  ROX 

0  -  ROY 

p  -  ROZ 

X  -  XS 
s 


This  transformation  is  applied  to  those  wire  segments  from  segment 

number  i  to  the  last  defined  segment  in  COMMON/DATA/.  Thus,  if  i  is  greater 
s  s 

than  1,  the  segments  from  1  to  i  -  1  are  unaffected.  All  patches  are 

s 

transformed. 

NRPT  is  the  structure  repetition  factor.  If  NRPT  is  zero,  the  trans¬ 
formed  segment  and  patch  coordinates  overwrite  the  original  coordinates  so  that 
the  structure  is  moved  with  nothing  left  in  the  original  location.  If  NRPT 
is  greater  than  zero,  the  transformed  coordinates  are  written  on  the  ends  of 
the  arrays  in  COMMON/DATA/  and  the  process  repeated  NRPT  times  so  that  NRPT 
new  structures  are  formed,  each  shifted  from  the  previous  one  by  the  specified 
transformation,  while  the  original  structure  is  unchanged. 

CODING 

MO  18  Adjust  symmetry  flag  if  structure  is  rotated  about  the  x  or 

y  axis.  If  the  ground  plane  flag  is  also  set  on  the  GE 
card,  symmetry  will  not  be  used  in  the  solution. 

M019  -  M033  Compute  transformation  matrix. 

M037  -  M06I  Transform  segment  coordinates. 

M063  -  M093  Transform  patch  coordinates. 

M09A  -  M097  Set  parameters  to  no-symmetry  condition  if  NRPT  >  0  or 
IX  >  1. 

SYMBOL  DICTIONARY 

ABS  ■  external  routine  (absolute  value) 

COS  -  external  routine  (cosine) 

CPH  *  cos  <p 

CPS  -  cos  ¥ 

CTH  -  cos  0 

IR  *  DO  loop  index,  array  index  for  original  patch 
ISEGNO  *  external  routine  (searches  segment  tag  numbers) 

ITGI  ■  increment  applied  to  segment  tag  numbers  as  segments  are 
transformed 

ITS  *  i  is  the  first  occurring  segment  in  COMMON/DATA/  with  tag  ITS 
s 

IX  *  i 

s 

II  =  lower  DO  loop  limit  for  I  (initially  II  =  ig) 

K  *  increment  to  segment  number  for  transformed  segment 

KR  *  array  index  for  new  patch 
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LDI 

LD  +  1 

NRP 

upper  DO  loop  limit  for  IR 

NRPT 

repetition  factor 

ROX 

V  (radians) 

ROY 

6 

ROZ 

♦ 

SIN 

external  routine  (sine) 

SPH 

sin  $ 

SPS 

sin  V 

STH 

sin  6 

T1X 

T1Y 

m 

arrays  containing  components  of 

T1Z 

T2X 

T2Y 

m 

arrays  containing  components  of 

T2Z 

XI 

m 

old  x  coordinate 

XS 

m 

X 

s 

XX 

m 

T 

11 

XY 

m 

T 

12 

XZ 

m 

T 

13 

X2(I) 

m 

x  coordinate  of  end  2  of  segment 

YI 

m 

old  y  coordinate 

YS 

m 

ys 

YX 

m 

T 

21 

YY 

m 

T 

22 

YZ 

m 

T 

23 

Y2(I) 

m 

y  coordinate  of  end  2  of  segment 

ZI 

m 

old  Z  coordinate 

ZS 

m 

Z 

s 

ZX 

m 

T 

31 

ZY 

m 

T 

32 

ZZ 

m 

T 

33 

Z2(I) 

m 

Z  coordinate  of  end  2  of  segment 

Q» 
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1 

SUBROUTINE  MOVE  (ROX , ROY . ROZ ,XS , TS . ZS . ITS .NRPT . ITGI)  MO 

1 

2  C 

MO 

2 

3  C 

SUBROUTINE  MOVE  MOVES  THE  STRUCTURE  WITH  RESPECT  TO  ITS  MO 

3 

4  C 

COORDINATE  SYSTEM  OR  REPRODUCES  STRUCTURE  IN  NEW  POSITIONS.  MO 

4 

5  C 

STRUCTURE  IS  ROTATEO  ABOUT 

X.Y.Z  AXES  BY  ROX. ROY. ROZ  MO 

5 

6  C 

RESPECTIVELY.  THEN  SHIFTED 

BY  XS.YS.ZS  MO 

6 

7  C 

MO 

7 

8 

COMMON  /DATA/  LD.N1 ,N2,N,NP 

.Ml ,M2 ,M ,MP ,X(300) , Y(300) , Z( 300 ) , SI (300  MO 

8 

9 

1  ) ,BI(300) ,ALP(300) ,BET(300) 

. ICON 1(300), IC0N2 ( 300 ) . ITAG( 300 ) . ICONX (  MO 

9 

10 

2300 ) , WLAM , IPSYM 

MO 

10 

11 

COMMON  /ANGl/  SALP(300) 

MO 

11 

12 

DIMENSION  T1X(1 ) ,  T1Y(1).  T1Z(1).  T2X(1),  T2Y(1),  T2Z(1).  X2(1).  Y  MO 

12 

13 

12(0.  Z2(1) 

MO 

13 

14 

EQUIVALENCE  (X2( 1 ) ,SI( 1 ) ) . 

( Y2( 1 ) , ALP( 1 ) )  ,  (Z2( 1 ) . BET ( 1 ) )  MO 

14 

IS 

EQUIVALENCE  (T1X.SI),  (T1Y.ALP),  (T1Z.BET).  (T2X.IC0N1),  (T2Y.IC0N  MO 

15 

16 

12).  (T2Z.ITAG) 

MO 

16 

17 

IF  (ABS(R0X)+ABS(R0Y).GT.1 . 

E-10)  IPSYM=IPSYM*3  MO 

17 

18 

SPS=SIN(ROX) 

MO 

18 

19 

CP$=COS(ROX) 

MO 

19 

20 

STH=SIN(ROY) 

MO 

20 

21 

CTH=COS(ROY) 

MO 

21 

22 

SPH=SIN(ROZ) 

MO 

22 

23 

CPH=COS(ROZ) 

MO 

23 

24 

XX=CPH*CTH 

MO 

24 

25 

XY=CPH*STH*SPS— SPH’CPS 

MO 

25 

26 

XZ=CPH»STH*CPS+SPH*SPS 

MO 

26 

27 

YX=SPH*CTH 

MO 

27 

28 

YY=SPH*STH»SPS+CPH*CPS 

MO 

28 

29 

YZ=SPH*STH*CPS-CPH*SPS 

MO 

29 

30 

ZX=-STH 

MO 

30 

31 

ZY=CTH*SPS 

MO 

31 

32 

ZZ=CTH*CPS 

MO 

32 

33 

NRP=NRPT 

MO 

33 

34 

IF'  (NRPT.EQ.O)  NRP=1 

MO 

34 

35 

IF  (N.LT.N2)  GO  TO  3 

MO 

35 

36 

I1=ISEGN0( ITS , 1 ) 

MO 

36 

37 

IF  (11 . LT.N2)  I1=N2 

MO 

37 

38 

IX=I1 

MO 

38 

39 

K=N 

MO 

39 

40 

IF  (NRPT.EQ.O)  K=I1-1 

MO 

40 

41 

DO  2  IR=1 ,NRP 

MO 

41 

42 

DO  1  1=11 , N 

MO 

42 

43 

K=K+1 

MO 

43 

44 

XI=X(I) 

MO 

44 

45 

YI=Y(I) 

MO 

45 

46 

ZI=Z(I) 

MO 

46 

47 

X(K)=XI»XX+YI*XY+ZI*XZ+XS 

MO 

47 

48 

Y(K)=XI»YX+YI»YY+ZI*YZ+YS 

MO 

48 

49 

Z(K)=XI»ZX+YI«ZY+ZI»ZZ+ZS 

MO 

49 

50 

XI=X2(I) 

MO 

50 

51 

YI=Y2(I) 

MO 

51 

52 

ZI=Z2(I) 

MO 

52 

53 

X2(K)=XI*XX+YI*XY+ZI*XZ+XS 

MO 

53 

54 

Y2(K)»XI»YX+YI*YY+ZI»YZ+YS 

MO 

54 

55 

Z2(K)=XI»ZX+YI«ZY+ZI«ZZ+ZS 

MO 

55 

56 

BI(K)=BI(I) 

MO 

56 

57 

ITAG(K)=ITAG(I)+ITGI 

MO 

57 

56  1 

CONTINUE 

MO 

58 

59 

11 =N+1 

MO 

59 

60 

N=K 

MO 

60 

61  2 

CONTINUE 

MO 

61 

62  3 

IF  (M.LT.M2)  GO  TO  6 

MO 

62 

63 

I1=M2 

MO 

63 

64 

K=M 

MO 

64 
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65 

LDI=LD+1 

MO 

65 

66 

IF  (NRPT.EQ.O)  K=M1 

MO 

66 

67 

DO  5  11=1 ,NRP 

MO 

67 

68 

DO  4  1=11 ,M 

MO 

68 

69 

K=K+1 

MO 

69 

70 

IR=LDI-I 

MO 

70 

71 

KR=LDI-K 

MO 

71 

72 

XI=X(IR) 

MO 

72 

73 

YI=Y( IR) 

MO 

73 

74 

ZI=Z(IR) 

MO 

74 

75 

X(KR)=XI»XX+YI*XY+ZI*XZ+XS 

MO 

75 

76 

Y(KR)=XI*YX+YI»YY+ZI*YZ+YS 

MO 

76 

77 

Z(KR)=XI*ZX+YI»ZY+ZI*ZZ+ZS 

MO 

77 

78 

XI=T1X(IR) 

MO 

78 

79 

YI=T1Y(IR) 

MO 

79 

80 

ZI=T1Z(IR) 

MO 

80 

81 

T1X(KR)=XI«XX+YI»XY+ZI»XZ 

MO 

81 

82 

T1Y(KR)=XI*YX+YI*YY+ZI»YZ 

MO 

82 

83 

T1Z(KR)=XI*ZX+YI»ZY+ZI*ZZ 

MO 

83 

84 

XI=T2X(IR) 

MO 

84 

83 

YI=T2Y(IR) 

MO 

83 

86 

ZI=T2Z(IR) 

MO 

86 

87 

T2X(KR)=XI»XX+YI»XY+ZI*XZ 

MO 

87 

88 

T2Y(KR)=XI*YX+YI*YY+ZI*YZ 

MO 

88 

89 

T2Z(KR)=XI«ZX+YI*ZY+ZI»ZZ 

MO 

89 

90 

SALP(KR)=SALP(IR) 

MO 

90 

91  4 

BI(KR)=BI(IR) 

MO 

91 

92 

I1=M+1 

MO 

92 

93  S 

M=K 

MO 

93 

94  6 

IF  ((NRPT.EQ.O). AND. (IX. EQ . 1 ) )  RETURN 

MO 

94 

93 

NP=N 

MO 

95 

96 

MP=M 

MO 

96 

* 

97 

,  IPSYM=0 

MO 

97 

98 

RETURN 

MO 

98 

99 

END 

MO 

99- 
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NEFLD 


PURPOSE 

To  compute  the  near  electric  field  due  to  currents  induced  on  a  structure. 


CODING 


NE30  -  NE93 
NE30  -  NE4I 


NE42  -  NE93 
NE43  -  NE50 
NE51  -  NE85 


NE87 

NE88  -  NE93 


NE95  -  NE117 


Near  E  field  due  to  currents  on  segments  is  computed. 

Each  segment  is  checked  to  determine  whether  the  field 
observation  £oint  (XOB,  YOB,  ZOB)  falls  within  the  segment 
volume.  If  it  does,  AX  is  set  to  the  radius  of  that 
segment.  AX  is  then  sent  to  routine  EFLD  as  the  radius  of 
the  observation  segment.  If  (XOB,  YOB,  ZOB)  is  on  the  axis 
of  a  segment  at  its  center,  the  field  calculation  with  AX 
set  to  the  segment  radius  is  the  same  as  that  used  in 
filling  the  matrix. 

Loop  computing  the  field  contribution  of  each  segment. 
Parameters  of  source  segment  are  stored  in  COMMON / DATAJ / . 
When  the  extended  thin  wire  approximation  is  used,  IND1  is 
set  to  0  if  end  1  of  segment  I  is  connected  to  a  single 
parallel  segment  of  the  same  radius,  1  if  it  is  a  free  end, 
and  2  if  it  connects  to  a  multiple  junction,  a  bend,  or 
a  segment  of  different  radius.  IND2  is  the  same  for  end  2. 
If  IND1  or  IND2  is  2,  the  extended  thin  wire  approximation 
will  not  be  used  for  that  end. 

EFLD  stores  the  electric  fields  due  to  constant,  sin  ks, 
and  cos  ks  currents  in  COMMON / DATAJ / . 

The  field  components  are  multiplied  by  the  coefficients  of 
the  constant,  sin  ks,  and  cos  ks  components  of  the  total 
segment  current,  and  the  field  is  summed. 

Near  field  due  to  patch  currents  is  computed. 


SYMBOL  DICTIONARY 

A 

ACX  -  constant  component  of  segment  current  at  NE88;  t^  component  of 
patch  current  at  NE110 

AX  =  segment  radius  when  the  field  evaluation  point  falls  within  a 
segment  volume 

B  =  source  segment  radius 


BCX 

CCX 

EX 

EY 

EZ 

EXC 

ETC 

EZC 

EXK 

EYK 

EZK 

EXS 

EYX 

EZS 

IP 

T1X 

T1Y 

T1Z 

T1XJ 

T1YJ 

T1ZJ 

T2X 

T2Y 

T2Z 

T2XJ 

T2YJ 

T2ZJ 

XI 

I 

1 

XOB 

YOB 

ZOB 

ZP 


sin  ks  component  of  segment  current  at  NE89 ;  t^  component  of 
patch  current  at  NE111 

cos  ks  component  of  segment  current  at  NE90 
x,  y,  and  z  components  of  total  electric  field 


E  field  due  to  a  cos  ks  current  on  a  segment 


E  field  due  to  a  constant  current  at  NE87 ;  E  field  due  to  the 
component  of  patch  current  at  NE114 


E  field  due  to  a  sin  ks  current  at  NE87 ;  E  field  due  to  the  t^ 
component  of  patch  current  at  NE114 

loop  index  for  direct  and  reflected  field  (1,  2,  respectively) 

A 

arrays  for  t^ 

A 

t^  for  source  patch 

/\ 

arrays  for  t^ 

/\ 

t 2  for  source  path 

cosine  of  the  angle  between  segment  I  and  the  segment  connected 
to  its  end 

field  evaluation  point 

2 

coordinates  of  the  field  evaluation  point,  z  or  p  ,  in  a 
cylindrical  coordinate  system  centered  on  the  source  segment 


rt  > 


NEFLD 


CONSTANTS 

0.5001  ■  fraction  of  segment  length  used  to  test  whether  the  field 

evaluation  point  falls  within  a  segment 
0.9  -  fraction  of  segment  radius  used  to  test  whether  the  field 

evaluation  point  falls  within  a  segment 
0.999999  ■  minimum  XI  for  extended  thin  wire  kernel  (maximum  angle  * 
0.08  degree) 


-241- 


NEFLD 


1 

SUBROUTINE  NEFLD  (XOB , YOB . ZOB . EX , EY , EZ) 

NE 

1 

2 

C 

NE 

2 

3 

C 

NEFLD  COMPUTES  THE  NEAR  FIELD  AT  SPECIFIED  POINTS  IN  SPACE  AFTER 

NE 

3 

4 

c 

THE  STRUCTURE  CURRENTS  HAVE  BEEN  COMPUTED. 

NE 

4 

5 

c 

NE 

5 

6 

COMPLEX  EX . EY , EZ . CUR . ACX , BCX . CCX , EXK , EYK , EZK . EXS , EYS.EZS, EXC . EYC , E 

NE 

6 

7 

1ZC.ZRATI.ZRATI2.T1 .FRATI 

NE 

7 

8 

COMMON  /DATA/  LD.N1 , N2.N.NP.M1 ,M2 ,M,MP ,X(300) ,Y(300) ,Z(300) , SI (300 

NE 

8 

9 

1 )  .  BI( 300 )  .  ALP( 300 )  .  BET ( 300  )  .  IC0N1  (  300  )  .  IC0N2 (  300 )  .  ITAG(  300  )  .  ICONX ( 

NE 

9 

10 

2300 ) ,  WLAM , IPSYM 

NE 

10 

1 1 

COMMON  /ANGL/  SALP(300) 

NE 

11 

12 

COMMON  /CRNT/  AIR(300) ,AII(300) ,BIR(300) ,BII(300) ,CIR(300) ,CII(300 

NE 

12 

13 

1  ) , CUR(900) 

NE 

13 

14 

COMMON  /DATAJ/  S , B .X J . YJ , Z J ,CABJ .SAB J ,SALP J , EXK . EYK . EZK . EXS . EYS , EZ 

NE 

14 

IS 

1 S , EXC . EYC . EZC . RKH . I EXK , IND 1 . IND2 , IPGND 

NE 

15 

16 

COMMON  /GND/ZRATI . ZRATI2 . FRATI . CL , CH . SCRWL , SCRWR , NRADL . KSYMP . IFAR . 

NE 

16 

17 

1IPERF.T1 ,T2 

NE 

17 

18 

DIMENSION  CAB( 1 ) ,  SAB(1).  T1X(1),  T1Y(1).  T1Z(1),  T2X(1).  T2Y(1), 

NE 

18 

19 

1  T2Z(  1  ) 

NE 

19 

20 

EQUIVALENCE  (CAB. ALP).  (SAB. BET) 

NE 

20 

21 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP).  (T1Z.BET).  (T2X.IC0N1).  (T2Y.IC0N 

NE 

21 

22 

12).  (T2Z.ITAG) 

NE 

22 

23 

EQUIVALENCE  (T1XJ.CABJ),  (T1YJ.SABJ),  (T1ZJ .SALPJ) .  (T2XJ.B),  (T2Y 

NE 

23 

24 

1J.IND1).  (T2ZJ.IND2) 

NE 

24 

25 

EX=(0. ,0. ) 

NE 

25 

26 

EY=(0.,0.) 

NE 

26 

27 

EZ=(0. .0.) 

NE 

27 

28 

AX=0. 

NE 

28 

29 

IF  (N.EQ.O)  GO  TO  20 

NE 

29 

30 

DO  1  1=1  ,N 

NE 

30 

31 

X J=XOB— X( I) 

NE 

31 

32 

YJ=YOB-Y(I) 

NE 

32 

33 

ZJ=ZOB-Z(I) 

NE 

33 

34 

ZP=CAB(I)*XJ+SAB(I)*YJ+SALP(I)*ZJ 

NE 

34 

33 

IF  (ABS(ZP) .GT.O .5001  *SI(I) )  GO  TO  1 

NE 

35 

36 

ZP=X J*XJ+YJ*YJ+ZJ*Z J-ZP*ZP 

NE 

36 

37 

XJ=8I(I) 

NE 

37 

38 

IF  (ZP.GT.0.9*XJ*XJ)  GO  TO  1 

NE 

38 

39 

AX=XJ 

NE 

39 

40 

GO  TO  2 

NE 

40 

41 

1 

CONTINUE 

NE 

41 

42 

2 

DO  19  1=1 .N 

NE 

42 

43 

S=SI(I) 

NE 

43 

44 

8=81(1) 

NE 

44 

45 

XJ=X(I) 

NE 

45 

46 

YJ=Y(I) 

NE 

46 

47 

ZJ=Z(I) 

NE 

47 

48 

CAB J=CAB( I) 

NE 

48 

49 

SABJ=SAB(I) 

NE 

49 

50 

SALP J=SALP( I) 

NE 

SO 

51 

IF  (IEXK.EQ.O)  GO  TO  18 

NE 

51 

52 

IPR=IC0N1 (I) 

NE 

52 

53 

IF  (IPR)  3.8.4 

NE 

53 

54 

3 

IPR=-IPR 

NE 

54 

55 

IF  (-IC0N1 (IPR).NE.I)  GO  TO  9 

NE 

55 

56 

GO  TO  6 

NE 

56 

57 

4 

IF  (IPR.NE.I)  GO  TO  5 

NE 

57 

58 

IF  (CAB J*CAB J+SAB J*SAB J  . GT .  1  .  E-8 )  GO  TO  9 

NE 

58 

59 

GO  TO  7 

NE 

59 

60 

5 

IF  ( IC0N2( IPR) .NE . I)  GO  TO  9 

NE 

60 

61 

6 

XI=ABS(CABJ*CAB(IPR)+SABJ*SAB(IPR)+SALPJ*SALP(IPR)) 

NE 

61 

62 

IF  (XI. LT. 0.999999)  GO  TO  9 

NE 

62 

63 

IF  (ABS(BI(IPR)/B-1 . ) .GT . 1 . E-6)  GO  TO  9 

NE 

63 

64 

7 

IND 1=0 

NE 

64 

NEFLD 


•s 

GO  TO  10 

NE 

65 

66  8 

IND1=1 

NE 

66 

67 

GO  TO  10 

NE 

67 

68  9 

IND1=2 

NE 

68 

69  10 

IPR=IC0N2( I) 

NE 

69 

70 

IF  (IPR)  11,16,12 

NE 

70 

71  11 

IPR=-IPR 

NE 

71 

72 

IF  (-IC0N2(IPR) .NE.I)  GO  TO  17 

NE 

72 

73 

GO  TO  14 

NE 

73 

74  12 

IF  (IPR. NE.I)  GO  TO  13 

NE 

74 

75 

IF  (CABJ*CABJ+SABJ*SABJ .GT .  1 . E-8)  GO  TO  17 

NE 

75 

76 

GO  TO  15 

NE 

76 

77  13 

IF  (IC0N1( IPR). NE.I)  GO  TO  17 

NE 

77 

78  14 

XI=ABS(CABJ*CAB(IPR)+SABJ*SA8(IPR)+SALPJ*SALP(IPR)) 

NE 

78 

79 

IF  (XI. LT. 0.999999)  GO  TO  17 

NE 

79 

80 

IF  (ABS(BI(IPR)/B— 1 . ) .GT . 1 . E-6)  GO  TO  17 

NE 

80 

81  15 

IN02=0 

NE 

81 

82 

GO  TO  18 

NE 

82 

83  16 

IND2=1 

NE 

83 

64 

GO  TO  18 

NE 

84 

85  17 

IND2=2 

NE 

85 

86  18 

CONTINUE 

NE 

86 

87 

CALL  EFLO  (XOB , YOB ,ZOB . AX , 1 ) 

NE 

87 

88 

ACX=CMPLX(AIR(I) , AII(I) ) 

NE 

88 

89 

BCX=CMPLX(BIR( I) , BII(I) ) 

NE 

89 

90 

CCX=CMPLX(CIR(I),CII(I)) 

NE 

90 

91 

EX=EX+EXK*ACX+EXS«BCX+EXC»CCX 

NE 

91 

92 

EY=EY+EYK»ACX+EYS*BCX+EYC*CCX 

NE 

92 

93  19 

EZ=EZ+EZK»ACX+EZS*BCX+EZC*CCX 

NE 

93 

94 

IF  (M.EQ.O)  RETURN 

NE 

94 

95  20 

JC=N 

NE 

95 

96 

JL=LD+1 

NE 

96 

97 

00  21  1=1  ,M 

NE 

97 

98 

JL=JL— 1 

NE 

98 

99 

S=BI( JL) 

NE 

99 

100 

XJ=X( JL) 

NE 

100 

101 

YJ=Y( JL) 

NE 

101 

102 

Z J=Z( JL ) 

NE 

102 

103 

T1XJ=T1X( JL) 

NE 

103 

104 

T1YJ=T1Y(JL) 

NE 

104 

105 

T1 ZJ=T1 Z( JL) 

NE 

105 

106 

T2XJ=T2X( JL) 

NE 

106 

107 

T2YJ=T2Y( JL) 

NE 

107 

108 

T2ZJ=T2Z( JL) 

NE 

108 

109 

JC=JC+3 

NE 

109 

110 

ACX=T 1 X J*CUR( JC-2)+T1 Y J*CUR( JC-1 )+T1 Z J*CUR( JC) 

NE 

110 

1 1 1 

BCX=T2XJ*CUR( JC-2)+T2YJ*CUR( JC-f )+T2ZJ*CUR( JC) 

NE 

1 1 1 

112 

DO  21  IP=1 , KSYMP 

NE 

112 

113 

IPGND=IP 

NE 

113 

114 

CALL  UNERE  (XOB , YOB , ZOB) 

NE 

114 

115 

EX=EX+ACX»EXK+BCX»EXS 

NE 

115 

116 

EY=EY+ACX*EYK+BCX*EYS 

NE 

116 

117  21 

EZ=EZ+ACX*EZK+BCX*EZS 

NE 

117 

1 18 

RETURN 

NE 

118 

119 

END 

NE 

119- 
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NETWK 

NETWK 

PURPOSE 

To  solve  for  the  voltages  and  currents  at  the  ports  of  non-radiating 
networks  that  are  part  of  the  antenna.  This  routine  also  is  involved  in  the 
solution  for  current  when  there  are  no  non-radiating  networks,  and  computes 
the  relative  driving  point  matrix  asymmetry  when  this  option  is  requested. 

METHOD 

Driving  Point  Matrix  Asymmetry  (NT32  to  NT84): 

To  satisfy  physical  reciprocity,  the  elements  of  the  inverse  of  the  interac¬ 
tion  matrix  should  satisfy  the  condition 

Gij/AJ  "  Gji/Ai  i‘  j  "  1 . n  » 

where  ^  -  length  of  segment  i.  This  condition  is  not  satisfied  exactly, 
except  on  special  structures,  since  the  terms  computed  are  not  true  reactions. 
The  relative  asymmetry  of  a  matrix  element  is  defined  as 

A  .  (G4/AJ  GJiM*) 

A  -1 

<W 

The  code  from  NT32  to  NT84  computes  the  relative  asymmetries  of  matrix 
elements  for  i  and  j  of  all  driving  point  segments:  either  voltage  source 
driving  points  or  network  connection  points.  The  maximum  relative  asymmetry 
is  located,  and  the  rms  relative  asymmetry  of  all  elements  used  is  computed. 

LOCAL  CODING  STRUCTURE 

NT32  -  NT44  Determine  numbers  of  segments  that  are  network  connection 
points . 

NT46  -  NT54  Determine  numbers  of  segments  that  are  voltage  source 

driving  points.  Indices  of  segments  with  network  connec¬ 
tions  or  voltage  sources  are  stored  in  array  IPNT  with  no 
duplication  of  numbers. 

NT59  -  NT69  Compute  G^/A^  for  k,Jl  *  all  segment  numbers  in  IPNT. 

NT70  -  NT84  Compute  relative  asymmetries  of  elements  computed  above, 
search  for  maximum  and  compute  rms  asymmetry. 
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LOCAL  SYMBOL  DICTIONARY 


ASA  ■  sum  of  squares  of  relative  asymmetries  and  rms  value 

ASM  •  Aisci  before  NT70;  maximum  relative  asymmetry  after  NT69 

CMN(J.I)  -  G^jL/A^;  k  -  IPNT(J),  l  -  IPNT(I) 

CUR  «  temporary  storage  of  G^/A^ 

IPNT  ■  array  of  driving  point  segment  indices 

IR0W1  ■  number  of  entries  in  IPNT 

ISC1  *  temporary  storage  of  segment  index 

MASYM  ■  flag;  if  non-zero,  matrix  asymmetry  is  computed 

NTEQ  -  row  index  of  element  having  maximum  asymmetry 

NTSC  *  column  index  of  element  having  maximum  asymmetry 

PWR  -  relative  matrix  asymmetry 

RHS  -  vector  for  matrix  solution  used  in  obtaining  Gki 


Non-radiating  Network  Solution  (NT89  to  NT262) : 

The  solution  method  when  non-radiating  networks  are  present  is  discussed 
in  Part  I. 

Data  for  non- radiating  networks  is  passed  through  the  COMMON/NETCX/ 

where 

ISEGl(I)  ■  number  of  the  segment  to  which  end  1  of  I**1  two-port  network 
is  connected 

ISEG2(I)  -  number  of  segment  to  which  end  2  of  IC^  two-port  network  is 
connected 

NONET  ■  number  of  two-port  networks  for  which  data  is  given 


Network  parameters  are  contained  in  the  arrays  X11R,  XIII,  X12R,  X12I,  X22R, 
and  X22I,  and  the  type  of  network  is  determined  by  NTYP: 


If  NTYP  is  1  —  the  network  parameters  are  the  short-circuit  admittance 
parameters  of  the  network: 

X11R,  XIII  ■  real  and  imaginary  parts  of  Y^ 

X12R,  X12I  -  real  and  imaginary  parts  of  Y^  *  Y^^^ 

X22R,  X22I  -  real  and  imaginary  parts  of 


If  NTYP  is  2  or  3  —  the  network  is  a  transmission  line: 

X11R  -  characteristic  impedance  of  transmission  line 

XIII  -  length  of  transmission  line  in  meters 

X12R  -  real  part  of  shunt  admittance  on  end  1  of  line 
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X12I  ■  Imaginary  part  of  shunt  admittance  on  end  1  of  line 
X22R  ■  real  part  of  shunt  admittance  on  end  2  of  iine 
X22I  ■  imaginary  part  of  shunt  admittance  on  end  2  of  line 


If  NTYP  is  2  —  the  transmission  line  runs  straight  between  the  segments  with 
respect  to  the  segment  reference  directions. 

If  NTYP  is  3  —  the  transmission  line  is  twisted  as  shown  in  figure  8. 

The  short  circuit  admittance  parameters  of  the  transmission  line,  Y^, 
Y^.  andY22>  are  computed  from  NT110  to  NT120  in  the  code.  When  NTYP  is  3, 
the  sign  of  Y^  is  reversed. 

The  code  from  NT99  to  NT194  forms  a  loop  that  for  each  network:  computes 
the  network  parameters  Y^»  an<*  Y22’  sorts  t*ie  segment  indices  involved; 
and  adds  the  parameters  Y^,  Y^»  and  Y22  to  the  appropriate  network  equations. 
The  sorting  procedure  for  the  connection  of  end  1  of  the  network  is  described 
in  figure  9.  Decision  1  is  made  in  the  code  from  NT121  to  NT126,  decision 
2  from  NT128  to  NT133,  and  decision  3  from  NT138  to  NT143.  Segments  having 
network  connections  only  are  assigned  equation  rows  in  the  array  CMN  starting 
from  the  top  in  the  order  that  the  segments  are  encountered.  Segments  with 
both  network  and  voltage  source  connections  are  assigned  equation  rows  in  CMN 
starting  at  the  bottom  and  proceeding  up.  The  former  are  eventually  solved 
for  the  unknown  gap  voltages,  while  the  latter  are  used  to  obtain  source  input 
admittances  after  the  structure  currents  have  been  computed.  The  code  from 
NT148  to  NT174  assigns  equation  numbers  for  the  connection  of  end  2  of  the 
networks  and  sets  IR0W2  and  ISC2. 

The  network  short  circuit  parameters  are  added  to  the  network  equations 
from  NT182  to  NT193.  The  coefficient  matrix  is  transposed  in  filling  the  CMN 
array,  since  the  matrix  solution  routines  operate  on  a  transposed  system. 

Hence,  the  first  index  should  be  considered  the  column  number  and  the  second 
index  the  row  number.  If  a  segment  NSEG1  does  not  have  a  voltage  source 
connected,  the  parameters  Y^  and  Y^  are  added  to  column  IR0W1  at  rows  IR0W1 
and  IR0W2,  respectively.  IR0W2  may  be  either  (1)  in  the  upper  rows  as  part  of 
the  equations  for  the  unknown  gap  voltages,  or  (2)  if  a  voltage  source  is 
connected  to  segment  NSEG2,  in  the  lower  rows  for  later  determination  of  the 
source  current.  If  a  voltage  source  is  connected  to  segment  NSEG1,  the 
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For  NTYP  -  2 


For  NTYP  -  3 


Figure  8.  Options  for  Transmission  Line  Connection. 


coefficients  and  are  multiplied  by  the  known  source  voltage  and  added 
to  the  right-hand  side  of  the  network  equation  in  the  rows  IR0W1  and  IR0W2. 
The  parameters  Y^  and  Y^  are  added  to  the  equations  in  a  similar 
manner. 

The  loop  from  NT199  to  NT208  computes  the  elements  of  the  inverse 
matrix  G  ^  and  adds  them  to  the  network  equations.  The  network  matrix  is 
then  factored  at  NT213.  The  code  from  NT218  to  NT225  computes  -  RHS(I), 
where 

“i  *  £  GijEj  i 


with  (-Ej)  being  the  known  applied  field  on  segment  j,  not  including  unknown 
voltage  drops  at  network  ports.  Those  elements  for  segments  in  the  network 
equations  are  then  added  to  the  right-hand  side  of  the  network  equations.  At 
NT229  the  network  equations  are  solved  for  the  excitation  fields  due  to 
voltage  drops  at  the  network  ports.  The  negatives  of  these  fields  are  added 
to  the  excitation  vector  at  NT234  to  NT236,  completing  the  definition  of  the 


From  NT241  to  NT261,  the  voltage,  current,  admittance,  and  power  seen  looking 
into  the  structure  at  each  network  port  are  printed.  This  current  does  not 
include  current  through  any  voltage  sources  that  are  connected  to  the  port. 


The  code  from  NT269  to  NT294  computes  and  prints  the  voltage,  current,  admit¬ 
tance,  and  power  seen  by  each  voltage  source  looking  into  the  structure  and 
parallel  connected  network  port,  if  a  network  is  present. 

After  the  network  equations  have  once  been  set  up,  they  can  be  solved 
for  various  incident  fields  by  entering  the  code  at  NT218.  If  the  location  of 
voltage  sources  is  changed,  however,  the  equations  must  be  recomputed. 

If  a  structure  has  no  non-radiating  networks,  the  currents  are  computed 
at  NT266. 

SYMBOL  DICTIONARY 

ASA  *  sum  of  squares  of  relative  matrix  asymmetries  and  rms  value 

ASM  «  segment  length  and  maximum  relative  matrix  asymmetry 

CABS  ■  external  routine  (magnitude  of  complex  number) 

CM  *  array  of  matrix  elements 

CMN  *  array  for  network  equation  coefficients 

CMPLX  -  external  routine  (forms  complex  number) 

CONJG  -  external  routine  (conjugate) 

COS  •  external  routine  (cosine) 

CUR  “  current 

EINC  -  excitation  vector 

FACTR  ■  external  routine  (Gauss-Doolittle  matrix  factoring) 

FLOAT  -  external  routine  (integer  to  real  conversion) 

I  »  DO  loop  index 

IF  »  array  of  positioning  data  from  factoring  of  CM 

IPNT  -  array  of  positioning  data  from  factoring  of  CMN 

IR0W1  -  matrix  element  index 

IR0W2  ■  matrix  element  index 

ISANT  -  array  of  segment  numbers  for  voltage  source  connection 

ISC1  -  segment  location  in  array  ISANT 

.ISC2  ■  segment  location  in  array  ISANT 

ISEG1  •  number  of  segment  to  which  port  1  of  network  is  connected 

ISEG2  ■  number  of  segment  to  which  port  2  is  connected 

IX  ■  array  of  positioning  data  from  factoring  of  CM 

J  -DO  loop  index 

MASYM  »  flag  to  request  matrix  asymmetry  calculation 
NCOL  ■  number  of  columns  in  CM 

NDIMN  ■  array  dimension  of  CMN 


miTKMJ 


NETWK 


ND1MNP 

NONET 

NOP 

NPRINT 

NROW 

NSANT 

NSEG1 

NSEG2 

NTEQA(I) 

NTSC 

NTSCA(I) 

NTSOL 

NTYP(I) 

PIN 

PNLS 

PWR 

REAL 

RHNT 

RHNX 

RHS 

SIN 

SOLVE 

SOLVES 

SQRT 

TP 

VLT 

VSANT(I) 

VSRC(I) 

XIII ' 

XI 1R 
X12I 

• 

X12R 
X22I 
X22R  . 


NDIMN  +  1 

number  of  networks 

N/NP 

flag  to  control  printing 
number  of  rows  in  CM 
number  of  voltage  sources 

array  of  segments  to  which  port  1  of  a  network  connects 
array  of  segments  to  which  port  2  of  a  network  connects 
segment  number  associated  with  I*"*1  network  equation 
number  of  network-voltage  source  equations 
segment  number  associated  with  I*”*1  network-voltage  source 
equation 

flag  to  Indicate  network  equations  do  not  need  to  be 

recomputed 

type  of  IC^  network 

total  input  power  from  sources 

power  lost  in  networks 

power 

external  routine  (real  part  of  complex  number) 

vector  for  right-hand  side  of  network  equations 

component  of  RHNT  due  to  Y^,  Y.^>  Y  terms 

vector  for  right-hand  side  of  structure  interaction  equation 

external  routine  (sine) 

external  routine  (Gauss-Doolittle  solution) 

external  routine  (Gauss-Doolittle  solution  of  CM  matrix) 

external  routine  (square  root) 

2ir 

voltage 

voltage  of  source  on  segment  NSANT (I) 

voltage  of  source  on  Itl1  segment  in  network-voltage  source 
equations 

network  or  transmission  line  specification 
parameters 
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YMIT  -  admittance 

Y11I  -  imaginary  part  of  Y 

Y11R  -  real  part  of  Y  ^ 

Y12I  ■  imaginary  part  of  Y^ 

Y12R  -  real  part  of  Y^ 

Y22I  -  imaginary  part  of 

Y22R  -  real  part  of 

ZPED  ■  impedance 

CONSTANTS 


6.283185308  -  2tt 

30  ■  row  and  column  dimensions  of  CNN 

31  ■  (row  and  column  dimensions  of  CMN)  +  1 


NETWK 


1 

SUBROUTINE  NETWK  ( CM , CMB , CMC , CMO 

.IP. EINC) 

NT 

1 

2  C 

NT 

2 

3  C 

SUBROUTINE  NETWK  SOLVES  FOR  STRUCTURE  CURRENTS  FOR  A  GIVEN 

NT 

3 

4  C 

EXCITATION  INCLUDING  THE  EFFECT 

OF  NON-RADIATING  NETWORKS  IF 

NT 

4 

S  C 

PRESENT. 

NT 

5 

6  C 

NT 

6 

7 

COMPLEX  CMN . RHNT , YMIT , RHS , ZPED . EINC , VSANT , VLT . CUR . VSRC . RHNX . VQD , VQ 

NT 

7 

8 

1DS.CUX.CM.CMB.CMC.CMD 

NT 

8 

9 

COMMON  /DATA/  LD.N1 ,N2,N,NP,M1 ,M2 ,M,MP , X(300) . Y(300) , Z(300) ,SI(300 

NT 

9 

10 

1 ) .BI(300) ,ALP(300) , BET(300) , IC0N1 (300) , IC0N2(300) , ITAG(300) . ICONX( 

NT 

10 

11 

2300  )  . WLAM ,  IPSYM 

NT 

1 1 

12 

COMMON  /CRNT/  AIR(300) ,AII(300) . 

BIR(300) .811(300) ,CIR(300) ,CII(300 

NT 

12 

13 

1 ) , CUR (900) 

NT 

13 

14 

COMMON  /VSORC/  VQD(30) , VSANT(30) 

. VQDS( 30 ) . IVQD( 30 ) . ISANT( 30) , IQDS( 

NT 

14 

IS 

130), NVQO . NSANT , NODS 

NT 

15 

16 

COMMON  /NETCX/  ZPED , PIN .PNLS ,NEQ 

. NPEQ , NEQ2 , NONET , NTSOL . NPRINT , MASY 

NT 

16 

17 

1M.ISEG1 (30) ,ISEG2(30) .XI 1 R(30) ,X1 1 1(30) .XI 2R(30) .XI 21(30) ,X22R(30) 

NT 

17 

18 

2,X22I(30) ,NTYP(30) 

NT 

18 

19 

DIMENSION  EINC( 1 ) .  IP(1) 

NT 

19 

20 

DIMENSION  CMN(30 ,30) ,  RHNT(30), 

IPNT(30) ,  NTEQA(30),  NTSCA(30),  RH 

NT 

20 

21 

1 S(900) ,  VSRC(IO),  RHNX (30) 

NT 

21 

22 

DATA  NOIMN , NDIMNP/30 . 3 1 / , TP/6 .283185308/ 

NT 

22 

23 

PIN=0 . 

NT 

23 

24 

PNLS*0 . 

NT 

24 

25 

NE0T=NEQ+NE02 

NT 

25 

26 

IF  (NTSOL.NE.O)  GO  TO  42 

NT 

26 

27 

NOP=NEQ/NPEQ 

NT 

27 

28 

IF  (MASYM.EQ.O)  GO  TO  14 

NT 

28 

29  C 

NT 

29 

30  C 

COMPUTE  RELATIVE  MATRIX  ASYMMETRY 

NT 

30 

31  C 

NT 

31 

32 

IR0W1  =0 

NT 

32 

33 

IF  (NONET. EQ.O)  GO  TO  5 

NT 

33 

34 

DO  4  1=1 .NONET 

NT 

34 

35 

NSEG1 =ISEG1 (I) 

NT 

35 

36 

DO  3  ISC1=1 .2 

NT 

36 

37 

IF  (IR0W1  .EQ.O)  GO  TO  2 

NT 

37 

38 

DO  1  J=1 . IR0W1 

NT 

38 

39 

IF  (NSEG1 .EQ.IPNT(J))  GO  TO  3 

NT 

39 

40  1 

CONTINUE 

NT 

40 

41  2 

IR0W1  =IR0W1  +1 

NT 

41 

42 

IPNT(IR0W1 )=NSEG1 

NT 

42 

43  3 

NSEG1=ISEG2( I) 

NT 

43 

44  4 

CONTINUE 

NT 

44 

45  5 

IF  (NSANT. EQ.O)  GO  TO  9 

NT 

45 

46 

DO  8  1=1 .NSANT 

NT 

46 

47 

NSEG1 =ISANT  (I) 

NT 

47 

48 

IF  (IR0W1 .EQ.O)  GO  TO  7 

NT 

48 

49 

DO  6  J=1 .IR0W1 

NT 

49 

50 

IF  (NSEG1 . EQ.IPNT(J))  GO  TO  8 

NT 

50 

51  6 

CONTINUE 

NT 

51 

52  7 

IR0W1 =IR0W1 +1 

NT 

52 

53 

IPNT(IR0W1 )=NSEG1 

NT 

53 

54  8 

CONTINUE 

NT 

54 

55  9 

IF  ( IR0W1 . LT . NDIMNP )  GO  TO  10 

NT 

55 

56 

PRINT  59 

NT 

56 

57 

STOP 

NT 

57 

58  10 

IF  (IR0W1 . LT . 2)  GO  TO  14 

NT 

58 

59 

DO  12  1=1 , IR0W1 

NT 

59 

60 

ISC1=IPNT(I) 

NT 

60 

61 

ASM=SI(ISC1 ) 

NT 

61 

62 

DO  11  J=1 ,NEQT 

NT 

62 

63  11 

RHS(J)=(0. .0.) 

NT 

63 

64 

RHS( ISC1 )*(  1  .  ,0 .  ) 

NT 

64 

NETWK 


65 

CALL  SOLGF  (CM , CMB , CMC , CMD , RHS , IP ,NP ,N1 , N ,MP ,M1 ,M ,NEQ ,NEQ2) 

NT 

65 

66 

CALL  CABC  (RHS) 

NT 

66 

67 

DO  12  J=1 , IR0W1 

NT 

67 

68 

ISC1=IPNT( J) 

NT 

68 

69 

12 

CMN( J , I)=RHS( ISC1 )/ASM 

NT 

69 

70 

ASM=0 . 

NT 

70 

71 

ASA=0. 

NT 

71 

72 

DO  13  1=2 , IR0W1 

NT 

72 

73 

ISC1=I-1 

NT 

73 

74 

00  13  J=1 ,XSC1 

NT 

74 

75 

CUX=CMN( I . J  ) 

NT 

75 

76 

PWR=CABS( (CUX-CMN( J ,1) )/CUX)  » 

NT 

76 

77 

ASA=ASA+PWR • PWR 

NT 

77 

78 

IF  (PWR. LT. ASM)  GO  TO  13 

NT 

78 

79 

ASM=PWR 

NT 

79 

80 

NTEQ=IPNT(I) 

NT 

80 

81 

NTSC=IPNT( J ) 

NT 

81 

82 

13 

CONTINUE 

NT 

82 

83 

ASA=SQRT( ASA*2 . /FLOAT( IROW1 • ( IROW1 -1 ) ) ) 

NT 

83 

84 

PRINT  58.  ASM. NTEQ, NTSC. ASA 

NT 

84 

85 

14 

IF  (NONET. EQ.O)  GO  TO  48 

NT 

85 

86 

C 

NT 

86 

87 

C 

SOLUTION  OF  NETWORK  EQUATIONS 

NT 

87 

88 

C 

NT 

88 

89 

DO  IS  1=1 .NDIMN 

NT 

89 

90 

RHNX(I)=(0. .0.) 

NT 

90 

91 

DO  15  J=1. NDIMN 

NT 

91 

92 

15 

CMN( I , J)=(0 . .0.) 

NT 

92 

93 

NTEQ=0 

NT 

93 

94 

NTSC=0 

NT 

94 

95 

C 

NT 

95 

96 

C 

SORT  NETWORK  AND  SOURCE  DATA  AND  ASSIGN  EQUATION  NUMBERS  TO 

NT 

96 

97 

C 

SEGMENTS. 

NT 

97 

98 

C 

NT 

98 

99 

DO  38  J=1 .NONET 

NT 

99 

100 

NSEG1=ISEG1 ( J ) 

NT 

100 

101 

NSEG2=ISEG2( J) 

NT 

101 

102 

IF  (NTYP(J).GT.I)  GO  TO  16 

NT 

102 

103 

Y11R=X11R(J) 

NT 

103 

104 

Y 1 1 I=X1 1 1(  J  ) 

NT 

104 

105 

Y12R=X12R( J) 

NT 

105 

106 

Y1 2I=X1 2I( J ) 

NT 

106 

107 

Y22R=X22R( J) 

NT 

107 

108 

Y22I=X22I( J ) 

NT 

108 

109 

GO  TO  17 

NT 

109 

110 

16 

Y22R=TP*X1 1 I( J )/WLAM 

NT 

110 

111 

Y12R=0. 

NT 

1 1 1 

112 

Y1 21=1 ./(X11R(J)*SIN(Y22R)) 

NT 

112 

113 

Y1 1 R=X 1 2R( J ) 

NT 

113 

114 

Y1 1 I=— Y1 2I*C0S( Y22R) 

NT 

114 

115 

Y22R=X22R( J ) 

NT 

115 

116 

Y22I=Y11I+X22I(J) 

NT 

116 

117 

Y 1 1 1=Y 1 1 1+X 1 21 ( J ) 

NT 

117 

118 

IF  (NTYP( J) .EQ.2)  GO  TO  17 

NT 

118 

119 

Y12R=-Y12R 

NT 

119 

120 

Y12I=— Y12I 

NT 

120 

121 

17 

IF  (NSANT.EQ.O)  GO  TO  19 

NT 

121 

122 

DO  18  1=1 .NSANT 

NT 

122 

123 

IF  (NSEG1 .NE.ISANT(I))  GO  TO  18 

NT 

123 

124 

ISC 1=1 

NT 

124 

125 

GO  TO  22 

NT 

125 

126 

18 

CONTINUE 

NT 

126 

127 

19 

ISC 1=0 

NT 

127 

128 

IF  (NTEQ. EQ.O)  GO  TO  21 

NT 

128 
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129 

00  20  1=1 ,NTEQ 

NT 

129 

130 

IF  (NSEG1 .NE.NTEQA(I) )  GO  TO  20 

NT 

130 

131 

IR0W1=I 

NT 

131 

132 

GO  TO  25 

NT 

132 

133 

20 

CONTINUE 

NT 

133 

134 

21 

NTEQ=NTEQ+1 

NT 

134 

135 

IR0W1 =NTEQ 

NT 

135 

136 

NTEQA(NTEQ)=NSEG1 

NT 

136 

137 

GO  TO  25 

NT 

137 

138 

22 

IF  (NTSC.EQ.O)  GO  TO  24 

NT 

138 

139 

00  23  1=1, NTSC 

NT 

139 

140 

IF  (NSEG1 .NE.NTSCA(I))  GO  10  23 

NT 

140 

141 

IR0W1 =NDIMNP-I 

NT 

141 

142 

GO  TO  25 

NT 

142 

143 

23 

CONTINUE 

NT 

143 

144 

24 

NTSC=NTSC+1 

NT 

144 

145 

IROW1 =NDIMNP-NTSC 

NT 

145 

146 

NTSCA(NTSC)=NSEG1 

NT 

146 

147 

VSRC ( NTSC )=VSANT ( ISC 1 ) 

NT 

147 

148 

25 

IF  (NSANT.EQ.O)  GO  TO  27 

NT 

148 

149 

DO  26  1=1 , NSANT 

NT 

149 

150 

IF  (NSEG2 . NE. ISANT ( I) )  GO  TO  26 

NT 

150 

151 

ISC2=I 

NT 

151 

152 

GO  TO  30 

NT 

152 

153 

26 

CONTINUE 

NT 

153 

154 

27 

ISC2=0 

NT 

154 

155 

IF  (NTEQ.EQ.O)  GO  TO  29 

NT 

155 

156 

DO  28  1=1 ,NTEQ 

NT 

156 

157 

IF  (NSEG2.NE.NTEQA(I) )  GO  TO  28 

NT 

157 

158 

IROW2=I 

NT 

158 

159 

GO  TO  33 

NT 

159 

160 

28 

CONTINUE 

NT 

160 

161 

29 

NTEQ=NTEQ+1 

NT 

161 

162 

IROW2=NTEQ 

NT 

162 

163 

NTE0A(NTEQ)=NSEG2 

NT 

163 

164 

GO  TO  33 

NT 

164 

165 

30 

IF  (NTSC.EQ.O)  GO  TO  32 

NT 

165 

166 

DO  31  1=1. NTSC 

NT 

166 

167 

IF  (NSEG2 . NC . NTSCA( I ) )  GO  TO  31 

NT 

167 

168 

IROW2=NDIMNP-I 

NT 

168 

169 

GO  TO  33 

NT 

169 

170 

31 

CONTINUE 

NT 

170 

171 

32 

NTSC=NTSC+1 

NT 

171 

172 

IROW2=NDIMNP-NTSC 

NT 

172 

173 

NTSCA(NTSC)=NSEG2 

NT 

173 

174 

VSRC(NTSC)=VSANT ( ISC2) 

NT 

174 

175 

33 

IF  (NTSC+NTEQ.LT.NDIMNP)  GO  TO  34 

NT 

175 

176 

PRINT  59 

NT 

176 

177 

STOP 

NT 

177 

178 

C 

NT 

178 

179 

C 

FILL  NETWORK  EQUATION  MATRIX  AND  RIGHT  HAND  SIDE  VECTOR  WITH 

NT 

179 

180 

C 

NETWORK  SHORT-CIRCUIT  ADMITTANCE  MATRIX  COEFFICIENTS. 

NT 

180 

181 

C 

NT 

181 

182 

34 

IF  (ISC1 .NE .0)  GO  TO  35 

NT 

182 

183 

CMN( IR0W1 , IR0W1 )=CMN( IR0W1 . IR0W1 )-CMPLX( Y1 1 R . Y1 1 I) »SI(NSEGl ) 

NT 

183 

184 

CMN( IR0W1 , IR0W2 )=CMN( IR0W1 , IR0W2 )-CMPLX( Y1 2R , Y1 21) *SI(NSEG1 ) 

NT 

184 

185 

GO  TO  36 

NT 

185 

186 

35 

RHNX(IR0W1 )=RHNX(IR0W1 )+CMPLX( Y1 1 R , Y 1 1 I) *VSANT( ISC1 )/WLAM 

NT 

186 

187 

RHNX( IR0W2 )=RHNX( IR0W2)+CMPLX( Y1 2R , Y1 21) •VSANT ( ISC1 )/WLAM 

NT 

187 

188 

36 

IF  (ISC2.NE.0)  GO  TO  37  • 

NT 

188 

189 

CMN( IR0W2 , IR0W2 )=CMN( IR0W2 , IR0W2 )-CMPLX( Y22R , Y22I) *SI(NSEG2) 

NT 

189 

190 

CMN( IR0W2 , IR0W1 )=CMN( IR0W2 . IR0W1 )-CMPLX( Y1 2R . Y1 21) »SI(NSEG2 ) 

NT 

190 

191 

GO  TO  38 

NT 

191 

192 

37 

RHNX( IR0W1 )=RHNX(IR0W1 )+CMPLX( Y1 2R . Y1 21) »VSANT( ISC2)/V/LAM 

NT 

192 
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193 

RHNX(IROW2)=RHNX(IROW2)+CMPLX(Y22R,Y22I)*VSANT(ISC2)/WLAM 

NT 

193 

194  38 

CONTINUE 

NT 

194 

195  C 

NT 

195 

196  C 

A00  INTERACTION  MATRIX  ADMITTANCE  ELEMENTS  TO  NETWORK  EQUATION 

NT 

196 

197  C 

MATRIX 

NT 

197 

198  C 

NT 

198 

199 

DO  41  1=1 .NTEQ 

NT 

199 

200 

DO  39  J=1 ,NEQT 

NT 

200 

201  39 

RHS(J)=(0. .0.) 

NT 

201 

202 

IR0W1=NTEQA(I) 

NT 

202 

203 

RHS(IR0W1 )=( 1 . ,0 . ) 

NT 

203 

204 

CALL  SOLGF  (CM.CMB .CMC .CMD ,RHS .IP ,NP ,N1 ,N,MP,M1 ,M,NEQ,NEQ2) 

NT 

204 

205 

CALL  CABC  (RHS) 

NT 

205 

206 

DO  40  J=1 .NTEQ 

NT 

206 

207 

IR0W1 =NTEQA( J) 

NT 

207 

208  40 

CMN(I, J)=CMN(I, J)+RHS(IR0W1 ) 

NT 

208 

209  41 

CONTINUE 

NT 

209 

210  C 

NT 

210 

211  C 

FACTOR  NETWORK  EQUATION  MATRIX 

NT 

211 

212  C 

NT 

212 

213 

CALL  FACTR  (NTEQ, CMN , IPNT , NDIMN ) 

NT 

213 

214  C 

NT 

214 

215  C 

ADD  TO  NETWORK  EQUATION  RIGHT  HAND  SIDE  THE  TERMS  DUE  TO  ELEMENT 

NT 

215 

216  C 

INTERACTIONS 

NT 

216 

217  C 

NT 

217 

218  42 

IF  (NONET. EO.O)  GO  TO  48 

NT 

218 

219 

DO  43  1=1 .NEQT 

NT 

219 

220  43 

RHS(I)=EINC(I) 

NT 

220 

221 

CALL  SOLGF  (CM.CMB .CMC . CMD . RHS . IP . NP ,N1 ,N ,MP .Ml ,M .NEQ ,NEQ2) 

NT 

221 

222 

CALL  CABC  f RHS) 

NT 

222 

223 

DO  44  1=1  ,.1TEQ 

NT 

223 

224 

IR0W1 =NTEQA( I) 

NT 

224 

225  44 

RHNT ( I ) =RHNX ( I ) +RHS ( IR0W1  ) 

NT 

225 

226  C 

NT 

226 

227  C 

SOLVE  NETWORK  EQUATIONS 

NT 

227 

228  C 

NT 

228 

229 

CALL  SOLVE  (NTEQ , CMN . IPNT . RHNT .NDIMN) 

NT 

229 

230  C 

NT 

230 

231  C 

ADD  FIELDS  DUE  TO  NETWORK  VOLTAGES  TO  ELECTRIC  FIELDS  APPLIED  TO 

NT 

231 

232  C 

STRUCTURE  AND  SOLVE  FOR  INDUCED  CURRENT 

NT 

232 

233  C 

NT 

233 

234 

DO  45  1=1 .NTEQ 

NT 

234 

235 

IR0W1=NTEQA(I) 

NT 

235 

236  45 

EINC(IR0W1 )=EINC( IR0W1 )-RHNT(I) 

NT 

236 

237 

CALL  SOLGF  (CM , CMB .CMC . CMD . EINC . IP .NP . N1 .N ,MP .Ml .M.NEQ ,NEQ2) 

NT 

237 

238 

CALL  CABC  (EINC) 

NT 

238 

239 

IF  (NPRINT.EQ.O)  PRINT  61 

NT 

239 

240 

IF  (NPRINT.EQ.O)  PRINT  60 

NT 

240 

241 

DO  46  1=1 .NTEQ 

NT 

241 

242 

IR0W1 =NTEQA( I) 

NT 

242 

243 

VLT=RHNT ( I) *SI( IR0W1 ) *WLAM 

NT 

243 

244 

CUX=EINC( IR0W1 ) *WLAM 

NT 

244 

245 

YMIT=CUX/VLT 

NT 

245 

246 

ZPED=VLT/CUX 

NT 

246 

247 

IR0W2=ITAG( IR0W1 ) 

NT 

247 

248 

PWR=.5*REAL(VLT*C0NJG(CUX) ) 

NT 

248 

249 

PNLS=PNLS-PWR 

NT 

249 

250  46 

IF  (NPRINT.EQ.O)  PRINT  62,  IR0W2.IR0W1.VLT.CUX.ZPED.YMIT.PWR 

NT 

250 

251 

IF  (NTSC.EQ.O)  GO  TO  49 

NT 

251 

252 

DO  47  1=1 .NTSC 

NT 

252 

253 

IR0W1=NTSCA(I) 

NT 

253 

254 

VLT=VSRC( I) 

NT 

254 

255 

CUX=EINC(IR0W1 )*WLAM 

NT 

255 

256 

YMIT=CUX/VLT 

NT 

256 

-255- 


a 


4 


* 


netwk 

1 

257 

ZPED=VLT/CUX 

NT 

257 

! 

258 

IR0W2=ITAG( IROW1  ) 

NT 

258 

# 

I 

259 

PWR=.5«REAL(VLT*C0NJG(CUX)) 

NT 

259 

260 

PNLS=PNLS-PWR 

NT 

260 

261  47 

IF  (NPRINT.EQ.O)  PRINT  62.  IR0W2 . IR0W1 . VLT . CUX . ZPED , YMIT . PWR 

NT 

261 

J 

262 

GO  TO  49 

NT 

262 

263  C 

NT 

263 

B 

264  C 

SOLVE  FOR  CURRENTS  WHEN  NO  NETWORKS  ARE  PRESENT 

NT 

264 

rj 

265  C 

NT 

265 

Q 

266  48 

CALL  SOLGF  (CM .CMB .CMC . CMD . EINC . IP ,NP . N1 ,N ,MP .Ml ,M . NEQ .NEQ2) 

NT 

266 

267 

CALL  CABC  (EINC) 

NT 

267 

1 

268 

NTSC=0 

NT 

268 

Kj.  * 

269  49 

IF  (NSANT+NVQD.EQ.O)  RETURN 

NT 

269 

V 

270 

PRINT  63 

NT 

270 

Kj 

271 

PRINT  60 

NT 

271 

X 

272 

IF  (NSANT.EO.O)  GO  TO  56 

NT 

272 

A 

273 

DO  55  1=1 .NSANT 

NT 

273 

274 

ISC1 =ISANT (I) 

NT 

274 

275 

VLT=VSANT(I) 

NT 

275 

R 

276 

IF  (NTSC.EQ.O)  GO  TO  51 

NT 

276 

r 

277 

DO  50  J=1 .NTSC 

NT 

277 

X) 

278 

IF  (NTSCA(J).EQ.ISCI)  GO  TO  52 

NT 

278 

ft 

279  50 

CONTINUE 

NT 

279 

5 

280  51 

CUX=EINC( ISC1 ) *WLAM 

NT 

280 

A 

281 

IR0W1=0 

NT 

281 

282 

GO  TO  54 

NT 

282 

283  52 

IR0W1 =NDIMNP— J 

NT 

283 

v 

284 

CUX=RHNX ( IR0W1 ) 

NT 

284 

V 

285 

00  53  J=1.NTEQ 

NT 

285 

K 

286  53 

CUX=CUX-CMN ( J . IR0W1  )»RHNT(J) 

NT 

286 

K 

287 

CUX=( EINC( ISC1 )+CUX )  »WLAM 

NT 

287 

w 

288  54 

YMIT=CUX/VLT 

NT 

288 

289 

ZPED=VLT/CUX 

NT 

289 

o 

p 

290 

PWR= . 5*REAL( VLT*CON JG(CUX ) ) 

NT 

290 

f 

291 

PIN=PIN+PWR 

NT 

291 

ft 

292 

IF  (IROW1.NE.O)  PNLS=PNLS+PWR 

NT 

292 

ft 

293 

IR0W2=ITAG( ISC1  ) 

NT 

293 

294  55 

PRINT  62,  IR0W2.ISC1 .VLT. CUX. ZPED. YMIT. PWR 

NT 

294 

295  56 

IF  (NVQD.EQ.O)  RETURN 

NT 

295 

296 

DO  57  1=1 , NVQD 

NT 

296 

297 

ISC1 =IVQD( I) 

NT 

297 

s 

298 

VLT=VQD(I) 

NT 

298 

ft 

299 

CUX=CMPLX( AIR( ISC1 ) ,AII(ISC1  )) 

NT 

299 

ft 

300 

YMIT=CMPLX( BIR( ISC1 ) ,BII(ISC1 )) 

NT 

300 

ft 

301 

ZPED=CMPLX(CIR( ISC1 ) ,CII(ISC1 )) 

NT 

301 

ft 

302 

PWR=SI( ISC1 ) • TP* . 5 

NT 

302 

i 

303 

CUX=(CUX-YMIT  »SIN( PWR )+ZPED»COS( PWR ) ) *WLAM 

NT 

303 

s 

304 

YMIT=CUX/VLT 

NT 

304 

k 

305 

ZPED=VLT/CUX 

NT 

305 

f 

306 

PWR=. 5*REAL( VLT*CONJG( CUX ) ) 

NT 

306 

N 

307 

PIN=PIN+PWR 

NT 

307 

ii 

308 

IR0W2=ITAG( ISC1  ) 

NT 

308 

C] 

309  57 

PRINT  64,  IR0W2.ISC1 .VLT, CUX, ZPED. YMIT. PWR 

NT 

309 

■ 

310 

RETURN 

NT 

310 

311  C 

NT 

31 1 

312  58 

FORMAT  (///, 3X , 47HMAXIMUM  RELATIVE  ASYMMETRY  OF  THE  DRIVING  POINT. 

NT 

312 

i 

313 

1 21 H  ADMITTANCE  MATRIX  IS.E10.3.13H  FOR  SEGMENTS . 15 . 4H  AND.I5./.3X, 

NT 

313 

§ 

314 

225HRMS  RELATIVE  ASYMMETRY  IS. El  0.3) 

NT 

314 

315  59 

FORMAT  (IX, 44HERR0R  -  NETWORK  ARRAY  DIMENSIONS  TOO  SMALL) 

NT 

315 

c 

316  60 

FORMAT  (/.3X.3HTAG.3X.4HSEG. , 4X . 1 5HV0LTAGE  (VOLTS) , 9X . 1 4HCURRENT  ( 

NT 

316 

I 

317 

1AMPS) ,9X , 1 6HIMPEDANCE  (OHMS) , 8X , 1 7H ADMITTANCE  (MHOS ) , 6X . 5HP0WER ./. 

NT 

317 

i 

318 

23X , 3HN0 . . 3X . 3HN0 . . 4X . 4HREAL , 8X , 5HIMAG . , 3 ( 7X , 4HREAL , 8X . 5HIMAG . ) . 5X . 

NT 

318 

o 

p 

319 

37H (WATTS)) 

NT 

319 

w® 

a 

320  61 

FORMAT  (///.27X.66H -  STRUCTURE  EXCITATION  DATA  AT  NETWORK  CONN 

NT 

320 

y 

V 
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NFPAT 


PURPOSE 


To  compute  and  print  the  near  E  or  H  field  over  a  range  of  points. 


METHOD 

The  range  of  points  in  rectangular  or  spherical  coordinates  is  obtained 
from  parameters  in  COMMON/FPAT/ .  Subroutine  NEFLD  is  called  for  near  E  field 
and  NHFLD  is  called  for  near  H  field. 


SYMBOL  DICTIONARY 


DXNR 


DYNR 


DZNR 


EX,  EY,  EZ 


NRX,  NRY,  NRZ 


■  cos  $ 

■  cos  8 

■  increment  for  x  in  rectangular  coordinates  or  R  in 
spherical  coordinates 

■  increment  for  y  in  rectangular  coordinates  or  q>  in 
spherical  coordinates 

■  increment  for  z  in  rectangular  coordinates  or  0  in 
spherical  coordinates 

*  x,  y  and  z  components  of  E  or  H 

*  0  for  rectangular  coordinates 
1  for  spherical  coordinates 

*  0  for  near  E  field 
1  for  near  H  field 

*  number  of  values  for  x,  y  and  z  or  R,  <)>,  0 

*  sin  $ 

*  sin  0 

-  n/180 

“  initial  x  or  R 

*  x  or  R 


*  initial  y  or  $ 
»  y  or  $ 

-  y 

■  initial  z  or  0 

■  z  or  0 
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; 

1 

SUBROUTINE  NFPAT 

NP 

1 

.< 

• 

2  C 

COMPUTE  NEAR  E  OR  H  FIELDS  OVER  A  RANGE  OF  POINTS 

NP 

2 

■; 

3 

COMPLEX  EX.EY.EZ 

NP 

3 

r< 

4 

COMMON  /DATA/  LD ,N1 ,N2 ,N ,NP ,M1 , M2 ,M , MP , X( 300) , Y(300) , Z( 300) , SI (300  NP 

4 

5 

1 ) .01(300) ,ALP(300) ,BET(300) , IC0N1 (300) . IC0N2(300) . ITAG(300) . ICONX( 

NP 

5 

k 

6 

2300) .WLAM.IPSYM 

NP 

6 

i! 

7 

COMMON  /FPAT/  NTH .NPH . IPO, IAVP . INOR . IAX . THETS , PHIS . OTH , DPH . RFLD . GN 

NP 

7 

8 

1 OR . CLT . CHT . EPSR2 . SIG2 . IXTYP , XPR6, PINR . PNLR , PLOSS . NEAR . NFEH . NRX . NR Y 

NP 

8 

< 

9 

2 , NRZ . XNR . YNR , ZNR . DXNR , DYNR.DZNR 

NP 

9 

i 

10 

DATA  TA/1 . 745329252E-02/ 

NP 

10 

11 

IF  (NFEH.EQ. 1 )  GO  TO  1 

NP 

11 

1 

12 

PRINT  10 

NP 

12 

13 

GO  TO  2 

NP 

13 

u 

f! 

14  1 

PRINT  12 

NP 

14 

13  2 

ZNRT=ZNR-DZNR 

NP 

15 

16 

DO  9  1=1 ,NRZ 

NP 

16 

> 

17 

ZNRT=ZNRT+OZNR 

NP 

17 

¥ 

18 

IF  (NEAR.EQ.O)  GO  TO  3 

NP 

18 

19 

CTH=COS(TA*ZNRT) 

NP 

19 

20 

STH*SIN(TA«ZNRT) 

NP 

20 

£ 

21  3 

YNRT*YNR— OYNR 

NP 

21 

22 

DO  9  J=1 , NRY 

NP 

22 

* 

23 

YNRT=YNRT+OYNR 

NP 

23 

! 

24 

IF  (NEAR.EQ.O)  GO  TO  4 

NP 

24 

£ 

25 

CPH=COS(TA*YNRT) 

NP 

25 

26 

SPH=SIN(TA*YNRT) 

NP 

26 

27  4 

XNRT=XNR-DXNR 

NP 

27 

28 

DO  9  KK=1 , NRX 

NP 

28 

29 

XNRT=XNRT+DXNR 

NP 

29 

pjf 

30 

IF  (NEAR.EQ.O)  GO  TO  5 

NP 

30 

A 

31 

XOB=XNRT»STH*CPH 

NP 

31 

s 

#  ' 

32- 

YOB=XNRT*STH*SPH 

NP 

32 

33 

ZOB=XNRT*CTH 

NP 

33 

34 

GO  TO  6 

NP 

34 

it 

* 

35  5 

XOB=XNRT 

NP 

35 

36 

YOB=YNRT 

NP 

36 

37 

ZOB=ZNRT 

NP 

37 

»!. 

38  6 

TMP1 =X08/WLAM 

NP 

38 

»• 

39 

TMP2=Y0B/V/LAM 

NP 

39 

40 

TMP3=Z0B/WLAM 

NP 

40 

k 

41 

IF  (NFEH.EQ. 1 )  GO  TO  7 

NP 

41 

»*, 

42 

CALL  NEFLD  ( TMP 1 , TMP2 , TMP3 .EX.EY.EZ) 

NP 

42 

43 

GO  TO  8 

NP 

43 

i 

44  7 

CALL  NHFLD  ( TMP 1 , TMP2 , TMP3 .EX.EY.EZ) 

NP 

44 

1 

45  8 

TMP1 =CABS( EX) 

NP 

45 

• 

46 

TMP2=CANG( EX ) 

NP 

46 

47 

TMP3=CABS(EY) 

NP 

47 

48 

TMP4=CANG( EY ) 

NP 

48 

— 

49 

TMP5=CABS( EZ) 

NP 

49 

> 

50 

TMP6=CANG(EZ) 

NP 

50 

51 

PRINT  11.  X0B.Y0B.Z0B.TMP1 .TMP2.TMP3.TMP4.TMP5.TMP6 

NP 

51 

52  9 

CONTINUE 

NP 

52 

53 

RETURN 

NP 

53 

54  C 

NP 

54 

55  10 

FORMAT  (///.35X.32H -  NEAR  ELECTRIC  FIELDS  - .//.12X.14H-  L 

NP 

55 

56 

1 OCA T ION  -.21X.8H-  EX  -.15X.8H-  EY  -.15X.8H-  EZ  -./.8X.1HX.1 

NP 

56 

57 

20X . 1 HY . 1 0X . 1  HZ . 1 0X . 9HMAGNITUDE . 3X . 5HPHASE . 6X . 9HMAGNITUDE . 3X . 5HPHAS 

NP 

57 

58 

3E.6X, 9HMAGNITUDE . 3X . 5HPHASE . /. 6X . 6HMETERS . 5X . 6HMETERS , 5X . 6HMETERS . 

NP 

58 

. 

59 

48X . 7HV0LTS/M , 3X . 7HDEGREES . 6X . 7HV0LTS/M . 3X . 7HDEGREES . 6X . 7HV0LTS/M . 3 

NP 

59 

: 

60 

5X.7HDEGREES) 

NP 

60 

61  11 

FORMAT  (2X,3(2X.F9.4) ,1X,3(3X.E1 1 .4.2X.F7.2)) 

NP 

61 

v 

62  12 

FORMAT  (///.35X.32H -  NEAR  MAGNETIC  FIELDS  - .//.12X.14H-  L 

NP 

62 

63 

1 OCATION  -.21X.8H-  HX  -.15X.8H-  HY  -.15X.8H-  HZ  -./.8X.1HX.1 

NP 

63 

64 

20X , 1 HY , 1 0X . 1  HZ , 1 0X , 9HMAGNITUDE . 3X , 5HPHASE . 6X , 9HMAGNITUDE . 3X . 5HPHAS 

NP 

64 

: 
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3E . 6X . 9HMAGNITUDE . 3X , SHPHASE . /. 6X , 6HMETERS , 5X , 6HMETERS , 5X , 6HMETERS . 

HP 

65 

66 

49X . 6HAMPS/M . 3X , 7HDEGREES . 7X , 6HAMPS/M , 3X . 7HDEGREES . 7X , 6HAMPS/M . 3X , 7 

HP 

66 

67 

5HDEGREES) 

HP 

67 

68 

END 

HP 

68- 
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NHFLD 


PURPOSE 

To  compute  the  near  magnetic  field  due  to  currents  induced  on  a 
structure. 


CODING 


NH28  -  NH56  Near  H  field  due  to  currents  on  segments  is  computed. 

NH29  -  NH40  Each  segment  is  checked  to  determine  whether  the  field 

observation  point  (XOB,  YOB,  ZOB)  falls  within  the  segment 
volume.  If  it  does,  AX  is  set  to  the  radius  of  that 
segment.  AX  is  then  sent  to  routine  HSFLD  as  the  radius  of 
the  observation  segment  to  avoid  a  singularity  in  the  field. 

NH41  -  NH56  Loop  computing  the  field  contribution  of  each  segment. 

NH42  -  NH49  Parameters  of  source  segment  are  stored  in  COMMON/DATAJ/ . 

NH50  HSFLD  stores  the  magnetic  field  due  to  constant,  sin  ks,  and 

cos  ks  currents  in  COMMON/DATAJ/. 

NH54  -  NH56  The  field  components  are  multiplied  by  the  coefficients  of 
the  constant,  sin  ks,  and  cos  ks  components  of  the  total 
segment  current,  and  the  field  is  summed. 

NH58  -  NH78  Near  H  fields  due  to  patch  currents  are  computed. 

NH62  -  NH71  Parameters  of  source  patch  are  set  in  COMMON/DATAJ/. 

NH72  H  field  is  computed  by  HINTG. 

NH76  -  NH78  H  fields  due  to  t^  and  t ^  current  components  are  multiplied 
by  the  current  strengths  and  summed. 


SYMBOL  DICTIONARY 
ACX 


constant  component  of  the  segment  current  at  NH.51;  t^  component 


AX 


of  patch  current  at  NH74 

segment  radius  when  the  field  evaluation  point  falls  within  a 
segment  volume 


BCX 


-  sin  ks  component  of  segment  current  at  NH52;  t^  component  of 


CCX 

HX 

HY 

HZ 


patch  current  at  NH75 

*  cos  ks  component  of  segment  current  at  NH.53 


total  H  field 
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T1X 

T1Y 

T1Z 

T1XJ 

T1YJ 

T1ZJ 

T2X 

T2Y 

T2Z 

T2XJ 

T2YJ 

T2ZJ 

XOB 

YOB 

ZOB 

ZP 


A 

arrays  for 


tj  for  patch  I 


arrays  for 


t2  for  patch  I 


field  evaluation  point 

2 

coordinates  of  the  field  evaluation  point,  z  or  p  ,  in  a 
cylindrical  coordinate  system  centered  on  the  source  segment. 


CONSTANTS 

0.5001  -  fraction  of  segment  length  used  to  test  whether  the  field 
evaluation  point  falls  within  a  segment 
0.9  ■  fraction  of  segment  radius  used  to  test  whether  the  field 

evaluation  point  falls  within  a  segment 
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1 

SUBROUTINE  NHFLD  ( XOB , YOB , ZOB , HX , HY , HZ ) 

NH 

1 

2  C 

NH 

2 

3  C 

NHFLD  COMPUTES  THE  NEAR  FIELD  AT  SPECIFIED  POINTS 

IN  SPACE  AFTER 

NH 

3 

4  C 

THE  STRUCTURE  CURRENTS  HAVE  BEEN  COMPUTED. 

NH 

4 

5  C 

NH 

5 

6 

COMPLEX  HX , HY , HZ . CUR , ACX , BCX , CCX . EXK , EYK . EZK . EXS . EYS , EZS , EXC . E YC 

,  E  NH 

6 

7 

1ZC 

NH 

7 

8 

COMMON  /DATA/  LD ,N1 ,N2 ,N ,NP ,M1 . M2 , M , MP , X( 300) , Y(300) , Z(300) , SI (300  NH 

8 

9 

1 ) ,BI(300) , ALP (300) , BET (300) , IC0N1 (300) , IC0N2(300) 

,ITAG(300) ,IC0NX(  NH 

9 

10 

2300 ) , WL AM , IPSYM 

NH 

10 

11 

COMMON  /ANGL/  SALP(300) 

NH 

11 

12 

COMMON  /CRNT/  AIR(300) ,AII(300) ,BIR(300) ,811(300) 

,CIR(300),CII(300  NH 

12 

13 

1 ) ,CUR(900) 

NH 

13 

14 

COMMON  /DATAJ/  S , B . X J , Y J , ZJ .CAB J ,SABJ , SALP J , EXK , EYK , EZK , EXS , EYS , 

EZ  NH 

14 

15 

1 S , EXC , EYC , EZC , RKH , IEXK , IND1 . IND2 , IPGNO 

NH 

15 

16 

DIMENSION  CAB( 1 ) ,  SAB(1) 

NH 

16 

17 

DIMENSION  T1X(  1  ) ,  T1Y(1),  T1Z(1).  T2X(1),  T2Y( 1 ) . 

T2Z( 1 ) ,  XS( 1 ) , 

Y  NH 

17 

18 

1S(1).  ZS(1) 

NH 

18 

19 

EQUIVALENCE  (T1X.SI),  (T1Y.ALP),  (T1Z.BET),  (T2X, 

IC0N1),  ( T2Y , ICON  NH 

19 

20 

12),  (T2Z.ITAG) ,  (XS ,X) ,  (YS,Y),  (ZS.Z) 

NH 

20 

21 

EQUIVALENCE  (T1XJ.CABJ),  (T1YJ.SABJ),  ( T1ZJ . SALP J ) ,  (T2XJ.B).  ( T2Y  NH 

21 

22 

1J.IND1),  (T2ZJ.IND2) 

NH 

22 

23 

EQUIVALENCE  (CAB. ALP),  (SAB, BET) 

NH 

23 

24 

HX=(0. .0.) 

NH 

24 

25 

HY=(0. ,0.) 

NH 

25 

26 

HZ=(0. .0.) 

NH 

26 

27 

AX=0 . 

NH 

27 

28 

IF  (N.EQ.O)  GO  TO  4 

NH 

28 

29 

DO  1  1=1 , N 

NH 

29 

30 

X J=XOB-X( I) 

NH 

30 

31 

YJ=YOB-Y(I) 

NH 

31 

32 

ZJ=ZOB-Z(I) 

NH 

32 

33 

ZP=CAB(I) *X J+SAB(I)* Y J+SALP( I) *Z J 

NH  . 

33 

34 

IF  ( ABS(ZP) . GT . 0 .5001 *SI( I) )  GO  TO  1 

NH 

34 

35 

ZP=XJ»XJ+YJ*YJ+ZJ*ZJ-ZP*ZP 

NH 

35 

36 

XJ=BI(I) 

NH 

36 

37 

IF  (ZP.GT.0.9*XJ*XJ)  GO  TO  1 

NH 

37 

38 

AX=X  J 

NH 

38 

39 

GO  TO  2 

NH 

39 

40  1 

CONTINUE 

NH 

40 

41  2 

DO  3  1=1  ,N 

NH 

41 

42 

S=SI(I) 

NH 

42 

43 

B=BI(I) 

NH 

43 

44 

XJ=X(I) 

NH 

44 

45 

YJ=Y(I) 

NH 

45 

46 

ZJ=Z(I) 

NH 

46 

47 

CABJaCAB(I) 

NH 

47 

48 

SABJ=SAB(I) 

NH 

48 

49 

SALP J=SALP( I) 

NH 

49 

50 

CALL  HSFLD  (XOB , YOB , ZOB . AX) 

NH 

50 

51 

ACX=CMP  LX(AIR(I) ,AII(I)) 

NH 

51 

52 

BCX=CMPLX( 8IR( I) , BII( I) ) 

NH 

52 

53 

CCX=CMPLX(CIR( I) ,CII(I)) 

NH 

53 

54 

HX=HX+EXK*ACX+EXS*BCX+EXC*CCX 

NH 

54 

55 

HY=HY+EYK»ACX+EYS»BCX+EYC»CCX 

NH 

55 

56  3 

HZ=HZ+EZK»ACX+EZS»BCX+EZC»CCX 

NH 

56 

57 

IF  (M.EQ.O)  RETURN 

NH 

57 

58  4 

JC=N 

NH 

58 

59 

JL=LD-H 

NH 

59 

60 

00  5  1=1  ,M 

NH 

60 

61 

JL=JL-1 

NH 

61 

62 

S=8I( JL) 

NH 

62 

63 

XJ=X( JL) 

NH 

63 

64 

YJ=Y( JL) 

NH 

64 

1 

■ 

1 


> 


s 

i 

* 

« 

•> 

► 

* 

; 
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* 

I 

i 
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NHFLD 


> 


I 


es 

Z J=Z( JL) 

NH 

65 

66 

T1XJ=T1X(JL) 

NH 

66 

67 

T1YJ=T1Y(JL) 

NH 

67 

68 

T1ZJ=T1Z(JL) 

NH 

68 

69 

T2X J=T2X( JL) 

NH 

69 

70 

T2YJ=T2Y( JL) 

NH 

70 

71 

T2ZJ=T2Z( JL) 

NH 

71 

72 

CALL  HINTG  (XOB . Y08 . ZOB) 

NH 

72 

73 

JC=JC+3 

NH 

73 

74 

ACX=T1XJ*CUR(JC-2)+T1YJ*CUR( JC-1 )+T1 ZJ»CUR( JC) 

NH 

74 

75 

BCX=T2X J*CUR( JC-2)+T2Y J*CUR( JC-1 )+T2Z J*CUR( JC) 

NH 

75 

76 

HX=HX+ACX • EXK+BCX • EXS 

NH 

76 

77 

HY=HY+ACX»EYK+BCX*EYS 

NH 

77 

78  5 

HZ=HZ+ACX*EZK+BCX»EZS 

NH 

78 

79 

RETURN 

NH 

79 

80 

END 

NH 

80- 

o 
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PATCH 


PATCH  (entry  SUBPH) 


PURPOSE 


To  generate  patch  data  for  surfaces. 

METHOD 

The  code  from  PA14  to  PAL29  generates  data  for  a  single  new  patch  or 
multiple  patches.  There  are  four  options  for  defining  a  single  patch,  as 
illustrated  in  Figure  5  of  Part  III.  For  a  single  patch,  NX  is  zero  and  NY  is 
NS  +  1  where  NS  is  the  parameter  from  the  SP  input  card  and  is  shown  on 

Figure  5.  Rectangular,  triangular  or  quadrilateral  patcnes  are  defined  by  the 

coordinates  of  three  or  four  corners  in  the  parameters  Xl  though  Z4.  In  the 
arbitrary  shape  option  (Figure  5A  in  Part  III)  the  center  of  the  patch  is  Xl, 
Yl,  Zl;  a  is  X2;  Q  is  Y2;  and  the  area  is  Z2.  The  patch  data  is  stored  in 
COMMON/DATA/  from  the  top  of  the  arrays  downward  (see  Section  III). 

The  code  from  PA131  to  PA190  divides  a  patch  into  four  patches  and  is 
used  when  a  wire  connects  to  a  patch.  If  NY  is  equal  to  zero  the  patch  NX  is 

divided  into  four  patches  that  become  patches  NX  through  NX  +  3.  patches 

following  NX  are  shifted  in  the  arrays  in  COMMON/DATA/  to  leave  space  for  the 
three  additional  patches.  If  NY  is  greater  than  zero,  patch  NX  is  left  in  the 
arrays  but  four  new  patches  to  replace  it  are  added  to  the  end  of  the  arrays. 
The  z  coordinate  of  patch  NX  is  then  changed  to  10,000  at  PA189. 


SYMBOL  DICTIONARY 


SIX,  S1Y,  S1Z 
S2X,  S2Y,  S2Z 
SALN 
SALPN 


array  index  for  patch  data 
array  index  for  patch  data 
patch  type  (NY  for  a  single  patch) 

zero  for  a  single  patch.  For  multiple  patches  NX  is 

defined  in  Figure  6  of  Part  III.  After  ENTRY  SUBPH,  NX 

is  the  number  of  the  patch  to  be  divided 

vector  from  corner  1  to  corner  2 

vector  from  corner  2  to  corner  3 

+1  from  array  SALP 

factor  in  computing  center  of  mass  of  quadrilateral 
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PATCH 


XA 

XN2,  YN2,  ZN2 


XNV,  YNV,  ZNV 
XS,  YS,  ZS 
XST 


■  IS^  x  S 2 *  3  area  of  rectangle  or  twice  area  of 
triangle  (PA53) 

*  S^  x  at  PA79  to  PA81.  Line  PA89  checks  that  the 
four  corners  are  coplanar  by  the  test 

(SL  x  S2).(S3  x  S4)/IS1  x  5  I  IS3  x  i4l  >  0.9998 
»  unit  vector  normal  to  the  patch  at  PA54  to  PA56 

*  patch  center  at  PA151  to  PA153 

*  ISL  x  S2I  at  PA57 


CONSTANTS 

0. 9998  «  cosCl.®)  in  test  for  planar  patch 


% 
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PATCH 


SUBROUTINE  PATCH  (NX. NY, XI ,Y1 ,Z1 ,X2,Y2.Z2,X3.Y3,Z3.X4.Y4.Z4)  PA  1 
PATCH  GENERATES  AND  MODIFIES  PATCH  GEOMETRY  DATA  PA  2 
COMMON  /DATA/  LD ,N1 , N2 , N , NP ,M1 , M2 ,M ,MP , X(300) , Y(300) , Z(300 ) , SI (300  PA  3 
1 ) ,BI(300) , ALP (300 ) , BET (300) , IC0N1 ( 300 ) , IC0N2( 300 ) , ITAG(300) , ICONX(  PA  4 


s 

2300) .WLAM.IPSYM 

PA 

5 

6 

COMMON  /ANGL/  SALP(300) 

PA 

6 

7 

DIMENSION  T 1 X ( 1 ) ,  T1Y(1),  T1Z(1).  T2X(1), 

T2Y ( 1 ) ,  T2Z( 1  ) 

PA 

7 

8 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP) ,  (T1Z.BET) 

.  (T2X.IC0N1),  (T2Y , ICON 

PA 

8 

9 

12).  (T2Z.ITAG) 

PA 

9 

10  C 

NEW  PATCHES.  FOR  NX=0,  NY=1.2,3,4  PATCH  IS  (RESPECTIVELY) 

PA 

10 

11  C 

ARBITRARY.  RECTAGULAR,  TRIANGULAR.  OR  QUADRILATERAL. 

PA 

1 1 

12  C 

FOR  NX  AND  NY  .GT.  0  A  RECTANGULAR  SURFACE 

IS  PRODUCED  WITH 

PA 

12 

13  C 

NX  BY  NY  RECTANGULAR  PATCHES. 

PA 

13 

14 

M=M+1 

PA 

14 

15 

MI=L0+1-M 

PA 

15 

16 

NTP=NY 

PA 

16 

17 

IF  (NX .GT . 0)  NTP=2 

PA 

17 

18 

IF  (NTP.GT.1)  GO  TO  2 

PA 

18 

19 

X(MI)=X1 

PA 

19 

20 

Y(MI)*Y1 

PA 

20 

21 

Z(MI)*Z1 

PA 

21 

22 

8I(MI)=Z2 

PA 

22 

23 

ZNV=C0S(X2 ) 

PA 

23 

24 

XNV=ZNV»C0S(Y2) 

PA 

24 

25 

YNVsJKJV  o!N(  Y2 ) 

PA 

25 

26 

ZNV=SIN(X2) 

PA 

26 

27 

XA=SQRT(XNV*XNV+YNV*YNV) 

PA 

27 

28 

IF  (XA.LT.1 . E-6)  GO  TO  1 

PA 

28 

29 

T1X(MI)=-YNV/XA 

PA 

29 

30 

T1Y(MI)=XNV/XA 

PA 

30 

31 

T1Z(MI)=0. 

PA 

31 

32 

GO  TO  6 

PA 

32 

33  1 

T1 X(MI)s1 . 

PA 

33 

34 

T1 Y (MI)=0 . 

PA 

34 

35 

T1Z(MI)=0. 

PA 

35 

36 

GO  TO  6 

PA 

36 

37  2 

SI X=X2-X1 

PA 

37 

38 

SI Y=Y2-Y1 

PA 

38 

39 

SI Z=Z2-Z1 

PA 

39 

40 

S2X=X3-X2 

PA 

40 

41 

S2Y=Y3-Y2 

PA 

41 

42 

S2Z=Z3-Z2 

PA 

42 

43 

IF  (NX.EQ.O)  GO  TO  3 

PA 

43 

44 

SI X=S1 X/NX 

PA 

44 

45 

Str=S1 Y/NX 

PA 

45 

46 

S1Z=S1Z/NX 

PA 

46 

47 

S2X=S2X/NY 

PA 

47 

48 

S2Y=S2Y/NY 

PA 

48 

49 

S2Z=S2Z/NY 

PA 

49 

50  3 

XNV=S1 Y*S2Z-S1 Z*S2Y 

PA 

50 

51 

YNV=S1Z*S2X-S1X*S2Z 

PA 

51 

52 

ZNV=S1X*S2Y-S1Y*S2X 

PA 

52 

53 

XA=SQRT(XNV»XNV+YNV»YNV+ZNV*ZNV) 

PA 

53 

54 

XNV=XNV/XA 

PA 

54 

55 

YNV=YNV/XA 

PA 

55 

56 

ZNV=ZNV/XA 

PA 

56 

57 

XST=SQRT(S1 X*S1 X+S1Y*S1Y+S1Z*S1Z) 

PA 

57 

58 

T1 X(MI)=S1 X/XST 

PA 

58 

59 

T 1 Y(MI)=S1 Y/XST 

PA 

59 

60 

T1 Z(MI)=S1 Z/XST 

PA 

60 

61 

IF  (NTP.GT.2)  GO  TO  4 

PA 

61 

62 

X(MI)=X1+.5»(S1X+S2X) 

PA 

62 

63 

Y(Ml)=Y1+.5*(Sl Y+S2Y) 

PA 

63 

64 

Z(MI)=Z1 + . 5* (SI Z+S2Z) 

PA 

64 

PATCH 


65 

BI(kx)=XA 

PA 

65 

66 

GO  TO  6 

PA 

66 

67  4 

IF  (NTP.EQ.4)  GO  TO  5 

PA 

67 

68 

X(MI)=(X1+X2+X3)/3. 

PA 

68 

69 

Y(MI)=(Y1+Y2+Y3)/3. 

PA 

69 

70 

Z(MI)=(Z1+Z2+Z3)/3. 

PA 

70 

71 

BI(MI)=.5*XA 

PA 

71 

72 

GO  TO  6 

PA 

72 

73  5 

SI X=X3-X1 

PA 

73 

74 

SI Y=Y3— Y1 

PA 

74 

75 

SI Z=Z3-Z1 

PA 

75 

76 

S2X=X4— XI 

PA 

76 

77 

S2Y=Y4-Y1 

PA 

77 

78 

S2Z=Z4-Z1 

PA 

78 

79 

XN2=S1 Y*S2Z-S1 Z*S2Y 

PA 

79 

80 

YN2=S1 Z*S2X-S1 X*S2Z 

PA 

80 

81 

ZN2=S1 X*S2Y-S1 Y*S2X 

PA 

81 

82 

XST=SQRT(XN2*XN2+YN2* YN2+ZN2*ZN2) 

PA 

82 

83 

SALPN=1 ./( 3 . • ( XA+XST) ) 

PA 

83 

84 

X(MI)=(XA* (XI +X2+X3)+XST* (XI +X3+X4) ) *SALPN 

PA 

84 

85 

Y(MI)=(XA*(Y1+Y2+Y3)+XST*( Y1+Y3+Y4) )*SALPN 

PA 

85 

86 

Z(MI)=(XA* (Z1 +Z2+Z3)+XST* (Z1+Z3+74) )*SALPN 

PA 

86 

87 

BI(MI)=. 5* (XA+XST ) 

PA 

87 

88 

S1X=(XNV*XN2+YNV*YN2+ZNV*ZN2)/XST 

PA 

88 

89 

IF  (SIX. GT. 0.9998)  GO  TO  6 

PA 

89 

90 

PRINT  14 

PA 

90 

91 

STOP 

PA 

91 

92  6 

T2X(MI)=YNV*T1 Z(MI)-ZNV*T1 Y(MI) 

PA 

92 

93 

T2Y(MI)=ZNV*T1X(MI)-XNV*T1Z(MI) 

PA 

93 

94 

T2Z(MI)=XNV»T1Y(MI)-YNV*T1X(MI) 

PA 

94 

95 

SALP(MI)=1 . 

PA 

95 

96 

IF  (NX.EO.O)  GO  TO  8 

PA 

96 

97 

M=M+NX*NY-1 

PA 

97 

98 

XN2=X(MI)-S 1 X— S2X 

PA 

98 

99 

YN2=Y(MI)-S1  Y-S2Y 

PA 

99 

100 

ZN2=Z(MI)-S1 Z-S2Z 

PA 

100 

101 

XS=T 1 X(MI) 

PA 

101 

102 

YS=T1Y(MI) 

PA 

102 

103 

ZS=T1Z(MI) 

PA 

103 

104 

XT=T2X(MI) 

PA 

104 

105 

YT=T2Y(MI) 

PA 

105 

106 

ZT=T2Z(MI) 

PA 

106 

107 

MI=MI+1 

PA 

107 

108 

DO  7  IY=1 , NY 

PA 

108 

109 

XN2=XN2+S2X 

PA 

109 

110 

YN2=YN2+S2Y 

PA 

1  10 

1  1  1 

ZN2=ZN2+S2Z 

PA 

1  1  1 

112 

DO  7  IX=1 , NX 

PA 

112 

113 

XST=IX 

PA 

113 

114 

MI=MI-1 

PA 

114 

115 

X(MI)=XN2+XST»S1X 

PA 

115 

116 

Y(MI)=YN2+XST»S1 Y 

PA 

116 

117 

Z(MI)=ZN2+XST*S1Z 

PA 

117 

118 

BI(MI)=XA 

PA 

118 

It* 

SALP(MI)=1 

PA 

119 

'20 

T 1 X( Ml )=XS 

PA 

120 

»|1 

T1 Y(MI)»YS 

PA 

121 

<22 

T1Z(MI)-ZS 

PA 

122 

'22 

T2*(Ml )*XT 

PA 

123 

' 

f2T(Ml)*rT 

PA 

124 

*27i »I )«2 T 

PA 

125 

M  • 

[P1<M 

PA 

126 

PA 

127 

PA 

128 

■RBOnDMnnnRnm 


PATCH 

•S 

129 

RETURN 

PA  129 

V 

ft 

130 

C 

DIVIDE  PATCH  FOR  WIRE  CONNECTION 

PA  130 

131 

ENTRY  SUBPH(NX ,  NY.X1 ,Y1 ,Z1 . X2 , Y2 , Z2 . X3 . Y3 . Z3 , X4 , Y4, Z4) 

PA  131 

132 

IF  (NY.GT.O)  GO  TO  10 

PA  132 

< 

133 

IF  (NX.EQ.M)  GO  TO  10 

PA  133 

4 

134 

NXP=NX+1 

PA  134 

r9 

135 

IX=LD-M 

PA  135 

3 

136 

DO  9  IY=NXP,M 

PA  136 

Iv 

137 

IX=IX+1 

PA  137 

8 

138 

NYP=IX— 3 

PA  138 

139 

X(NYP)=X(IX) 

PA  139 

v 

lfl 

140 

Y(NYP)=Y(IX) 

PA  140 

— 

141 

Z(NYP)=Z(IX) 

PA  141 

142 

BI(NYP)=BI(IX) 

PA  142 

143 

SALP(NYP)=SALP(IX) 

PA  143 

$ 

144 

T1X(NYP)=T1X(IX) 

PA  144 

145 

T1  Y(NYP)=T1 Y(IX) 

PA  145 

li 

146 

T 1  Z(NYP)=T 1 Z(IX) 

PA  146 

147 

T2X(NYP)=T2X( IX) 

PA  147 

148 

T2Y(NYP)=T2Y(IX) 

PA  148 

* 

149 

9 

T2Z(NYP)=T2Z(IX) 

PA  149 

150 

10 

MI=LD+1 -NX 

PA  150 

151 

XS=X(MI) 

PA  151 

5 

152 

YS=Y(MI) 

PA  152 

153 

ZS=Z(MI) 

PA  153 

8 

154 

XA=BI(MI) • . 25 

PA  154 

X 

155 

XST=SQRT(XA) • . 5 

PA  155 

£ 

156 

S1X=T1X(MI) 

PA  156 

y. 

157 

SI Y=T1Y(MI) 

PA  157 

158 

S1Z=T1Z(MI) 

PA  158 

159 

S2X=T2X(MI) 

PA  159 

150 

S2Y=T2Y(MI) 

PA  160 

161 

S2Z=T2Z(MI) 

PA  161 

162 

SALN=SALP(MI) 

PA  162 

163 

XT=XST 

PA  163 

164 

YT=XST 

PA  164 

165 

IF  (NY.GT.O)  GO  TO  11 

PA  165 

166 

MIA=MI 

PA  166 

167 

GO  TO  12 

PA  167 

168 

1 1 

M=M+1 

PA  168 

169 

MP=MP+1 

PA  169 

170 

MIA=LD+1-M 

PA  170 

171 

12 

DO  13  IX=1 .4 

PA  171 

172 

X(MIA)=XS+XT*S1 X+YT*S2X 

PA  172 

A 

173 

Y(MIA)=YS+XT»S1 Y+YT*S2Y 

PA  173 

i? 

174 

Z(MIA)=ZS+XT*S1 Z+YT*S2Z 

PA  174 

175 

bi(mia)=xa 

PA  175 

yi 

176 

T 1  X(MIA)=S1 X 

PA  176 

- 

- 

!#; 

177 

T1  Y(MIA)=S1 Y 

PA  177 

178 

T1Z(MIA)=S1Z 

PA  178 

* 

179 

T2X(MIA)=S2X 

PA  179 

.180 

T2Y(MIA)=S2Y 

PA  180 

5; 

181 

T2Z(MIA)=S2Z 

PA  181 

182 

SALP(MIA)=SALN 

PA  182 

183 

IF  (IX.EQ.2)  YT=-YT 

PA  183 

*■ 

184 

IF  (IX.EQ.1 .0R.IX.EQ.3)  XT=-XT 

PA  184 

185 

MIA=MIA-1 

PA  185 

n; 

186 

13 

CONTINUE 

PA  186 

187 

M=M+3 

PA  187 

■ 

188 

IF  (NX.LE.MP)  MP=MP+3 

PA  188 

4 

189 

IF  (NY.GT.O)  Z(MI)=1 0000 . 

PA  189 

190 

RETURN 

PA  190 

/■ 

191 

C 

PA  191 

192 

14 

FORMAT  ( 62H  ERROR  —  CORNERS  OF  QUADRILATERAL  PATCH  DO  NOT  LIE  IN 

PA  192 

4- 
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PATCH 


' 


. 

Mmm#'  \  I 


-Aft  /*?*t*.V*  Av*ftft'a.>g*Vt&»  4  1»V’»  it*"  thm  kt  .ti'J  kiLt-tlt*  k$ 


PCINT 


PCINT 


PURPOSE 


To  compute  the  interaction  matrix  elements  representing  the  electric 
field,  tangent  to  a  segment  connected  to  a  surface,  due  to  the  current  on  the 
four  patches  around  the  connection  point. 


METHOD 


The  four  patches  at  the  base  of  a  connected  wire  are  located  as  shown 


in  figure  JO  with  respect  to  the  vectors  t^  and  t^,  where  patch  numbers 


indicate  the  order  of  the  patches  in  the  data  arrays.  The  position  of  a  point 
on  the  surface  is  defined  by  p  (S^»S2^  “  Pq  +  +  S2t2»  where  is  the 


position  of  the  center  of  the  four  patches  where  the  wire  connects,  and  S 


and  S2  are  coordinates  measured  from  the  center.  The  current  over  the  surface 


is  represented  by  J(S^,S2),  the  currents  at  the  centers  of  the  four  patches 


J(d,d) 


J2  -  J(-d,d) 


J3  -  J(-d,-d) 


J4  -  J(d,-d) 


and  the  current  at  the  base  of  the  segment,  flowing  onto  the  surface,  is  1^. 


The  current  interpolation  function  is  then 


J«i-v  ■  £<si-v  -  ft]  To +  1|1*t(si-s2)ji 


where 


Vl  +  S2t2 


211(8^  +  S22) 


f(d,d)  -  (tx  +  t2)/(4ird) 


f(-d,d)  -  (-tx  +  t2)/(4ird) 


f(-d,-d)  =■  (-tx  -  t2)/(4TTd) 


f(d,-d)  =  (tx  -  t2)/(4TTd) 
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V  *>  V  V  V  V  V  V.  V  V-V  V  V-  .-  '.  V  V-V.  J*,V-V-V- 


y.  •  .■■-.y.Y.y.-.y. 


PCINT 


MP.HP  i  ■  ■ 


where 


E, 


•  r2(p)dA 

•  r2(p)dA 

•  r2(p)dA 

•  h]  t1  • 

dA 


+ 


lh(VS2> 


h(SlfS2)  -  f^.S,)  -  J 


i’  r 


i-l 


*i(Sl,S2)fi 


and  where  1  -  the  unit  vector  in  the  direction  of  the  connected  segment. 

The  integration  is  over  the  total  area  of  the  four  patches  and  is  per¬ 
formed  by  numerical  quadrature.  The  number  of  increments  in  and  S2  used 
in  integration  is  set  by  the  variable  NINT.  When  PCINT  is  called,  the 
parameters  in  COMMON/DATAJ/  have  the  values  for  the  first  connected  patch. 
During  integration,  these  parameters  are  set  for  each  Integration  patch.  At 
the  end  of  PCINT,  they  are  reset  to  their  original  values. 

SYMBOL  DICTIONARY 

A 

x  component  of  i 
d 

area  of  the  surface  element  used  in  integration 
width  of  the  surface  element  of  area  DA 
array  used  to  return  the  values  E^,  E2>  .... 

x,  y,  and  z  components  of  r^pjDA  at  PC50;  at  PC51,  EXK  is  set 
to  i  •  r  (p)DA 

x,  y,  and  z  components  of  T2(p)DA  at  PC50;  at  PC52,  EXS  is  set 
to  i  •  f2(p)DA 

-273- 


CABI  - 
D 

DA 

DS 

E 

EXK 

EYK 

EZK 

EXS 

EYS 

EZS. 


-L-a  .*■  .n'.vakcv <2 ^ 


CtJ 

E4 

E5 

E6 

E7 

E8 

E9 

FCON 

FI 

F2 

GCON 

G1 

G2 

G3 

G4 

11 

12 

NINT 

S 

SABI 

SALPI 

51 

52 
S2X 
TP  I 
T1XJ 
T1YJ 
T1ZJ 
T2XJ 
T2YJ 
T2ZJ 
XI 


l/(4ird)  factor 

h(slfs2)  • 

^(S1,S2)  *  "C2 

l/(4d^)  factor 

«i<VV 

*2<S1-S2> 

83(S1,S2) 

84<S1’S2> 


In  f ^ j  f^*  • • • 

In  g2(S^,S2) ,  ••• 


DO  loop  index 
DO  loop  Index 

number  of  steps  in  S^  and  S^  used  in  approximating  the  Integrals 
for  • • ■ f  Eg 

area  of  each  of  the  four  patches  at  PC11;  area  of  the  surface 
element  used  in  integration  at  PC20 

A 

y  component  of  i 
z  component  of  i 


initial  value  of  S^ 
2ir 


x,  y,  and  z  components  of  t^ 


x,  y,  and  z  components  of  t2 


x  coordinate  of  the  center  of  the  connected  segment 


■MMJUIM  ItWUWMWMMMMIJBUlMAIMAI ».’« VlflllMWWVw  tfu  w  ».».w.T»r 


XJ 

YJ 

ZJ 

xs 

xss 

XXJ 

XYJ 

XZJ 

XI 

YI 

YS 

YSS 

Yl 

ZI 

zs 

zss 

Zl 


POINT 

center  of  first  patch  above  PC41;  center  of  integration  element 
below  PC41 

x  component  of  pCS^.S^) 
initial  x  coordinate  of  pCS^.S^) 

initial  value  of  XJ,  YJ,  ZJ  saved 

x  component  of  p(d,d)  used  as  reference  for  computing  pCS^^) 
y  coordinate  of  the  center  of  the  connected  segment 
y  component  of  P (si,S2^ 
initial  y  component  of  pCS^.S^) 
y  component  of  p(d,d) 

z  coordinate  of  the  center  of  the  connected  segment 
z  component  of  pCS^.S^) 
initial  z  component  of  p(S^,S^) 
z  component  of  p(d,d) 
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i 


w«v«v«u*v  rv 


- - wirrn  ri«iiMmimfMBmfrf«rffifrrir  igr  ■rrrr«iTiiiiTrrgn^^aia^*>ogCTg 


POINT 


t 

SUBROUTINE  POINT  (XI , YI . ZI ,CABI . SABI , SALPI , E) 

PC 

1 

2  C 

INTEGRATE  OVER  PATCHES  AT  WIRE  CONNECTION  POINT 

PC 

2 

3 

COMPLEX  EXK , EYK , EZK , EXS , EYS , EZS , EXC , EYC , EZC , E , El ,E2,E3,E4,E5,E6,E7 

PC 

3 

4 

1 .E8.E9 

PC 

4 

S 

COMMON  /DATAJ/  S . B , X J , Y J . Z J . CAB J , SAB J , SALP J , EXK , EYK ,  EZK . EXS . EYS , EZ 

PC 

5 

6 

1 S . EXC . EYC , EZC . RKH , IEXK , IND1 . IND2 . IPGND 

PC 

6 

7 

DIMENSION  E(9) 

PC 

7 

8 

EQUIVALENCE  (T1XJ.CABJ).  (T1YJ.SABJ),  (T1 Z J . SALP J ) ,  (T2XJ.B),  ( T2Y 

PC 

8 

9 

1J.IN01),  (T2ZJ.IND2) 

PC 

9 

10 

OATA  TPI/6. 2831 85308/, NINT/10/ 

PC 

10 

11 

0=SQRT(S)*.5 

PC 

1 1 

12 

DS*4.*D/FL0AT(NINT) 

PC 

12 

13 

DA=DS*DS 

PC 

13 

14 

GC0N=1 ./S 

PC 

14 

IS 

FCON-1 ,/(2. *TPI*D) 

PC 

15 

16 

XXJ=XJ 

PC 

16 

17 

XYJaYJ 

PC 

17 

18 

XZJ=ZJ 

PC 

18 

19 

XS«S 

PC 

19 

20 

S=DA 

PC 

20 

21 

S1=D+DS*.5 

PC 

21 

22 

XSS=X J+S1 ’(T1XJ+T2XJ) 

PC 

22 

23 

YSS=YJ+S1*(T1 YJ+T2YJ) 

PC 

23 

24 

ZSS=Z J+S1 •( T1 Z J+T2Z J ) 

PC 

24 

25 

S1=S1+D 

PC 

25 

26 

S2X=S1 

PC 

26 

27 

E1=(0.,0.) 

PC 

27 

28 

E2=(0. .0.) 

PC 

28 

29 

E3=( 0 . .0.) 

PC 

29 

30 

E4=(0. .0.) 

PC 

30 

31 

E5=(0. .0.) 

PC 

31 

32 

E6=(0. .0.) 

PC 

32 

33 

E7=(0. ,0.) 

PC 

33 

34 

E8=(0. .0.) 

PC 

34 

35 

E9=( 0 . , 0 . ) 

PC 

35 

36 

DO  1  11=1 ,NINT 

PC 

36 

37 

S 1 =S 1 -OS 

PC 

37 

38 

S2=S2X 

PC 

38 

39 

XSS=XSS-DS*T1 XJ 

PC 

39 

40 

YSS=YSS-DS*T1 YJ 

PC 

40 

41 

ZSS=ZSS-0S*T1 ZJ 

PC 

41 

42 

XJ=XSS 

PC 

42 

43 

YJ=YSS 

PC 

43 

44 

ZJ=ZSS 

PC 

44 

45 

DO  1  12=1 .NINT 

PC 

45 

46 

S2=S2-DS 

PC 

46 

47 

X J=X J-DS*T2X J 

PC 

47 

48 

YJ=YJ-DS*T2YJ 

PC 

48 

49 

Z J=Z J-DS*T2Z J 

PC 

49 

50 

CALL  UNERE  (XI.YI.ZI) 

PC 

50 

51 

EXK=EXK»CABI+EYK»SABI+EZK*SALPI 

PC 

51 

52 

EXS=EXS*CABI+EYS*SABI+EZS ’SALPI 

PC 

52 

53 

G1=(D+S1 )*(D+S2)*GC0N 

PC 

53 

54 

G2=(D-S1 ) •( D+S2) *GCON 

PC 

54 

55 

G3=(D-S1 )*(D-S2)*GC0N 

PC 

55 

56 

G4=(D+S1 )*(D-S2)*GC0N 

PC 

56 

57 

F2=(S1 *S1 +S2*S2) *TPI 

PC 

57 

58 

F1=S1/F2-(G1 -G2-G3+G4 ) • FCON 

PC 

58 

59 

F2=S2/F2-(G1 +G2-G3-G4 ) • F  CON 

PC 

59 

60 

E1=E1+EXK*G1 

PC 

60 

61 

E2=E2+EXK*G2 

PC 

61 

62 

E3=E3+EXK*G3 

PC 

62 

63 

E4=E4+EXK»G4 

PC 

63 

64 

E5=E5+EXS*G1 

PC 

64 

65 

E6=E6+EXS*G2 

PC 

65 

66 

E7=E7+EXS*G3 

PC 

66 

67 

E8=E8+EXS»G4 

PC 

67 

68  1 

E9=E9+EXK*n+EXS*F2 

PC 

68 

69 

E( 1 )~E1 

PC 

69 

70 

E(2)=E2 

PC 

70 

71 

E(3)=E3 

PC 

71 

72 

E(4)=E4 

PC 

72 

73 

E(5)=£5 

PC 

73 

74 

E(6)=E6 

PC 

74 

75 

E(7)=E7 

PC 

75 

76 

E(8)=E8 

PC 

76 

77 

E(9)=E9 

PC 

77 

78 

XJ=XXJ 

PC 

78 

79 

YJ=XYJ 

PC 

79 

80 

ZJ-XZJ 

PC 

80 

81 

s=xs 

PC 

81 

82 

RETURN 

PC 

82 

83 

ENO 

PC 

83 

PRNT 


PRNT 

PURPOSE 

To  sec  up  the  formats  for  printing  a  record  of  three  integers,  six 
floating  point  numbers,  and  a  Hollerith  string,  where  the  variables  equal  to 
zero  are  replaced  by  blanks.  This  routine  is  used  by  LOAD  in  printing  the 
impedance  data  table. 

METHOD 

A  variable  format  is  used  to  generate  the  record  with  arbitrary  blank 
fill.  Elements  of  the  format  are  picked  from  the  array  IFORM  in  the  DATA 
statement.  Through  IF  statements  operating  on  the  subroutine  input  quantities, 
this  routine  chooses  the  desired  format  elements  and  builds  the  format  in  the 
array  IVAR.  The  program  is  divided  into  two  sections:  the  first  builds  the 
integer  part  of  the  format  and  the  second  the  floating  point  part. 


SYMBOL  DICTIONARY 


ABS 
FL 

FLT 
FL1 
FL2 
FL3 
FL4 
FL5 
FL6 
HALL 
I 

IA 

ICHAR 
IFORM 
IN 
INT 
INI 
IN  2 
IN  3 
IVAR 


external  routine  (absolute  value) 

elements  of  this  array  are  set  equal  to  the  floating  point  input 
quantities  FL1  -  FL6 

array  of  non-zero  floating  point  input  quantities  to  be  printed 


■  input  floating  point  quantities 


4H  ALL  (Hollerith  ALL) 

DO  loop  index 

input  Hollerith  string  (array) 

number  of  characters  in  the  input  Hollerith  string 
array  containing  format  elements 

array  set  equal  to  input  integer  quantities  (INI  -  IN3) 
non-zero  integer  quantities  to  be  printed 

input  integer  quantities 

variable  format  array 
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PRNT 


II  ■  DO  loop  limit 

J  -  Implied  r®  loop  index 

K  *  index  parameter 

L  •  implied  DO  loop  index 

NCPW  ■  number  of  Hollerith  characters  per  computer  word 

*  floating  point  print  index,  number  of  non— zero  reals 
NINT  ■>  integer  print  index;  number  of  non-zero  integers 
NWORDS  -  number  of  computer  words  in  the  input  Hollerith  string 


PRNT 


t 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 
5!> 
5b 

57 

58 

59 

60 
61 
62 

63 

64 


SUBROUTINE  PRNT  (INI , IN2 , IN3 , FL 1 , FL2 . FL3 , FL4 , FL5 , FL6 , IA , ICHAR) 

PRNT  SETS  UP  THE  PRINT  FORMATS  FOR  IMPEDANCE  LOADING 

DIMENSION  IVAR(13),  IA( 1 ) .  IF0RM(8),  IN(3).  INT(3),  FL(6),  FLT(6) 
INTEGER  HALL 

DATA  IFORM/5H(/3X , , 3HI5 , , 3H5X , , 3HA5 , , 6HE1 3 . 4 , , 4H1 3X . , 3H3X . , 5H2A1 0) 
1/ 

NUM8ER  OF  CHARACTERS  PER  COMPUTER  WORD  IS  NCPW 

DATA  NCPW/10/.HALL/4H  ALL/ 

NWORDS=( ICHAR- 1 )/NCPW+1 

IN(1)=IN1 

IN(2)=IN2 

IN(3)=IN3 

FL(1)=FL1 

FL(2)=FL2 

FL(3)=FL3 

FL(4)=FL4 

FL(5)=FL5 

FL(6)=FL6 

INTEGER  FORMAT 

NINT=0 

IVAR( 1 )=IFORM( 1 ) 

K=1 

11=1 

IF  ( .NOT. (INI .EQ.O.ANO.IN2.EQ.O.AND.IN3.EQ.O))  GO  TO  1 
INT( 1 )=HALL 
NINT=1 
11=2 
K=K+1 

IVAR(K)=IFORM( 4) 

DO  3  1=11.3 
K=K+1 

IF  (IN(I).EQ.O)  GO  TO  2 

NINT=NINT+1 

INT(NINT)=IN(I) 

IVAR(K)=IF0RM(2) 

GO  TO  3 

I VAR ( K ) =IF ORM( 3 ) 

CONTINUE 

K=K+1 

IVAR(K)=IFORM( 7) 

FLOATING  POINT  FORMAT 

NFLT=0 
DO  5  1=1,6 
K=K+1 

IF  ( ABS( FL( I) ) . LT . 1 . E-20 )  GO  TO  4 

NFLT=NFLT+1 

FLT(NFLT)=FL(I) 

IVAR(K)=IF0RM(5) 

GO  TO  5 

IVAR(K)=IFORM( 6) 

CONTINUE 

K=K+1 

IVAR(K)=IF0RM(7) 

K=K+1 

IVAR(K)=IF0RM(8) 

PRINT  IVAR ,  ( INT ( I) , 1=1 , NINT) , ( FLT( J ) , J=1 . NFLT) . (IA( L) . L=1 .NWORDS) 


PR 

PR 

PR 

PR 

PR 

PR 

PR 

PR 

PR 


PR 

PR 

PR 

PR 

PR 

PR 

PR 

PR 


PR 

PR 


PR  10 
PR  11 


12 

13 

14 

15 

16 

17 

18 
19 


PR  20 
PR  21 
PR  22 
PR  23 


24 

25 


PR  26 
PR  27 
PR  28 
PR  29 
PR  30 
PR  31 
PR  32 
PR  33 
PR  34 
PR  35 
PR  36 
PR  37 
PR  38 
PR  39 
PR  40 
PR  41 
PR  42 
PR  43 
PR  44 
PR  45 
PR  46 
PR  47 


PR 

PR 


48 

49 


PR  50 
PR  51 
PR  52 
PR  53 
PR  54 
PR  55 
PR  56 
PR  57 
PR  58 
PR  59 
PR  60 
PR  61 
PR  62 
PR  63 
PR  64 
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QDSRC 


PURPOSE 


To  fill  the  excitation  array  for  a  current  slope  discontinuity  voltage 


source. 


METHOD 


The  current  slope  discontinuity  voltage  source  is  described  in  section 


IV-1  of  Part  I. 


CODING 

QD22  -  QD25  The  connection  number  for  end  1  of  segment  IS  is  temporarily 
set  to  0,  and  TBF  is  called  to  generate  the  function  f£(s) 
for  i  -  IS.  The  zero  in  the  second  argument  of  TBF  causes 
f*  to  go  to  zero  at  the  first  end  of  segment  IS  rather 
than  the  usual  non-zero  value  that  allows  for  current 
flowing  onto  the  wire  end  cap. 

QD26  -  QD31  8^  is  computed  and  other  quantities  set. 

QD32  -  QD119  This  loop  computes  the  fields  due  to  each  segment  on  which 
fj  is  non- zero. 

QD33  -  QD77  Parameters  of  the  source  segment  are  stored  in  COMMON/ 
DATAJ/.  Flags  for  the  extended  thin  wire  approximation 
are  set  as  in  routine  CMSET. 

QD78  -  QD91  This  loop  evaluates  the  electric  field  on  each  segment. 

QD95  -  QD116  This  loop  evaluates  the  magnetic  field  at  each  patch. 

SYMBOL  DICTIONARY 

AI  ■  radius  of  segment  on  which  field  is  evaluated. 

CABI  ■  x  component  of  unit  vector  in  the  direction  of  segment  I 

CCJ  -  CCJX  -  -j/60 

CURD  -  . 

*  4-' 

E  ■  array  of  segment  and  patch  excitation  fields 

ETC  |  ■  E  field  tangent  to  a  segment  or  H  field  components  on  a  patch 

ETK  due  to  cosine,  constant,  and  sine  current  components, 

ETS  respectively,  on  a  segment 

II  ”  array  index  for  patch  excitation 

IJ  *  flag  which,  if  zero,  indicates  that  the  field  is  being  evaluated 
on  the  source  segment 
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QDSRC 


r 


•  V.jt  »  | 


I  .  i  .  ■  I  ‘  ,  « • 


.it  Ii|  . « # 


temporary  storage  of  connection  number 
segment  which  has  the  source  location  on  end  1 
source  segment  number 

y  component  of  unit  vector  in  the  direction  of  segment  I 


arrays  of  components  of  t^  au5  t^  for  patches 


components  of  t  or  t„  for  patches 
1  2 


source  voltage 

coordinates  of  point  where  field  is  evaluated;  XI  is  also 
used  in  the  test  for  the  extended  thin  wire  approximation 
for  the  electric  field 


CONSTANTS 


0.01666666667  -  1/60 


0.999999 


minimum  XI  for  the  extended  thin  wire  approximation 
(maximum  angle  -  0.08  degrees) 


6.283185308 


§ 


V 

V 


I 


|V 


ft 


u 


V 

i 

■ 


I 


a 

I 

•Is 


Eg 


e 


QDSRC 


1 

SUBROUTINE  QDSRC  (IS.V.E) 

OD 

1 

2 

C 

FILL  INCIDENT  FIELD  ARRAY  FOR  CHARGE  DISCONTINUITY  VOLTAGE  SOURCE 

QD 

2 

3 

COMPLEX  VQDS . CURD , CC J , V , EXK . EYK , EZK , EXS , EYS . EZS , EXC , EYC , EZC , ETK , ET 

QD 

3 

4 

1 S . ETC . VSANT , VQD . E . ZARRAY 

QD 

4 

5 

COMMON  /OATA/  LD ,N1 ,N2 ,N,NP .Ml .M2 ,M,MP , X(300) . Y(300) . Z(300) . SI(300  QD 

5 

6 

1 ) ,BI(300) , ALP (300) , BET (300) , IC0N1 (300) , IC0N2( 300) , ITAG( 300 ) , ICONX ( 

QD 

6 

7 

2300 ) , WLAM , IPSYM 

QD 

7 

8 

COMMON  /VSORC/  VQD(30) ,VSANT(30) ,VQ0S(30) . IVQD(30) , ISANT(30) , IQDS( 

QD 

8 

9 

130) , NVQD , NSANT , NODS 

QD 

9 

to 

COMMON  /SEGJ/  AX(30) , BX(30) ,CX(30) . JC0(30) . JSNO , ISC0N(50) .NSCON . IP 

QD 

10 

11 

1 CON( 10) , NPCON 

QD 

1 1 

12 

COMMON  /DATAJ/  S . B . XJ . YJ , ZJ .CAB J ,SABJ .SALP J . EXK . EYK . EZK . EXS . EYS . EZ 

QD 

12 

13 

1 S , EXC . EYC . EZC . RKH , IEXK . IN01 . IND2 . IPGND 

OD 

13 

14 

COMMON  /ANGL/  SALP (300) 

QD 

14 

15 

COMMON  /ZLOAD/  ZARRAY ( 300 ) , NLOAD , NLODF 

QD 

15 

16 

DIMENSION  CCJX(2),  E(1),  CAB(1),  SAB( 1 ) 

QD 

16 

17 

DIMENSION  T 1 X( 1 ) ,  T1Y(1),  T1Z(1).  T2X(1),  T2Y(1).  T2Z(1) 

QD 

17 

18 

EQUIVALENCE  (CCJ.CCJX),  (CAB. ALP),  (SAB. BET) 

QD 

18 

19 

EQUIVALENCE  (T1X.SI),  (T1Y.ALP),  (T1Z.BET),  (T2X.IC0N1),  (T2Y.IC0N 

QD 

19 

20 

12).  (T2Z.ITAG) 

QO 

20 

21 

OATA  TP/6. 283185308/, CCJX/O. ,-.01666666667/ 

00 

21 

22 

I=IC0N1 (IS) 

QD 

22 

23 

IC0N1 (IS)=0 

QD 

23 

24 

CALL  TBF  (IS.O) 

QD 

24 

25 

IC0N1 ( IS)=I 

QD 

25 

26 

S=SI(IS)V5 

QD 

26 

27 

CURD=CC J»V/( ( AL0G(2 . »S/BI(IS) )-1 . ) *(BX( JSNO) •COS(TP,S)+CX( JSNO) »SI 

QD 

27 

28 

1N(TP»S))*WLAM) 

QO 

28 

29 

NQDS=NQ0S+1 

QD 

29 

30 

VQOS(NQDS)=V 

QO 

30 

31 

IQDS ( NQDS ) =IS 

QD 

31 

32 

DO  20  JX=1 . JSNO 

OD 

32 

33 

J=JCO(JX) 

QD 

33 

34 

S=SI(J) 

QD 

34 

35 

B=BI( J) 

QD 

35 

36 

XJ=X(J) 

QD 

36 

37 

Y J=Y( J ) 

QD 

37 

38 

ZJ=Z(J) 

QD 

38 

39 

CAB J=CAB( J  ) 

QD 

39 

40 

SAB J=SAB( J ) 

00 

40 

41 

SALPJ=SALP( J ) 

OD 

41 

42 

IF  (IEXK.EQ.O)  GO  TO  16 

OD 

42 

43 

IPR=IC0N1 ( J) 

QD 

43 

44 

IF  (IPR)  1 ,6,2 

QD 

44 

45 

1 

IPR=-IPR 

QD 

45 

46 

IF  (-IC0N1 (IPR) .NE.J)  GO  TO  7 

ao 

46 

47 

GO  TO  4 

QD 

47 

48 

2 

IF  (IPR. NE.J)  GO  TO  3 

QD 

48 

49 

IF  (CAB J*CAB J+SAB J*SAB J . GT . 1 .E-8)  GO  TO  7 

QD 

49 

50 

GO  TO  5 

QD 

50 

51 

3 

IF  (IC0N2( IPR) .NE.J)  GO  TO  7 

QD 

51 

52 

4 

X I=ABS ( CAB J * CAB ( IPR )+SABJ*SAB( IPR )+SALPJ* SALP ( IPR ) ) 

QD 

52 

53 

IF  (XI. LT. 0.999999)  GO  TO  7 

QD 

53 

54 

IF  ( ABS(8I( IPR)/B-1 . ) . GT . 1 . E-6)  GO  TO  7 

QD 

54 

55 

5 

IN01 =0 

QD 

55 

56 

GO  TO  8 

QD 

56 

57 

6 

IND1=1 

QD 

57 

58 

GO  TO  8 

QD 

58 

59 

7 

IND1=2 

QD 

59 

60 

8 

IPR=IC0N2( J) 

QD 

60 

61 

IF  (IPR)  9.14.10 

QD 

61 

62 

9 

IPR=-IPR 

QD 

62 

63 

IF  (-IC0N2(IPR) .NE.J)  GO  TO  15 

QD 

63 

64 

GO  TO  12 

QD 

64 
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65 

10 

IF  (IPR.NE.J)  GO  TO  11 

QD 

65 

66 

IF  (CABJ*CABJ+SABJ*SABJ .GT .  1 .E-8)  GO  TO  15 

00 

66 

67 

GO  TO  13 

QO 

67 

68 

11 

IF  (ICONI(IPR).NE. J)  GO  TO  15 

QO 

68 

69 

12 

XI=ABS(CABJ*CAB( IPR)+SABJ*SAB(IPR)+SALPJ*SALP( IPR) ) 

00 

69 

70 

IF  (XI. LT. 0.999999)  GO  TO  15 

QD 

70 

71 

IF  (ABS(BI(IPR)/B-1 . ) .GT . 1 . E-6)  GO  TO  15 

QO 

71 

72 

13 

IND2=0 

QD 

72 

73 

GO  TO  16 

QO 

73 

74 

14 

IND2=1 

QD 

74 

75 

GO  TO  16 

QO 

75 

76 

15 

IND2=2 

QO 

76 

77 

16 

CONTINUE 

QD 

77 

78 

DO  17  1=1 , N 

QD 

78 

79 

IJ=I-J 

QO 

79 

80 

XI=X(I) 

QD 

80 

81 

YI=Y(I) 

QO 

81 

82 

ZI=Z(I) 

QD 

82 

83 

AI=BI(I) 

QD 

83 

84 

CALL  EFLO  (XX, YI.ZX.AX. IJ) 

QD 

84 

85 

CABI=CAB(I) 

QD 

85 

86 

SABI=SAB(I) 

QD 

86 

87 

SALPI=SALP( I) 

QD 

87 

88 

ETK=£XK*CABI+EYK*SABI+EZK*SALPI 

QD 

88 

89 

ETS=EXS»CABI+EYS*SABI+EZS*SALPI 

QD 

89 

90 

ETC=EXC*CABI+EYC*SA8I+EZC*SALPI 

QD 

90 

91 

17 

E(I)=E(I)-(ETK*AX(JX)+ETS»BX(JX)+ETC*CX(JX))»CURD 

QO 

91 

92 

IF  (M.EQ.O)  GO  TO  19 

QD 

92 

93 

IJ=LD+1 

QO 

93 

94 

I1=N 

OD 

94 

95 

00  18  1=1 ,M 

QD 

95 

96 

IJ=IJ-1 

QO 

96 

97 

XI=X(IJ) 

QD 

97 

98 

YI=Y(IJ) 

QD 

98 

99 

ZI=Z(IJ) 

QD 

99 

100 

CALL  HSFLD  (XI . YI ,ZI ,0 . > 

QD 

100 

101 

11=11+1 

QO 

101 

102 

TX=T2X( I J ) 

QD 

102 

103 

TY=T2Y(IJ) 

QO 

103 

104 

TZ=T2Z(IJ) 

QD 

104 

105 

ETK=EXK*TX+EYK*TY+EZK*TZ 

QD 

105 

106 

ETS=EXS*TX+EYS*TY+EZS*TZ 

QO 

106 

107 

ETC=EXC*TX+EYC*TY+EZC*TZ 

QD 

107 

108 

E(I1 )=E(I1 )+( ETK*AX( JX)+ETS*BX( JX)+ETC*CX( JX) ) *CURD*SALP(I J ) 

QD 

108 

109 

11=11+1 

QD 

109 

110 

TX=T1X(IJ) 

QD 

110 

111 

TY=T1 Y(IJ ) 

QD 

1 1 1 

112 

TZ=T1Z(IJ) 

QD 

112 

113 

ETK=EXK*TX+EYK*TY+EZK*TZ 

QD 

113 

1 14 

ETS=EXS*TX+EYS*TY+EZS*TZ 

OD 

114 

115 

ETC=EXC • TX+EYC*  T Y+EZC*  TZ 

QD 

115 

116 

18 

E(I1 )=E( 11 )+( ETK*AX( JX)+ETS*BX( JX)+ETC*CX( JX) ) •CURD,SALP( I J ) 

QD 

116 

117 

19 

IF  (NLOAO . GT . 0 .OR . NLODF . GT . 0)  E( J )=E( J )+ZARRAY( J ) *CURD*( AX( JX)+CX( 

QD 

117 

118 

1  JX)) 

QD 

118 

119 

20 

CONTINUE 

QD 

119 

120 

RETURN 

QD 

120 

121 

END 

OD 

121- 
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ELD  PAT 

PURPOSE 

To  compute  and  print  radiated  field  quantities. 

1 

METHOD 

The  quantities  computed  and  the  output  formats  depend  on  the  options 
selected  by  the  first  integer  ( IFAR)  and  fourth  integer  (IPD,  IAVP,  INOR,  IAX) 
on  the  RP  card  (see  Part  III).  These  quantities  are  defined  as  follows^ 

(1)  Power  Gain 

In  the  direction  (0,$) 


Gp(0,<>) 


4ir 


Pft(0,4>) 


P. 

in 


9 


where  Pfl(b  ,<p)  is  the  power  radiated  per  unit  solid  angle  in  the  given 
direction,  and  P^  is  the  total  power  accepted  by  the  antenna.  Therefore, 
P^n  *  ( l/2)Re( VI*) ,  where  V  is  the  applied  source  voltage,  and 


Pj/M)  “  (1/2)  R2Re(E  X  H*)  -  |r  E  .  E*. 


where  R  is  the  observation  sphere  radius.  Since  the  electric  field  calculated 
by  FFLD  (call  it  5')  does  not  include  exp(-jkR) /(R/X) , 


RDPAT 


8ft 


Thus, 


Gp<9,<p)  -  (E*  .  E1*) 

in 


in  terms  of  the  program  variables. 

( 2)  Directive  Gain 

In  the  direction  (6,<p), 


pnce,<t>) 

Gd(6,$)  -  4U  — - 

rad 


where  prad  is  the  total  power  radiated  by  the  antenna.  The  only  difference 
from  power  gain  is  that  P^  is  replaced  by  Pfad,  and  Prad  -  PiQ  -  Ploss,  where 
Ploss  i-8  calculated  as  the  power  lost  in  distributed  and  lumped  loads  on  the 
structure  and  in  the  networks  loads. 


(3)  Component  Gain 

The  gains  are  also  calculated  for  separate,  orthogonal  field  components 
.  1111 

(u,  v).  In  this  case,  E'  *  E'*  is  replaced  by  E^Eu*  or  EyEv*,  and  the 

total  gain  is  the  sum  of  the  two  components. 

( 4)  Average  Gain 

The  user  specifies  a  range  and  number  of  points  in  theta  and  phi  that  in 
turn  specify  the  total  solid  angle  covered,  A,  and  the  sampling  density  for 
the  integral  in  the  expression  for  average  gain; 


fa 


G  dft 
P 


av 


ft 


The  trapezoidal  rule  is  used  in  evaluating  the  integral. 
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(S)  Normalized  Gain 

Normalized  gain  is  simply  the  gain  divided  by  its  maximum  value  or  some 
value  specified  by  the  user* 

The  discussion  of  gains  applies  only  to  the  case  of  a  structure  used  as 

a  radiating  antenna.  For  the*  case  of  an  incident  plane  wave,  the  program 

2 

constants  are  defined  such  that  the  value  of  o/X  is  printed  under  the 
heading  "GAIN."  The  calculation  is 


_0 

1 2 


2  w 

4lTR  scat 


inc 


4tt 


inc 


E*. 

me 


(E'  .  E'*  ) 

scat  scat 


where  ^scac  i®  the  scattered  power  per  unit  area  at  distance  R  in  a  given 
direction,  W^nc  is  the  power  per  unit  area  of  the  incident  plane  wave,  and 
the  primes  on  the  electric  fields  specify  the  fields  used  in  the  program  as 
defined  above.  For  the  carfe  of  a  Hertzian  dipole  used  as  a  source,  the  gain 
equations  are  used;  however,  P^n  is  equal  to  the  total  power  radiated  by  the 
Hertzian  source.  That  is 

P  -in  1 1*  1 2 

in  3  |  X  | 

where  the  quantity  l£  is  an  input  quantity. 

(6)  Elliptic  Polarization 

Elliptic  polarization  parameters  are  calculated  as  follows: 
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M  ■  UEym  cos  Y  ♦  Ezm  cos  £  Y)  2  +  E2^  sin2  £  sin2  Y^2  > 

2  2  2  21/2 

N  -  [Eym  sin  Y  “  Ezm  cos  £  cos  y)  +  Ezm  sin  £  cos  y!  '  » 

where 

Ey  *  Eym  exPU<Wt  “  **)  ]  , 

E  ■  E  exp  [  j  ( U)t  -  lux  ♦  5)1  > 

Z  ZZQ 

and  Y  is  given  by 


Can  2y 


2E  E  cos£ 
ym  zm 


E 

ym 


E 


2 

zm 


In  this  routine,  Che  coordinates  y  and  z  above  are  replaced  by  6  and 
respectively. 

The  field  is  computed  by  FFLD  at  RD74  for  space  wave  or  by  GFLD  at  RD76 
for  space  and  ground  wave.  Elliptic  polarization  parameters  are  computed  from 
R087  to  R0118.  RD127  to  RD137  stores  gain  in  the  array  GAIN  for 

normalization.  The  integral  of  radiated  power  for  the  average  gain 
calculation  is  summed  at  RD140  to  R0147.  Fields  and  gain  are  printed  at  RD162 
for  space  wave  or  RD165  for  ground  wave.  Average  gain  is  computed  and  printed 
from  R0168  to  RD173.  Normalized  gain  is  printed  from  RD174  to  RD208. 


SYMBOL  DICTIONARY 
AXRAT 
CHT 
CLT 
DA 
DFAZ 


*  N/M  (elliptic  axial  ratio) 

*  height  of  cliff  in  meters 

■  distance  in  meters  of  cliff  edge  from  origin 

■  element  of  solid  angle  for  average  gain  summation 

■  phase  difference  between  EQ  and  E^  for  elliptic 
polarization 
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DPH 

DTH 

EMAJR2 

EMINR2 

EPH 


EPHA 

EPHM 

EPHM2 

EPSR 

EPSR2 

ERD 

ERDA 

ERDM 

ETH 

ETHA 

ETHM 

ETHM2 

EXRA 

EXRM 

GCON 

GCOP 

GMAX 

GNH 

GNMJ 

GNMN 

GNOR 

GNV 

GTOT 

I A  VP 

IAX 

I  FAR 


*  increment  for  <p 
m  increment  for  0 

■  M2  (M  ■  major  axis) 

-  N2 

*  E^  (phi  component  of  electric  field,  with  or 
without  the  term  exp(-jkR) /(R/A)  depending  on  return 
from  GFLD  or  FFLD) 
phase  angle  of  EPH 
I  EPH  I 
I  EPH 1 2 

relative  dielectric  constant 
relative  dielectric  constant  of  second  medium 
radial  electric  field  for  ground  wave 
phase  of  ERD 
I  ERD  I 

Ee 


phase  of  Eg 

1 

2 


V 


'V 

phase  of  exp(-jkR) 

1/R 

•  2 

factor  multiplying  IE  I  to  yield  gain  or 

a/\2 

GCON  except  when  GCON  yields  directive  gain;  then  GCOP 

remains  power  gain 

value  used  for  normalized  gain 

horizontal  gain  in  decibels,  $  component 

major  axis  gain  in  decibels 

minor  axis  gain  in  decibels 

if  non-zero,  equals  input  gain  quantity 

vertical  gain  (0) 

total  gain 

flag  for  average  gain 

flag  for  gain  type 

first  integer  from  RP  card 
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IXTYP 

NORMAX 


PLOSS 


STILTA 


THETS 

TILTA 


CONSTANTS 


3  integer  to  select  normalized  gain 
3  flag  to  select  power  or  directive  gain 
3  excitation  type 

3  dimension  of  FNORM  (maximum  number  of  gain  values  that 
will  be  stored  for  normalization) 

3  number  of  <t>  values 
3  number  of  9  values 
3  4>  in  radians 
3  $  in  degrees 
3  initial  $ 

3  n 

3  input  power  for  current  element  source 
3  summation  variable  for  average  gain 
3  power  dissipated  in  structure  loads 
3  power  dissipated  in  networks  and  transmission  lines 
3  power  radiated  by  the  antenna 

3  if  non-zero,  equal  to  the  observation  distance  in  meters 
3  conductivity  of  ground  (mhos/m) 

3  conductivity  of  second  medium  (mhos/m) 

3  sin  y;  y  is  tilt  angle  of  the  polarization  ellipse 
3  TT/180 
3  180/it 
3  0  in  radians 
3  6  in  degrees 
3  initial  0 

3  y  (tilt  angle  of  ellipse) 

3  minor  axis  of  polarization  ellipse  or  strength  of 
current  element  source 


1.745329252E-2 

l.E-20 


IT/180 

small  value  test 


1 

r 

I 

- 

k 


R 


i# 
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l.E-5 

-l.ELO 

3.141592654 

376.73 

394.51 

57.2957795 

59.96 

90.01 


*  small  value  test 

*  near  minus  infinity 
-  7T 


-  n0/(  2ir) 

=■  test  value  for  angle  exceeding  90  degrees 
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1  SUBROUTINE  RDPAT  RD  1 

2  C  COMPUTE  RADIATION  PATTERN,  GAIN,  NORMALIZED  GAIN  RD  2 

3  INTEGER.  HPOL , HBLK , HCIR , HCLIF  RD  3 

4  COMPLEX  ETH , EPH . ERD , ZRATI , ZRATI2 , T1 .FRATI  RD  4 

5  COMMON  /DATA/  LD.N1 ,N2,N,NP, Ml , M2, M,MP,X(300) ,Y(300) ,Z(300) ,SI(300  RD  5 

6  1), 81(300), ALP(300),BET(300),ICON1(300),ICON2(300),ITAG(300),ICONX(  RD  6 

7  2300) .WLAM.IPSYM  RD  7 

S  COMMON  /SAVE/  IP(600) , KCOM , COM( 13,5), EPSR , SIG , SCRWLT , SCRWRT , FMHZ  RD  8 

9  COMMON  /GND/ZRATI , ZRATI2 , FRATI ,CL ,CH .SCRWL .SCRWR , NRADL , KSYMP , IFAR ,  RD  9 

10  1IPERF.T1.T2  RD  10 

11  COMMON  /FPAT/  NTH, NPH, IPO, IAVP , INOR , IAX , THETS , PHIS, DTH , DPH , RFLD, GN  RD  11 

12  10R ,CLT ,CHT , EPSR2 , SIG2 , IXTYP , XPR6 , PINR , PNLR , P LOSS .NEAR ,NFEH ,NRX ,NRY  RD  12 

13  2 , NRZ , XNR , YNR , ZNR , DXNR , DYNR , DZNR  RD  13 

14  COMMON  /SCRATM/  GAIN(1200)  RD  14 

15  DIMENSION  IGTP(4),  IGAX(4),  IGNTP(IO),  HP0L(3)  RD  15 

16  DATA  HP0L/6HLINEAR , 5HRIGHT , 4HLEFT/,HBLK,HCIR/1H  , 6HCIRCLE/  RD  16 

17  DATA  IGTP/6H  -  , 6HP0WER  , 6H-  DIRE , 6HCTIVE  /  RD  17 

18  DATA  IGAX/6H  MAJOR, 6H  MINOR, 6H  VERT . , 6H  HOR .  /  RD  1 8 

19  DATA  IGNTP/6H  MAJOR, 6H  AXIS  , 6H  MINOR , 6H  AXIS  ,6H  VER , 6HTICAL  ,6  RD  19 
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20 

IN  HORIZ , 6H0NTAL  , 6H  , 6HT0TAL  / 

RD 

20  nS 

21 

DATA  PI , TA . TD/3 .141 592654 . 1 . 745329252E-02 , 57 . 29577951/ 

RD 

21 

22 

DATA  NORMAX/1 200/ 

RD 

22  iM 

23 

IF  (IFAR.LT.2)  GO  TO  2  , 

RD 

23  *3 

24 

PRINT  35 

RD 

24 

25 

IF  (IFAR.LE.3)  GO  TO  1 

RD 

25  *1 

26 

PRINT  36,  NRADL. SCRWLT, SCRWRT 

RD 

26 

27 

IF  (IFAR.EQ.4)  GO  TO  2 

RD 

27 

28 

1 

IF  (IFAR. EO. 2. OR. IFAR. EQ. 5)  HCLIF=HPOL( 1 ) 

RD 

28  W| 

29 

IF  (IFAR. EQ. 3. OR. IFAR. EQ. 6)  HCLIF=HCIR 

RD 

29  Nl 

30 

CL=CLT/WLAM 

RD 

3° 

31 

CH=CHT/WLAM 

RD 

31  1 

32 

ZRATI2=CSQRT ( 1 ./CMPLX( EPSR2 ,-SIG2*WLAM*59 . 96) ) 

RD 

32  ^3 

33 

PRINT  37,  HCLIF, CLT . CHT , EPSR2 , SIG2 

RD 

33 

34 

2 

IF  (IFAR.NE.1)  GO  TO  3 

RD 

34  A 

35 

PRINT  41 

RD 

35 

36 

GO  TO  5 

RD 

36 

37 

3 

I=2*IPD+1 

RD 

38 

J=I+1 

RD 

38 

39 

ITMP1=2»IAX+1 

RD 

39 

40 

ITMP2=ITMP1+1 

RD 

40  M 

41 

PRINT  38 

RD 

41  *3 

42 

IF  (RFLD.LT.1 .E-20)  GO  TO  4 

RD 

42  Vfl 

43 

EX RM=1 ./RFLD 

RD 

43  iJ 1 

44 

EXRA=RFLD/WLAM 

RD 

44  vll 

45 

EXRA=-360 . • ( EXRA-AINT( EXRA) ) 

RD 

45  1 

46 

PRINT  39,  RFLD, EXRM, EXRA 

RD 

46 

47 

4 

PRINT  40,  IGTP(  I)  ,  IGTP(  J  )  ,  IGAX(  ITMP 1  )  ,  IGAX(  ITMP2) 

RD 

47  |d 

48 

5 

IF  (IXTYP. EQ.O. OR. IXTYP. EQ. 5)  GO  TO  7 

RD 

49  <£> 

49 

IF  (IXTYP.EQ.4)  GO  TO  6 

RD 

50 

PRAD=0. 

RD 

50  S 

51 

GC0N=4 . *PI/( 1 .+XPR6*XPR6) 

RD 

51 

52 

GCOP=GCON 

RD 

52  a 

53 

GO  TO  8 

RD 

53  8 

54 

6 

PINR=394 . 51 •XPR6*XPR6*WLAM*WLAM 

RD 

It  a 

55 

7 

GC0P=WLAM*WLAM»2 . *PI/( 376 . 73»PINR) 

RD 

56 

PRAD=PINR-PLOSS-PNLR 

RD 

56  % 

57 

GCON=GCOP 

RD 

57  A 

58 

IF  (IPO.NE.O)  GCON=GCON*PINR/PRAO 

RD 

58  ft 

59 

8 

1=0 

RD 

59  iV 

60 

GMAX=-1 . El  0 

RD 

6° 

61 

PINT=0. 

RD 

61  £ 

62 

TMP1 =DPH*TA 

RD 

62 

63 

63 

TMP2=.5*0TH*TA 

RD 

64 

PHI=PHIS-DPH 

RD 

64  # 

i 


y 
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65 

00  29  KPH=1 ,NPH 

RD 

65 

66 

PHI=PHI+DPH 

RD 

66 

67 

PHA=PHI*TA 

RD 

67 

68 

THET=THETS-DTH 

RD 

68 

69 

DO  29  KTH=1 .NTH 

RD 

69 

70 

THET=THET+OTH 

RD 

70 

71 

IF  (KSYMP . EQ.2 . AND. THET .GT .90.01 . ANO. IFAR .NE .  1  )  GO  TO  29 

RD 

71 

72 

THA=THET»TA 

RD 

72 

73 

IF  (IFAR. EG. 1)  GO  TO  9 

RD 

73 

74 

CALL  FFLD  ( THA, PHA . ETH . EPH) 

RD 

74 

75 

GO  TO  10 

RD 

75 

76 

9 

CALL  GFLD  (RFLD/WLAM . PHA . THET/WLAM . ETH . EPH . ERD , ZRATI . KSYMP) 

RD 

76 

77 

ERDM=CA8S(£R0) 

RD 

77 

78 

ERDA=CANG( ERD) 

RO 

78 

79 

10 

ETHM2=REAL(ETH*C0NJG(ETH) ) 

RD 

79 

80 

ETHM=SQRT(ETHM2) 

RD 

80 

81 

ETHA=CANG (ETH) 

RD 

31 

82 

EPHM2=R  EAL( EPH’CON JG( EPH) ) 

RD 

82 

83 

EPHM=SQRT ( EPHM2 ) 

RD 

83 

84 

EPHA=CANG( EPH) 

RD 

84 

85 

IF  (IFAR.EQ. 1 )  GO  TO  28 

RD 

85 

86 

C 

ELLIPTICAL  POLARIZATION  CALC. 

RD 

86 

87 

IF  (  ETHM2 .  GT .  1  .  E-20 . OR .  EPHM2  .  GT  .  1  .  E-20  )  GO  TO  11 

RD 

87 

88 

TILTA=0 . 

RD 

88 

89 

EMAJR2 =0. 

RD 

89 

90 

EMINR2=0 . 

RD 

90 

91 

AXRAT=0. 

RD 

91 

92 

ISENS=HBLK 

RD 

92 

93 

GO  TO  16 

RD 

93 

94 

1 1 

DFAZ=EPHA-£THA 

RD 

94 

95 

IF  (EPHA.LT.O.)  GO  TO  12 

RD 

95 

96 

DFAZ2=DFAZ-360. 

RD 

96 

97 

GO  TO  13 

RD 

97 

98 

12 

0FAZ2=DFAZ+360 . 

RD 

98 

99 

13 

IF  ( ABS(DFAZ) .GT . ABS(DFAZ2) )  DFAZ=0FAZ2 

RD 

99 

100 

COFAZ=COS(DFAZ*TA) 

RO 

100 

101 

TST0R1 =ETHM2-EPHM2 

RD 

101 

102 

TST0R2=2 . *EPHM*ETHM*CDFAZ 

RD 

102 

103 

TILTA=. 5*ATGN2( TST0R2 . TST0R1 ) 

RD 

103 

104 

STILTA=SIN(TILTA) 

RD 

104 

105 

TST0R1=TST0R1 *STILTA*STILTA 

RD 

105 

106 

TST0R2=TST0R2*STILTA*C0S( TILTA) 

RD 

106 

107 

EMA  JR2=-TS  TORI  +TST0R2+ETHM2 

RD 

107 

108 

EMINR2=TST0R1 -TST0R2+EPHM2 

RD 

108 

109 

IF  (EMINR2.LT.0. )  EMINR2=0 . 

RD 

109 

110 

AXRA  T=SQR T ( EMINR2/EMA  J  R2 ) 

RD 

110 

1 1 1 

TILTA=TILTA*TD 

RD 

111 

112 

IF  (AXRAT.GT. 1 .E-5)  GO  TO  14 

RD 

112 

113 

ISENS=HPOL( 1  ) 

RD 

113 

114 

GO  TO  16 

RD 

1  14 

115 

14 

IF  (DFAZ.GT.O.)  GO  TO  15 

RD 

115 

116 

ISENS=HP0L(2) 

RD 

116 

117 

GO  TO  16 

RD 

117 

118 

15 

ISEN$=HP0L(3) 

RD 

118 

119 

16 

GNMJ=DS 1 0 ( GCON • EMA  J  R2 ) 

RD 

119 

120 

GNMN=0B1 0(GCON*EMlNR2) 

RD 

120 

121 

GNV=0B10(GC0N»ETHM2) 

RD 

121 

122 

GNH=DB 1 0( GCON*  EPHM2 ) 

RD 

122 

123 

GT0T=DB1 0(GC0N* ( ETHM2+EPHM2 ) ) 

RD 

123 

124 

IF  (IN0R.LT.1)  GO  TO  23 

RD 

124 

125 

1=1+1 

RD 

125 

126 

IF  ( I . GT . NORMAX )  GO  TO  23 

RD 

126 

127 

GO  TO  (17.18,19.20,21).  INOR 

RD 

127 

128 

17 

TST0R1=GNMJ 

RD 

128 
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GO  TO  22 

RD 

129 

1 30  18 

TST0R1=GNMN 

RD 

130 

131 

GO  TO  22 

RO 

131 

132  19 

TSTOR1=GNV 

RD 

132 

133 

GO  TO  22 

RO 

133 

134  20 

TST0R1=GNH 

RO 

134 

135 

GO  TO  22 

RD 

135 

136  21 

TSTOR1=GTOT 

RD 

136 

137  22 

GAIN(I)=TST0R1 

RD 

137 

138 

IF  (tsto'ri  . GT.GMAX)  GMAX=TSTOR1 

RD 

138 

139  23 

IF  (IAVP.EQ.0)  GO  TO  24 

RD 

139 

140 

TS  TOR 1 =GCOP  ’(ETHM2+EPHM2) 

RD 

140 

141 

TMP3=THA-TMP2 

RD 

141 

142 

TMP4=THA+TMP2 

RD 

142 

143 

IF  (KTH.EQ.1)  TMP3=THA 

RD 

143 

144 

IF  (KTH.EQ.NTH)  TMP4=THA 

RD 

144 

145 

DA=ABS ( TMP 1 • ( COS (TMP3) -COS (TMP4) ) ) 

RD 

145 

146 

IF  (KPH.EQ.1 .OR.KPH.EQ.NPH)  DA=.5*DA 

RD 

146 

147 

PINT=PINT+TSTOR1 *0A 

RD 

147 

148 

IF  (IAVP.EQ.2)  GO  TO  29 

RD 

148 

149  24 

IF  (IAX.EQ.1)  GO  TO  25 

RD 

149 

150 

TMP5=GNMJ 

RD 

150 

151 

TMP6=GNMN 

RD 

151 

152 

GO  TO  26 

RD 

152 

153  25 

TMP5=GNV 

RD 

153 

154 

TMP6=GNH 

RD 

154 

155  26 

ETHM=ETHM*WLAM 

RD 

155 

156 

EPHM=EPHM*WLAM 

RD 

156 

157 

IF  (RFLD.LT.1 .E-20)  GO  TO  27 

RD 

157 

158 

ETHM=£THM*EXRM 

RD 

1 58 

159 

ETHA=ETHA+EXRA 

RD 

159 

160 

EPHM=EPHM*EXRM 

RD 

160 

161 

EPHA=EPHA+EXRA 

RD 

161 

162  27 

PRINT  42,  THET , PHI , TMP5 , TMP6 , GTOT , AXRAT , TILTA , ISENS , ETHM , ETHA , 

,  EPHM  RD 

162 

163 

1 . EPHA 

RD 

163 

164 

GO  TO  29 

RD 

164 

165  28 

PRINT  43,  RFLD, PHI, THET. ETHM, ETHA, EPHM, EPHA. ERDM.ERDA 

RD 

165 

166  29 

CONTINUE 

RD 

166 

167 

IF  (IAVP.EQ.0)  GO  TO  30 

RD 

167 

168 

TMP3=THETS*TA 

RD 

168 

169 

TMP4=TMP3+0TH*  TA* FLOAT (NTH-1 ) 

RO 

169 

170 

TMP3=A8S (DPH*TA* FLOAT (NPH—1 ) • (COS( TMP3)-C0S( TMP4) ) ) 

RD 

170 

171 

PINT=PINT/TMP3 

RD 

171 

172 

TMP3=TMP3/PI 

RD 

172 

173 

PRINT  44,  PINT , TMP3 

RD 

173 

174  30 

IF  (INOR.EO.O)  GO  TO  34 

RD 

174 

175 

IF  (ABS(GNOR).GT.I .E-20)  GMAX=GNOR 

RD 

175 

176 

I TMP 1 =( INOR— 1 ) • 2+ 1 

RD 

176 

177 

ITMP2=ITMP1 +1 

RD 

177 

178 

PRINT  45,  IGNTP( ITMP1 ) , IGNTP( ITMP2) , GMAX 

RD 

178 

179 

ITMP2=NPH»NTH 

RD 

179 

180 

IF  ( ITMP2 . GT . NORMAX )  ITMP2=N0RMAX 

RD 

ISO 

181 

ITMP1 =( ITMP2+2 )/3 

RD 

181 

182 

ITMP2=ITMP1*3-ITMP2 

RD 

182 

183 

ITMP3=ITMP1 

RD 

183 

184 

ITMP4=2*ITMP1 

RD 

184 

185 

IF  (ITMP2.E0.2)  ITMP4=ITMP4-1 

RD 

185 

186 

DO  31  1=1 , ITMP1 

RD 

186 

187 

ITMP3=ITMP3+1 

RD 

187 

188 

ITMP4=ITMP4+1 

RD 

188 

189 

J=(I-1 )/NTH 

RD 

189 

190 

TMP 1 =THETS+FLOAT( I-J *NTH-1  )*DTH 

RO 

190 

191 

TMP2=PHIS+FL0AT( J)»DPH 

RD 

191 

192 

J=( ITMP3-1 )/NTH 

RD 

192 

-295- 


3 


a 


RDPAT 


193 

194 

195 

196 

197 

198 

199 

200 
201 

202  31 

203 

204  32 

205 

206 

207 

208  33 

209  34 

210  C 

211  35 

212  36 

213 

214 

215  37 

216 

217 

218  38 

219  39 

220 

221  40 

222 

223 

224 

225 

226  41 

227 

228 

229 

230 

231 

232  42 

233  43 

234  44 

235 

236  45 

237 

238 

239 

240  46 

241 


TMP3=THETS+FL0AT ( ITMP3- J  *NTH-1 )  *DTH  RD  193 

TMP4sPHIS+FL0AT(J)*DPH  RD  194 

J=(ITMP4— 1)/NTH  RD  195 

TMP5=THETS+FL0AT( ITMP4— J*NTH-1 ) *0TH  RD  196 

TMP6=PHIS+FL0AT( J)»DPH  RD  197 

TST0R1 =GAIN(I)-GMAX  RD  198 

IF  (I.EQ.ITMP1 .AND.ITMP2.NE.0)  GO  TO  32  RD  199 

TSTOR2=GAIN(ITMP3)-GMAX  RD  200 

PINTsGAIN( ITMP4)— CMAX  RD  201 

PRINT  46,  TMP1 .TMP2.TST0R1 . TMP3 , TMP4 . TST0R2 . TMP5 , TMP6 . PINT  RD202 

GO  TO  34  RD  203 

IF  (ITMP2.EQ.2)  GO  TO  33  RD  204 

TSTOR2=GAIN(ITMP3)-CMAX  RD  205 

PRINT  46,  TMP1 .TMP2.TST0R1 , TMP3 , TMP4, TST0R2  RD  206 

GO  TO  34  RD  207 

PRINT  46.  TMP1 .TMP2.TST0R1  RD  208 

RETURN  RD  209 

RD  210 

FORMAT  (///, 31 X ,39H -  FAR  FIELD  GROUND  PARAMETERS  - .//)  RD  211 

FORMAT  ( 40X , 25HRADIAL  WIRE  GROUND  SCREEN ,/. 40X . 15 , 6H  WIRES ./. 40X . 1  RO  212 
12HWIRE  LENGTH=, F8. 2, 7H  METERS ./. 40X , 1 2HWIRE  RADIUSs, El  0.3, 7H  METER  RD  213 
2S)  RD  214 

FORMAT  (40X.A6.6H  CLIFF ,/. 40X , 1 4HEDGE  DISTANCES, F9 . 2 ,7H  METERS,/, 4  RD  215 
1 0X ,7HHEIGHT=, F8 . 2 ,7H  METERS ,/, 40X , 1 5HSEC0ND  MEDIUM  -,/, 40X .27HRELA  RD  216 
2TIVE  DIELECTRIC  CONST . = , F7 . 3 , / , 40X , 1 3HC0NDUCTIVITY= , E 1 0 . 3 , 5H  MHOS)  RD  217 

FORMAT  (///, 48X , 30H - RADIATION  PATTERNS - )  RD  216 

FORMAT  ( 54X . 6HRANGE=, El 3 . 6 , 7H  METERS ,/ . 54X . 1 2HEXP(-JKR)/R=, El 2 . 5 .9  RD  219 
1 H  AT  PHASE.F7.2.8H  DEGREES,/)  RD  220 

FORMAT  (/.2X.14H -  ANGLES  - , 7X , 2A6 , 7HGAINS  -.7X.24H -  POLARI  RD  221 

1ZATI0N - .4X.20H - E(THETA) - .4X.16H - E(PHI) - ,2H  RD  222 

2-,/, 2X , 5HTHETA . 5X , 3HPHI , 7X , A6 , 2X , A6 . 3X . 5HT0TAL . 6X , 5HAXIAL , 5X , 4HTIL  RD  223 
3T , 3X , 5HSENSE , 2( 5X , 9HMAGNITUDE , 4X , 6HPHASE  ) ./. 2( 1 X . 7HDEGREES , 1 X) . 3(  RD  224 
46X , 2HDB ) . 8X , 5HRATI0 , 5X . 4HDEG . , 8X , 2( 6X . 7HV0LTS/U , 4X , 7HDEGREES) )  RD  225 

FORMAT  (///, 28X , 40H  -  RADIATED  FIELDS  NEAR  GROUND  - ,//.8X,  RD  226 

120H - LOCATION - , 1  OX , 1 6H - E( THETA)  -  -.8X.14H-  -  E(PHI)  -  RD  227 

2  - , 8X , 1 7H - E(RADIAL) - ,/,7X , 3HRH0 , 6X ,3HPHI ,9X , 1  HZ , 1 2X , 3HMAG , 6X  RD  228 

3 , 5HPHASE . 9X . 3HMAG . 6X , 5HPHASE . 9X , 3HMAG , 6X , 5HPHASE . / . 5X . 6HMETERS . 3X .  RD  229 
47HDEGREES , 4X , 6HMETERS . 8X , 7HV0LTS/M , 3X , 7H0EGREES . 6X . 7HV0LTS/M , 3X . 7H  RD  230 
50EGREES , 6X , 7HV0LTS/M, 3X , 7HDEGREES ,/)  RD  231 

FORMAT  (1X,F7.2,F9.2,3X,3F8.2,F11.5,F9.2,2X,A6,2(E15.5,F9.2))  RD  232 

FORMAT  (3X.F9.2,2X.F7.2,2X,F9.2.1X.3(3X,E11 .4.2X.F7.2))  RD233 

FORMAT  (//. 3X . 1 9H AVER AGE  POWER  GAIN= , El  2 . 5 , 7X ,  31HS0LID  ANGLE  USED  RD  234 

1  IN  AVERAGINGS^,  F7 . 4 , 1 6H) *PI  STERADIANS . .//)  RD  235 

FORMAT  (//,  37X  ,  31H - NORMALIZED  GAIN - ,// ,  37X  ,  2A6 , 4HGAI  RD  236 

1 N ,/, 38X , 22HN0RMALIZATI0N  FACTOR  s,F9.2,3H  DB ,// , 3(4X , 1 4H -  ANGLES  RD  237 

2  - , 6X , 4HGAIN , 7X) ,/, 3(4X , 5HTHETA , 5X ,3HPHI ,8X , 2HDB ,8X) ,/, 3(3X , 7H0E  RO  238 

3GREES , 2X , 7HDEGREES , 1 6X ) )  RD  239 

FORMAT  (3(1X,2F9.2,1X,F9.2,6X))  RD  240 

END  RD  241- 
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PURPOSE 


F 


To  read  Che  matrix  B  by  blocks  of  rows  and  write  it  by  blocks  of  columns. 

I 

METHOD  i 

When  ICASX  is  3  or  4  subroutine  CMNGF  writes  B  to  file  14  by  blocks  of  i 

rows.  Filling  B  by  rows  is  convenient  since  the  field  of  a  single  segment  may 
contribute  to  several  columns.  However,  blocks  of  columns  are  needed  when 
A  ^B  is  computed.  Hence  the  format  is  converted. 

NBBX  is  Che  number  of  block  of  B  stored  by  rows  and  NBBL  is  the  number 
of  blocks  stored  by  columns.  The  loop  from  RB16  to  RB23  reads  file  14  and 
stores  the  elements  for  block  NPB  of  columns.  This  process  is  repeated  for 
each  of  the  NBBL  blocks  of  columns. 


SYMBOL  DICTIONARY 

B  *  array  for  blocks  of  columns  of  B 

BX  *  array  for  blocks  of  rows  of  B 

N2C  =  number  of  columns  in  B 

NB  *  number  of  rows  in  B 

NBX  *  number  of  rows  in  blocks  of  rows  of  B  (NPBX) 

NPB  ■  number  of  columns  in  blocks  of  columns  (NPBL  or  NLBL  for  last 

block) 


NPX  ■  NPBX  or  NLBX  for  last  block  of  rows 


U~M 


reblk 


1 

SUBROUTINE  REBLK  ( B , BX ,NB , NBX ,N2C) 

RB 

1 

2 

C 

REBLOCK  ARRAY  B  IN  N.G.F.  SOLUTION  FROM  BLOCKS  OF  ROWS  ON  TAPE  14 

RB 

2 

3 

C 

TO  BLOCKS  OF  COLUMNS  ON  TAPE 16 

RB 

3 

4 

COMPLEX  B.BX 

RB 

4 

5 

COMMON  /MATPAR/  ICASE  ,  NBLOKS , NPBLK , NLAST , NBLSYM , NPSYM.NLSYM , IMAT  , 

,1  RB 

5 

6 

ICASX.NBBX.NPBX.NLBX.NBBL.NPBL.NLBL 

RB 

6 

7 

DIMENSION  B(NB, 1 ) ,  BX(NBX,1) 

RB 

7 

a 

REWIND  16 

RB 

8 

9 

NIB=0 

RB 

9 

10 

NPB=NPBL 

RB 

10 

1 1 

DO  3  18=1 ,NBBL 

RB 

11 

12 

IF  (IB.EQ.N8BL)  NP8=NLBL 

RB 

12 

13 

REWIND  14 

RB 

13 

14 

NIX=0 

RB 

14 

IS 

NPX=NPBX 

RB 

15 

16 

DO  2  IBX=1 ,NBBX 

RB 

16 

17 

IF  (IBX.EQ.NBBX)  NPX=NLBX 

RB 

17 

IS 

READ  (14)  ((BX(I, J) ,1=1 ,NPX) , J=1 ,N2C) 

RB 

18 

19 

DO  1  1=1  ,  NPX 

RB 

19 

20 

IX=I+NIX 

RB 

20 

21 

DO  1  J=1 , NPB 

RB 

21 

22 

1 

B(  IX ,  J)=BX(I,  J+-NIB) 

RB 

22 

23 

2 

NIX=NIX+NPBX 

RB 

23 

24 

WRITE  (16)  ((B(I.J) ,1=1 ,NB) , J=1 ,NPB) 

RB 

24 

25 

3 

NIB=NIB+NPBL 

RB 

25 

26 

REWIND  14 

RB 

26 

27 

REWINO  16 

RB 

27 

28 

RETURN 

RB 

28 

29 

END 

RB 

29- 
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PURPOSE 

To  generate  geometry  data  for  structures  having  plane  or  cylindrical 
symmetry  by  forming  symmetric  images  of  a  previously  defined  structure  unit. 

METHOD 

The  first  part  of  the  code,  from  statement  RE20  to  RE153,  forms  plane 
symmetric  structures  by  reflecting  segments  and  patches  in  the  coordinate 
planes.  The  reflection  planes  are  selected  by  the  formal  parameters  IX,  IY, 
and  IZ.  If  IZ  is  greater  than  zero,  an  Image  of  the  existing  segments  and 
patches  is  formed  by  reflection  in  the  x-y  plane,  which  will  be  called 
reflection  along  the  z  axis.  Next,  if  IY  is  greater  than  zero,  an  image  of 

T 

the  existing  segments  and  patches,  including  those  generated  in  the  previous 
step  by  reflection  along  the  z  axis,  is  formed  by  reflection  along  the  y  axis. 
Finally,  if  IX  is  greater  than  zero,  an  image  of  all  segments  and  patches, 
including  any  previously  formed  by  reflection  along  the  z  and  y  axes ,  is 
formed  by  reflection  along  the  x  axis.  Any  combination  of  zero  and  non-zero 
values  of  IX,  IY,  and  IZ  may  be  used  to  generate  structures  with  one,  two, 
or  three  planes  of  symmetry.  Tag  numbers  of  image  segments  are  incremented 
by  ITX  from  tags  of  the  original  segments,  except  that  tags  of  zero  are  not 
incremented.  After  each  reflection  in  a  coordinate  plane,  ITX  is  doubled. 
Thus,  if  ITX  is  initially  greater  than  the  largest  tag  of  the  existing 
segments,  no  duplicate  tags  will  be  formed  by  reflection  in  one,  two,  or  three 
planes. 

The  code  from  RE157  to  RE204  forms  cylindrically  symmetric  structures 
by  forming  images  of  previously  defined  segments  and  patches  rotated  about  the 
z  axis.  The  number  of  images,  including  the  original  structure,  is  selected 
by  NOP  in  the  formal  parameters.  The  angle  by  which  each  image  is  rotated 
about  the  z  axis  from  the  previous  image  is  computed  as  2tt/N0P,  so  that  the 
images  are  uniformly  distributed  about  the  z  axis.  Tag  numbers  of  segments 
are  incremented  by  ITX,  except  that  tags  of  zero  are  not  incremented. 

When  REFLC  is  used  to  form  structures  with  either  plane  or  cylindrical 
symmetry,  the  data  in  COMMON/DATA/  is  set  so  that  the  program  will  take 
advantage  of  symmetry  in  filling  and  factoring  the  matrix.  This  is  done  by 
setting  N  equal  to  the  total  number  of  segments  but  leaving  NP  equal  to  the 
number  of  segments  in  the  original  structure  unit  that  was  reflected  or 


REFLC 


rotated.  The  symmetry  flag  IPSYM  Is  also  set  to  Indicate  the  type  of 
symmetry:  positive  values  indicating  plane  symmetry  and  negative  values 
cylindrical  symmetry.  These  symmetry  conditions  may  later  be  changed  if  the 
structure  is  modified  in  such  a  way  that  symmetry  is  destroyed. 

SYMBOL  DICTIONARY 

ABS  ■  external  routine  (absolute  value) 

COS  *  external  routine  (cosine) 

CS  -  cos  (2ir/N0P) 

El  ■  segment  coordinate  (temporary  storage) 

E2  *  segment  coordinate  (temporary  storage) 

FNOP  -  NOP 

I  •  DO  loop  index 

ITAGI  ■  segment  tag  (temporary  storage) 

ITI  ”  segment  tag  Increment 

TTX  “  segment  tag  increment 

IX  ■  flag  for  reflection  along  x  axis 

IY  -  flag  for  reflection  along  y  axis 

IZ  ■  flag  for  reflection  along  z  axis 

J  ■  array  location  for  new  patch  data 

K  ■  segment  index  and  array  location  for  old  patch  data 
NOP  ■  number  of  sections  in  cylindrically  symmetric  structure 
NX  ■  segment  index  and  array  location  for  new  patch  data 
NNX  ■  array  location  for  old  patch 

SAM  -  2TT/N0P 

SIN  ■  external  routine  (sine) 

SS  -  sin  (2ir/N0P) 

TlX' 

T1Y 

T1Z  ~  /v 

■  x,  y,  z  components  of  t.  and  t- 

T2X 
T2Y 
T2Z , 

XK  *x  coordinate  of  segment 

X2(I)  ■  x  coordinate  of  end  two  of  segment  I 

YK  ■  y  coordinate  of  segment 
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Y2(I)  ■  y  coordinate  of  end  two  of  segment  I 
Z2(I)  *  z  coordinate  of  end  two  of  segment  I 


CONSTANTS 


l.E-6 


tolerance  in  test  for  zero 


l.E-5 


tolerance  in  test  for  zero 


6.283185308  - 
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1 

SUBROUTINE  REFLC  ( IX . IY . IZ . ITX . NOP) 

RE 

1 

2  C 

RE 

2 

3  C 

REFLC  REFLECTS  PARTIAL  STRUCTURE  ALONG  X.Y.  OR  Z  , 

AXES  OR 

ROTATES  RE 

3 

4  C 

STRUCTURE  TO  COMPLETE  A  SYMMETRIC  STRUCTURE. 

RE 

4 

5  C 

RE 

5 

6 

COMMON  /DATA/  LD.N1 ,N2 , N ,NP ,M1 , M2 ,M , MP , X(300) , Y(300) , Z( 300 ) .SI (300  RE 

6 

7 

1 ) .81(300) ,ALP(300) , BET(300) , IC0N1 (300) .ICON2(300) 

,  I TAG ( 300 ) , IC0NX(  RE 

7 

8 

2300) .WLAM.IPSYM 

RE 

8 

9 

COMMON  /ANGL/  SALP(300) 

RE 

9 

10 

DIMENSION  T1X(1 ) ,  T1Y(1).  T1Z(1),  T2X(1).  T2Y(1). 

T2Z( 1 ) 

.  X2( 1 ) ,  Y  RE 

10 

11 

12(1).  Z2( 1 ) 

RE 

11 

12 

EQUIVALENCE  (T1X.SI).  (T1Y.ALP),  (T1Z.BET) ,  (T2X.IC0N1), 

(T2Y.ICON  RE 

12 

13 

12).  (T2Z.ITAC).  (X2.SI).  (Y2.ALP).  (Z2.BET) 

RE 

13 

14 

NP=N 

RE 

14 

15 

MP=M 

RE 

15 

16 

IPSYMaO 

RE 

16 

17 

ITI=ITX 

RE 

17 

18 

IF  (IX.LT.O)  GO  TO  19 

RE 

18 

19 

IF  (NOP.EQ.O)  RETURN 

RE 

19 

20 

IPSYMal 

RE 

20 

21 

IF  (IZ.EQ.O)  GO  TO  6 

RE 

21 

22  C 

RE 

22 

23  C 

REFLECT  ALONG  Z  AXIS 

RE 

23 

24  C 

RE 

24 

25 

IPSYM*2 

RE 

25 

26 

IF  (N.LT.N2)  GO  TO  3 

RE 

26 

27 

00  2  I=N2.N 

RE 

27 

28 

NX=I+N— N1 

RE 

28 

29 

E1=Z(I) 

RE 

29 

30 

E2=Z2( I) 

RE 

30 

31 

IF  (ABS(E1)+ABS(E2).GT.1 . E-5 . AND . El »E2 .GE .-1 .E-6) 

GO  TO 

1  RE 

31 

32 

PRINT  24.  I 

RE 

32 

33 

STOP 

RE 

33 

34  1 

X(NX)=X(I) 

RE 

34 

35 

Y(NX)=Y(I) 

RE 

35 

36 

Z(NX)=-E1 

RE 

36 

37 

X2(NX)=X2(I) 

RE 

37 

38 

Y2(NX)=Y2(I) 

RE 

38 

39 

Z2(NX )a-E2 

RE 

39 

40 

ITAGI=ITAG(I) 

RE 

40 

41 

IF  (ITAGI.EQ.O)  ITAG(NX)=0 

RE 

41 

42 

IF  (ITAGI.NE.O)  ITAG(NX)=ITAGI+ITI 

RE 

42 

43  2 

BI(NX)=BI(I) 

RE 

43 

44 

N=N*2— N1 

RE 

44 

45 

ITI=ITI»2 

RE 

45 

46  3 

IF  (M.LT.M2)  GO  TO  6 

RE 

46 

47 

NXX=L0+1 -Ml 

RE 

47 

48 

DO  5  I=M2,M 

RE 

48 

49 

NXX=NXX-1 

RE 

49 

50 

NX=NXX— M+M1 

RE 

50 

51 

IF  ( ABS(Z(NXX) ) . GT . 1 . E-1 0)  GO  TO  4 

RE 

51 

52 

PRINT  25.  I 

RE 

52 

53 

STOP 

RE 

53 

54  4 

X(NX)=X(NXX) 

RE 

54 

55 

Y(NX)=Y(NXX) 

RE 

55 

56 

Z(NX)=-Z(NXX) 

RE 

56 

57 

T1X(NX)=T1X(NXX) 

RE 

57 

58 

T1Y(NX)=T1 Y(NXX) 

RE 

58 

59 

T1 Z(NX )=-T1 Z(NXX) 

RE 

59 

60 

T2X(NX)=T2X(NXX) 

RE 

60 

61 

T2Y(NX)=T2Y(NXX) 

RE 

61 

62 

T2Z(NX)=-T2Z(NXX) 

RE 

62 

63 

SALP(NX)*-SALP(NXX) 

RE 

63 

64  5 

BI(NX)=BI(NXX) 

RE 

64 
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65 

M=M»2-M1 

RE 

65 

66  6 

IF  (IY.EQ.0)  GO  TO  12 

RE 

66 

67  C 

RE 

67 

68  C 

REFLECT  ALONG  Y  AXIS 

RE 

68 

69  C 

RE 

69 

70 

IF  (N.LT.N2)  GO  TO  9 

RE 

70 

71 

00  8  I=N2,N 

RE 

71 

72 

NX=I+N-N1 

RE 

72 

73 

E1=Y(I) 

RE 

73 

74 

E2=Y2(I) 

RE 

74 

75 

IF  (ABS(E1)+ABS(E2).GT.1 . E-5 . AND . El *E2 .GE.-1 .£-6)  GO  TO  7 

RE 

75 

76 

PRINT  24.  I 

RE 

76 

77 

STOP 

RE 

77 

78  7 

X(NX)=X(I) 

RE 

78 

79 

Y(NX)=-£1 

RE 

79 

80 

Z(NX)=Z(I) 

RE 

80 

81 

X2(NX)=X2(I) 

RE 

81 

82 

Y2(NX)=-E2 

RE 

82 

83 

Z2(NX)=Z2(I) 

RE 

83 

84 

ITAGI=ITAG(I) 

RE 

84 

85 

IF  (ITAGI.EO.O)  ITAG(NX)*0 

RE 

85 

86 

IF  (ITAGI.NE.O)  ITAG(NX)=ITAGI+ITI 

RE 

86 

87  8 

BI(NX)=BI(I) 

RE 

87 

88 

N=N*2-N1 

RE 

88 

89 

ITI=ITI*2 

RE 

89 

90  9 

IF  (M.LT.M2)  GO  TO  12 

RE 

90 

91 

NXX=LD+1-M1 

RE 

91 

92 

DO  11  I=M2,M 

RE 

92 

93 

NXX=NXX— 1 

RE 

93 

94 

NX=NXX-M+M1 

RE 

94 

95 

IF  (ABS(Y(NXX)).GT.1 .E-10)  GO  TO  10 

RE 

95 

96 

PRINT  25.  I 

RE 

96 

97 

STOP 

RE 

97 

98  10 

X(NX)=X(NXX) 

RE 

98 

99 

Y(NX)=— Y(NXX) 

RE 

99 

100 

Z(NX)=Z(NXX) 

RE 

TOO 

101 

T1 X(NX)=T1 X(NXX) 

RE 

101 

102 

T1 Y(NX)=-T1 Y(NXX) 

RE 

102 

103 

T1Z(NX)=T1Z(NXX) 

RE 

103 

104 

T2X  (  NX  )=T2X  (  NXX) 

RE 

104 

105 

T2Y(NX)=-T2Y(NXX) 

RE 

105 

106 

T2Z(NX)=T2Z(NXX) 

RE 

106 

107 

SALP(NX)=-SALP(NXX) 

RE 

107 

108  11 

0I(NX)=0I(NXX) 

RE 

108 

109 

M=M*2H41 

RE 

109 

110  12 

IF  (IX.EQ.O)  GO  TO  18 

RE 

110 

111  C 

RE 

111 

112  C 

REFLECT  ALONG  X  AXIS 

RE 

112 

113  C 

RE 

113 

114 

IF  (N.LT.N2)  GO  TO  15 

RE 

114 

115 

DO  14  I=N2.N 

RE 

115 

116 

NX=I+N— N1 

RE 

116 

117 

E1=X(I) 

RE 

117 

118 

E2=X2(I) 

RE 

118 

119 

IF  ( ABS( El )+ABS( E2 ) .GT . 1 . E-5 . AND . El *E2 .GE .-1 . E-6)  GO  TO  13 

RE 

119 

120 

PRINT  24.  I 

RE 

120 

121 

STOP 

RE 

121 

122  13 

X(NX)=-E1 

RE 

122 

123 

Y(NX)=Y(I) 

RE 

123 

124 

Z(NX)=Z(I) 

RE 

124 

125 

X2(NX)=-E2 

RE 

125 

126 

Y2(NX)=Y2(I) 

RE 

126 

127 

Z2(NX)=Z2(I) 

RE 

127 

128 

ITAGI=ITAG(I) 

RE 

128 

RE  FLC 


129 

IF  (ITAGI.EQ.O)  ITAG(NX)=0 

RE 

129 

130 

IF  (ITAGI.NE.O)  ITAG(NX)=ITAGI+ITI 

RE 

130 

131  14 

BI(NX)=BI(I) 

RE 

131 

132 

N=N»2-N1 

RE 

132 

133  IS 

IF  (M.LT.M2)  GO  TO  18 

RE 

133 

134 

NXX=LD+1 -Ml 

RE 

134 

135 

00  17  M42. M 

RE 

135 

136 

NXX=NXX-1 

RE 

136 

137 

NX=NXX-M+M1 

RE 

137 

138 

IF  (ABS(X(NXX)).GT.1 .E-10)  GO  TO  16 

RE 

138 

139 

PRINT  25,  I 

RE 

139 

140 

STOP 

RE 

140 

141  16 

X(NX)=-X(NXX) 

RE 

141 

142 

Y(NX)=Y(NXX) 

RE 

142 

143 

Z(NX)=Z(NXX) 

RE 

143 

144 

T1 X(NX)=— T1 X(NXX) 

RE 

144 

145 

T1 Y(NX)=T1 Y(NXX) 

RE 

145 

146 

T1 Z(NX)=T1 Z(NXX) 

RE 

146 

147 

T2X(NX)=— T2X(NXX) 

RE 

147 

148 

T2Y(NX)=T2Y(NXX) 

RE 

148 

149 

T2Z ( NX )=T2Z ( NXX ) 

RE 

149 

150  * 

SALP(NX)=-SALP(NXX) 

RE 

150 

151  17 

BI(NX)=8I(NXX) 

RE 

151 

152 

M=M*2-M1 

RE 

152 

153  18 

RETURN 

RE 

153 

154  C 

RE 

154 

155  C 

REPRODUCE  STRUCTURE  WITH  ROTATION  TO  FORM  CYLINDRICAL  STRUCTURE 

RE 

155 

156  C 

RE 

156 

157  19 

FNOP=NOP 

RE 

157 

158 

IPSYM=— 1 

RE 

158 

159 

SAM=6 .2831 85308/FNOP 

RE 

159 

160 

CS=C0S(SAM) 

RE 

160 

161 

SS=SIN(SAM) 

RE 

161 

162 

IF  (N.LT.N2)  GO  TO  21 

RE 

162 

163 

N=N1+(N-N1 ) *NOP 

RE 

163 

164 

NX=NP+1 

RE 

164 

165 

DO  20  I=NX,N 

RE 

165 

166 

K=I— NP+N1 

RE 

166 

167 

XK=X(K) 

RE 

167 

168 

YK=Y(K) 

RE 

168 

169 

X(I)=XK*CS-YK»SS 

RE 

169 

170 

Y(I)=XK*SS+YK*CS 

RE 

170 

171 

Z(I)=Z(K) 

RE 

171 

172 

XK=X2(K) 

RE 

172 

173 

YK=Y2(K) 

RE 

173 

174 

X2(I)=XK*CS-YK‘SS 

RE 

174 

175 

Y2( I)=XK*SS+YK*CS 

RE 

175 

176 

Z2(I)=Z2(K) 

RE 

176 

177 

ITA3I=ITAG(K) 

RE 

177 

178 

IF  (ITAGI.EQ.O)  ITAG(I)=0 

RE 

178 

179 

IF  (ITAGI.NE.O)  ITAG(I)=ITAGI+ITI 

RE 

179 

180  20 

BI(I)=BI(K) 

RE 

180 

181  21 

IF  (M.LT.M2)  GO  TO  23 

RE 

181 

182 

M=M1+(M-M1 )*NOP 

RE 

182 

183 

NX=MP+1 

RE 

183 

184 

K=LD+1  -Ml 

RE 

184 

185 

DO  22  IaNX.M 

RE 

185 

186 

K=K-1 

RE 

186 

187 

J=K-MP+M1 

RE 

187 

188 

XK=X(K) 

RE 

188 

189 

YK=Y(K) 

RE 

189 

190 

X( J )=XK*CS— YK*SS 

RE 

190 

191 

Y(J)=XK»SS+YK*CS 

RE 

191 

192 

Z(J)=Z(K) 

RE 

192 
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193 

XK=T1X(K) 

RE 

193 

194 

YK=T1Y(K) 

RE 

194 

1 95 

T1X(J)sXK*CS-YK»SS 

RE 

195 

196 

T1Y(J)=XK*SS+YK»CS 

RE 

196 

197 

T1Z(J)=T1Z(K) 

RE 

197 

198 

XK=T2X(K) 

RE 

198 

199 

YK=T2Y(K) 

RE 

199 

200 

T2X(J)=XK»CS-YK*SS 

RE 

200 

201 

T2Y(J)=XK*SS+YK*CS 

RE 

201 

202 

T2Z(J)=T2Z(K) 

RE 

202 

203 

SALP(J)=SALP(K) 

RE 

203 

204 

22 

BI(J)=BI(K) 

RE 

204 

205 

23 

RETURN 

RE 

205 

206 

C 

RE 

206 

207 

24 

FORMAT  (29H  GEOMETRY 

DATA 

ERROR— SEGMENT, 15, 26H  LIES  IN  PLANE  OF  S  RE 

207 

208 

1 YMMETRY) 

RE 

208 

209 

25 

FORMAT  ( 27H  GEOMETRY 

DATA 

ERROR— PATCH. 14. 26H  LIES  IN  PLANE  OF  SYM  RE 

209 

210 

1METRY) 

RE 

210 

211 

END 

RE 

211 
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R0M2 


ROM  2 


PURPOSE 

To  numerically  integrate  over  the  current  distribution  on  a  segment  to 
obtain  the  field  due  to  the  Sommer f eld  integral  term. 


m 


METHOD 

R0M2  integrates  the  product  of  E  (r)  (see  discussion  of  EFLD)  and  the 

9 

current  over  a  segment.  Separate  integrals  are  evaluated  for  current 
distributions  of  constant,  sin  k(s  -  sQ)  and  cos  k(s  -  sQ).  With  three 
vector  components  of  the  field,  there  are  nine  integrals  evaluated 
simultaneously  and  stored  in  the  array  SUM.  The  integration  method  is  the 
same  as  that  described  for  subroutine  INTX,  but  loops  from  one  through  nine 
are  used  at  each  step. 

The  parameter  DMIN  is  set  in  EFLD  to 


; 


where  E' 


'2  '2  '21/2 
DMIN  -  0.01  [IE  I  +  IE  I  +  IE  I  ]  ' 


2  2 
k  -  k 

(Ed(?)  +  - 1  EjCr)  ]  ds 

segment  k.  +  k. 


/ 


DMIN  is  passed  to  TEST  as  the  lower  limit  for  the  denominator  in  the  relative 
error  evaluation  to  avoid  trying  to  maintain  relative  accuracy  in  integrating 
the  Sommerfeld  integral  when  it  is  much  smaller  than  the  other  terms. 


SYMBOL  DICTIONARY 
A 
B 

DMIN 

DZ 

DZOT 

EP 


lower  limit  of  integral 

upper  limit  of  integral 

minimum  for  denominator  in  relative 

error  test 

subinterval  size 

0.5  DZ 

tolerance  for  hitting  upper  limit 


■S*v 


a 


K! 

Si 


i 

m 
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Gl,  G2,  G3,  G4,  G5 


TOO,  TOl,  T02,  TIO,  Til,  T20 
TMAG1,  TMAG2 


3  integrand  values  at  points  within  the 
subinterval 

3  number  of  functions  (9) 

3  minimum  subinterval  size  is  (B  -  A)/NM 
3  present  subinterval  size  is  (B  -  A) /NS 
3  counter  to  control  increasing 
subinterval  size 

3  larger  values  retard  increasing 
subinterval  size 

3  maximum  subinterval  size  is  (B  -  A) /NX 
3  relative  error  limit 
3  B  -  A 

3  array  for  integral  values 
3  (see  subroutine  INTX) 

3  sum  of  the  magnitudes  of  the  integral 
contributions  for  the  constant  current 
distribution 

3  integration  variable  at  left  side  of 
subinterval 


CONSTANTS 


upper  limit 


l.E-4  3  relative  error  criterion 

65536  3  limit  for  cutting  subinterval  size 
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1 

SUBROUTINE  ROM2  (A , B . SUM, DMIN) 

RO 

1 

1 

2  C 

RO 

2 

I 

1 

3  C 

FOR  THE  SOMMERFELD  GROUND  OPTION.  ROM2  INTEGRATES  OVER  THE  SOURCE 

RO 

3 

4  C 

SEGMENT  TO  OBTAIN  THE  TOTAL  FIELD  DUE  TO 

GROUND.  THE  METHOD  OF 

RO 

4 

^  j 

l 

5  C 

VARIABLE  INTERVAL  WIDTH  ROMBERG  INTEGRATION  IS  USED.  THERE  ARE  9 

RO 

5 

6  C 

FIELD  COMPONENTS  -  THE  X,  Y.  AND  Z  COMPONENTS  DUE  TO  CONSTANT. 

RO 

6  , 

I 

c 

7  C 

SINE.  AND  COSINE  CURRENT  DISTRIBUTIONS. 

RO 

7 

I 

1 

• 

8  C 

RO 

8 

9 

COMPLEX  SUM.G1 . G2 , G3 , G4 , G5 , TOO , T0 1 , T10.T02.T1 1 ,T20 

RO 

9 

I 

1 

10 

DIMENSION  SUM(9).  G1(9).  G2(9),  G3(9),  G4(9),  G5(9),  T01(9),  T10(9 

RO 

10 

* 

11 

1).  T20(9 ) 

RO 

1 1 

1 

it 

12 

DATA  NM , NTS .NX .N/65536 ,4,1 .9/.RX/1 . E-4/ 

RO 

12 

>• 

13 

Z=A 

RO 

13 

14 

ZE=B 

RO 

14 

15 

S=B-A 

RO 

15 

r 

16 

IF  (S.GE.O.)  GO  TO  1 

RO 

16 

£ 

17 

PRINT  18 

RO 

17 

18 

STOP 

RO 

18 

19  1 

EP=S/( 1 . E4*NM) 

RO 

19 

m 

20 

ZEND=ZE-EP 

RO 

20 

| 

I r 

21 

DO  2  1=1  ,  N 

RO 

21 

1; 

22  2 

SUM(I)=(0. .0.) 

RO 

22 

23 

NS=NX 

RO 

23 

i 

24 

NT=0 

RO 

24 

i 

25 

CALL  SFLDS  (Z.G1) 

RO 

25 

ft 

26  3 

DZ=S/NS 

RO 

26 

27 

IF  (Z+DZ.LE.ZE)  GO  TO  4 

RO 

27 

| 

28 

DZ=ZE-Z 

RO 

28 

29 

IF  (DZ.LE.EP)  GO  TO  17 

RO 

29 

5 

30  4 

DZOT=DZ* . 5 

RO 

30 

s 

31 

CALL  SFLDS  (Z+DZ0T.G3) 

RO 

31 

32 

CALL  SFLDS  (Z+DZ.G5) 

RO 

32 

'j 

33  5 

TMAG1 =0 . 

RO 

33 

h 

34 

TMAG2=0 . 

RO 

34 

• 

35  C 

RO 

35 

36  C 

EVALUATE  3  POINT  ROMBERG  RESULT  AND  TEST 

CONVERGENCE. 

RO 

36 

J 

37  C 

RO 

37 

t 

38 

DO  6  1=1 , N 

• 

RO 

38 

39 

T00=(G1 ( I)+G5( I) ) *DZOT 

RO 

39 

40 

T01 ( I)=( T00+DZ*G3( I) )  *  .  5 

RO 

40 

a 

41 

T10(I)=(4.*T01 (I)-TOO)/3 . 

RO 

41 

Ll 

42 

IF  (I.GT.3)  GO  TO  6 

RO 

42 

43 

TR=REAL( T01  ( I) ) 

RO 

43 

44 

TI=AIMAG( T01  ( I) ) 

RO 

44 

45 

TMAG1 =TMAG1 +TR*TR+TI*TI 

RO 

45 

46 

TR=REAL( T 10(1)) 

RO 

46 

47 

TI=AIMAG( T1 0( I) ) 

RO 

47 

48 

TMAG2=TMAG2+TR*TR+TI*TI 

RO 

48 

49  6 

CONTINUE 

RO 

49 

50 

TMAG1 =SQRT ( TMAG1 ) 

RO 

50 

51 

TMAG2=SQRT( TMAG2) 

RO 

51 

* 

52 

CALL  TEST ( TMAG1 .TMAG2.TR.0. ,0. .TI.DMIN) 

RO 

52 

53 

IF( TR . GT . RX )G0  TO  8 

RO 

53 

,,5 

54 

DO  7  1=1  ,N 

RO 

54 

55  7 

SUM( I )=SUM( I)+T 10(1) 

RO 

55 

rvi 

m 

56 

NT=NT+2 

RO 

56 

n 

57 

GO  TO  12 

RO 

57 

« 

58  8 

CALL  SFLDS  ( Z+DZ* . 25 , G2 ) 

RO 

58 

•N 

59 

CALL  SFLDS  (Z+DZ* . 75 . G4) 

RO 

59 

L* 

60 

TMAG1 =0 . 

RO 

60 

61 

TMAG2=0 . 

RO 

61 

62  C 

RO 

62 

Tm 

63  C 

EVALUATE  5  POINT  ROMBERG  RESULT  AND  TEST 

CONVERGENCE. 

RO 

63 

64  C 

RO 

64 

s 

v..  fV 
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65 

00  9  1=1 .N 

66 

T02=( T01 ( I)+DZOT*(G2( I)+G4( I) ) )* . 5 

67 

T1 1  =(4-.  •T02-T01  ( I)  )/3 . 

68 

T20(I)=(16.*T11— T10(I))/15. 

69 

IF  (I.GT.3)  GO  TO  9 

70 

TR=REAL(T1 1 ) 

71 

TI=AIMAG(T11) 

72 

TMAG1=TMAG1+TR*TR+TI*TI 

73 

TR=REAL(T20(I) ) 

74 

TI=AIMAG( T20( I)  ) 

75 

TMAG2=TMAG2+TR • TR+T I • T I 

76 

9 

CONTINUE 

77 

TMAG1 =SQRT ( TMAG1  ) 

78 

TMAG2=SQR  T ( TMAG2 ) 

79 

CALL  TEST(TMAG1 , TMAG2 , TR ,0 . ,0 . .TI.DMIN) 

80 

IF(TR . GT . RX)GO  TO  14 

81 

10 

DO  1 1  1=1  ,  N 

82 

1 1 

SUM(I)=SUM(I)+T20(I) 

83 

NT=NT+1 

84 

12 

Z=Z+DZ 

85 

IF  (Z.GT.ZENO)  GO  TO  17 

86 

DO  13  1=1 .N 

87 

13 

G1(I)=C5(I) 

88 

IF  (NT.LT.NTS.OR.NS.LE.NX)  GO  TO  3 

89 

NS=NS/2 

90 

NT=1 

91 

GO  TO  3 

92 

14 

NT=0 

93 

IF  (NS.LT.NM)  GO  TO  15 

94 

PRINT  19.  Z 

95 

GO  TO  10 

96 

15 

NS=NS*2 

97 

DZ=S/NS 

98 

DZ0T=DZ* . 5 

99 

DO  16  1=1 ,N 

100 

G5(I)=G3(I) 

101 

16 

G3(I)=G2(I) 

102 

GO  TO  5 

103 

17 

CONTINUE 

104 

RETURN 

105 

C 

106 

18 

FORMAT  (30H  ERROR  -  B  LESS  THAN  A  IN  R0M2) 

107 

19 

FORMAT  ( 33H  R0M2  —  STEP  SIZE  LIMITED  AT  Z 

108 

END 

RO  65 
RO  66 
RO  67 
RO  68 
RO  69 
RO  70 
RO  71 
RO  72 
RO  73 
RO  74 
RO  75 
RO  76 
RO  77 
RO  78 
RO  79 
RO  80 
RO  81 
RO  82 
RO  83 
RO  84 
RO  85 
RO  86 
RO  87 
RO  88 
RO  89 
RO  90 
RO  91 
RO  92 
RO  93 
RO  94 
RO  95 
RO  96 
RO  97 
RO  98 
RO  99 
RO  100 
RO  101 
RO  102 
RO  103 
RO  104 
RO  105 
RO  106 
RO  107 
RO  108- 
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PURPOSE 

To  evaluate  the  current  expansion  function  associated  with  a  given 
segment,  returning  only  that  portion  on  a  particular  segment. 

METHOD  , 

SBF  Is  very  similar  to  routine  TBF.  Both  routines  evaluate  the  current 
expansion  functions.  However,  while  TBF  stores  the  coefficients  for  each 
segment  on  which  a  given  expansion  function  is  non-zero,  SBF  returns  the 
coefficients  for  only  a  single  specified  segment. 

In  the  call  to  SBF,  I  is  the  segment  on  which  the  expansion  function  is 
centered.  IS  is  the  segment  for  which  the  function  coefficients  A ^ and 
Cj  are  requested.  These  coefficients  are  returned  in  AA,  BB,  CC,  respectively. 

Refer  to  TBF  for  a  discussion  of  the  coding  and  variables.  One  addi¬ 
tional  variable  in  SBF  —  JUNE  —  is  set  to  -1  or  +1  if  segment  IS  is  found 
connected  to  end  1  or  end  2,  respectively,  of  segment  I.  If  I  -  IS  and 
segment  I  is  not  connected  to  a  surface  or  ground  plane,  then  JUNE  is  set  to  0. 
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Ml  rwr  nm  'wrww 

65 

IF  (D.GT. 0.015)  GO  TO  13 

SB  65 

J 

66 

0MC=4 . *0*0 

SB  66 

#  1 

67 

0MC=( ( 1 . 3888889 E-3*OMC-4 . 1 666666667E-2 ) *0MC+ . 5) »OMC 

SB  67 

68 

GO  TO  14 

SB  68 

69  13 

OMC=1 .-CO 

SB  69 

70  14 

AP=1 ./(AL0G(1 ./(PI*BI(I)))-. 577215664) 

SB  70 

ol 

71 

AJsAP 

SB  71 

72 

IF  (NJUN1  .  EQ .  0 )  GO  TO  19 

SB  72 

•j 

73 

IF  (NJUN2.EQ.0)  GO  TO  21 

SB  73 

74 

QP=SO*(PM*PP+AJ»AP)+CO*(PM*AP-PP*AJ) 

SB  74 

75 

QM=(AP*OMC-PP*SD)/QP 

SB  75 

3 

76 

QP*-(AJ*OMC+PM*SD)/QP 

SB  76 

91 

77 

IF  (JUNE)  15,18.16 

SB  77 

g M 

78  15 

AA=AA*QM 

SB  78 

yfl 

79 

BB=BB*QM 

SB  79 

» 

80 

CC=CC*OM 

S8  SO 

81 

GO  TO  17 

SB  81 

v| 

82  16 

AA=— AA*QP 

SB  82 

9 

83 

BB=BB*QP 

SB  83 

pi 

84 

CC=— CC*QP 

SB  84 

85  17 

IF  (I.NE.IS)  RETURN 

SB  85 

|  86  18 

AA=AA— 1 . 

SB  86 

87 

BB=B8+( A J  *QM+AP*QP ) *SDH/SD 

SB  87 

88 

CC=CC+(AJ*QM-AP*QP)»CDH/SD 

SB  88 

VJ 

89 

RETURN 

SB  89 

9 

90  19 

IF  (NJUN2.EQ.0)  GO  TO  23 

SB  90 

M 

91 

0P=PI*BI(I) 

SB  91 

92 

XXI=QP*QP 

SB  92 

)<A 

93 

XXI=QP*( 1 . -.5*XXI)/( 1 .-XXI) 

SB  93 

94 

QP=-(OMC+XXI*SD)/(SD*(AP+XXI*PP)+CD*(XXI»AP-PP)) 

SB  94 

*3 

95 

IF  ( JUNE.NE. 1 )  GO  TO  20 

SB  95 

J 

96 

AA=-AA*QP 

SB  96 

97 

BB=BB*QP 

SB  97 

30  1 

98 

CC=-CC*QP 

SB  98 

5  99 

IF  (I.NE.IS)  RETURN 

SB  99 

100  20 

AA=AA— 1 . 

SB  100 

\  101 

D=CD-XXI*SD 

SB  101 

$  1 02 

BB=BB+(SDH+AP*QP*(CDH— XXI*SDH) )/D 

SB  102 

{  103 

CC=CC+(CDH+AP»QP*(SDH+XXI*CDH))/D 

SB  103 

4  104 

RETURN 

SB  104 

u 

105  21 

QM=PI»BI(I) 

SB  105 

106 

XXI=OM*QM 

SB  106 

107 

XXI=QM*( 1 . — ,5*XXI)/(1 .-XXI) 

SB  107 

[  108 

QM=(OMC+XXI*SD)/(SD*(AJ— XXI*PM)+CD*(PM+XXI*AJ ) ) 

SB  108 

109 

IF  (JUNE.NE.— 1)  GO  TO  22 

SB  109 

110 

AA=AA*QM 

SB  110 

•>| 

111 

BB=B8*QM 

SB  111 

112 

CC=CC*QM 

SB  112 

!  113 

IF  (I.NE.IS)  RETURN 

SB  113 

1  114  22 

AA=AA-1 . 

SB  114 

s 

115 

0=C0-XXI*SD 

SB  115 

i  116 

BB=8B+( A J •QM*(CDH-XXI,SDH)-SDH )/D 

SB  116 

?> 

i  >17 

CC=CC+( CDH-A J  *QM* ( S0H+XXI*C0H ) )/D 

SB  117 

i 

i  118 

RETURN 

SB  118 

fM 

119  23 

AA=-1 . 

SB  1  19 

w 

!  120 

QP=PI*BI(I) 

SB  120 

yf 

121 

XXI=QP*QP 

SB  121 

“y 

122 

XXI=OP*(1 .-.5»XXI)/(1 .-XXI) 

SB  122 

$ 

123 

CC=1 . /(CDH— XXI*SDH) 

SB  123 

124 

RETURN 

SB  124 

y 

125  24 

PRINT  25,  I 

SB  125 

u 

126 

STOP 

SB  126 

127  C 

128  25 

FORMAT  (43H  SBF  -  SEGMENT  CONNECTION  ERROR  FOR  SEGMENT, 15) 

SB  127 

SB  128 

#  j 
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SECOND 

PURPOSE 

To  obtain  the  time  In  seconds 

METHOD 

This  subroutine  acts  as  an  interface  of  the  computer  system's  time 
function  and  the  NEC  program.  The  system  time  function  is  called,  the 
number  is  converted  to  seconds,  and  returned  to  the  NEC  program  through  the 
argument  of  subroutine  SECOND.  On  CDC  6000  series  computers,  the  system  time 
function  is  SECOND  and  is  called  by  the  NEC  program.  This  subroutine  is, 
therefore,  omitted  on  CDC  6000  computers. 

CODE  LISTING 

1  SUBROUTINE  SECOND  (Tl  SE  I 

Call  system  time  function  and  set  T  equal  to  time  in  seconds. 


9 

10 


RETURN 

END 


SC  9 
SC  to- 


© 


-  I 
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SFLDS 


PURPOSE 

To  evaluate  the  Sommerfeld-integral  field  components  due  to  an 
infinitesimal  current  element  on  a  segment. 

METHOD 

The  coordinates  of  tne  segment  are  stored  in  COMMON/ DATAJ/.  The  current 
element,  at  a  distance  T  from  the  center  of  the  segment  is  located  at  (XT,  YT , 
ZT).  From  SL16  to  SL42  the  p,  <j>  and  z  coordinates  of  the  field  evaluation 
point  (XO,  YO,  ZO)  are  computed  in  a  coordinate  system  with  the  z  axis  passing 
through  the  current  element  and  4*  *  0  in  the  direction  of  the  segment 
reference  direction  projected  on  the  x,y  plane.  R2  is  as  shown  in  Figure  6 
(page  160)  and  is  the  same  as  R1  in  Section  IV  of  Part  I. 

The  Sommerfeld-integral  field  is  computed  from  SL85  to  SL111  by  giving 
R2  and  6' ,  with 

-1  /z  + 


6*  -  tan*1 


to  subroutine  INTRP. 
159  of  Part  I  as 


INTRP  returns  the  quantities  in  equations  156  through 


ERV  ■  I 

P 
V 
2 

H 
P 
H 
> 


EZV  -  I 


ERH  -  I 


EPH  -  I 


These  quantities  are  then  multiplied  by  exp^jkR^/Rj*  The  components  for 
a  horizontal  current  element  are  multiplied  by  the  appropriate  factors  of 
sin  4)  or  cos  4>  and  combined  with  the  components  for  a  vertical  current  element 
according  to  the  elevation  angle  of  the  segment.  Thus  lines  SL94  to  SL96  are 
the  p,  z  and  4>  components  of  the  field  of  the  current  element.  These  are 
converted  to  x,  y  and  z  components  and  stored  in  E(l),  E(2)  and 
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SFLDS 


E C 3) •  They  are  also  multiplied  by  sin(kT)  and  cos(kT)  for  the  sine  and  cosine 
current  distributions  and  stored  in  other  elements  of  E. 

When  the  separation  of  the  source  segment  and  observation  point  is  large 
enough  chat  the  Norton  approximation  is  used  for  the  field,  the  code  from  SL49 
to  SL80  is  executed.  In  this  case  SFLDS  is  called  directly  by  EFLD,  with  T 
equal  to  zero,  and  returns  an  approximation  to  the  field  of  the  whole 
segment.  The  current  is  lumped  at  the  center  for  a  point  source  approximation. 

GWAVE  computes  the  total  field  including  direct  field  and  the  asymptotic 
approximation  of  the  field  due  to  ground.  Since  EFLD  has  already  computed 


.2  >,2 

_  _  _  _ 

Vr)  1  Vr) 

\  *  k2 


these  terms  must  be  removed  from  the  field  computed  by  GWAVE.  The  direct 
field  Ep  is  set  to  zero  by  setting  XXI  to  zero  before  calling  GWAVE.  The 
second  term  is  substracted  from  the  field  returned  by  GWAVE  from  SL59  to 
SL63.  The  field  components  of  a  vertical  (V)  and  horizontal  (H)  current 
element  in  Che  direction  <p  ■  0  at  the  image  point  are 


Ep  -  (Er  +  Et)  sin  0  cos  0 

V  2  2 

E  ■  E  cos  0  -  E  sin  0 
u  R  T 

Ep  -  (ERsin20  -  Etcos20)  cos  <J> 

*  (ER  +  Et>  sin  0  cos  0  cos  $ 

E  .  *  E_sin  $ 

<p  T  T 


where 


-in 


411 


(a2/X)' 


(1  +  jkR2) 
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T  8lt2  (R2/X)3 
cos  0  »  ( z  +  z‘  )/R„ 


(1  -  k^R^  +  ikR2) 


sin  0  -  p/R2 
2 

and  current  moment,  If./ A  >1. 

The  sin  9  and  cos  9  factors  are  omitted  to  match  the  quantities 
returned  by  GWAVE.  Also,  the  fields  of  the  horizontal  current  are  reversed 
since  the  image  of  the  source  is  in  the  direction  9  *  130  degrees.  These 
quantities  are  multiplied  by  FRATI  and  subtracted  from  the  fields  returned  by 
GWAVE. 

The  total  field,  in  x,  y  and  z  components,  is  stored  from  SL70  to  SL72. 
S  is  the  length  of  the  segment  in  wavelengths.  Hence  it  is  ll /A  when 
I/A.  *  1.  The  current  moment  for  a  sine  distribution  is  zero  and  for  a 
cosine  distribution  is  sin(ftS)/ir. 
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SYMBOL  DICTIONARY 


CPH 

M 

C08 

9 

E 

m 

array  ! 

EPH 

m 

E» 

9 

or  ] 

ER 

m 

er 

ERH 

m 

EP 

or  : 

ERV 

m 

4 

or  : 

ET 

m 

et 

EZH 

m 

E" 

or  : 

EZV 

m 

4 

or  : 

FRATI 

m 

<■4 

-  1 

HRH 

m 

E» 

for 

.H 


H 

P 


.V 

P 


2 

ll 


$ 
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HRV 

HZV 

A 

PHX 

m  x  component  of  $ 

PHY 

*  y  component  of  $ 

PI 

-  n 

POT 

■  IT/2 

R1 

■  direct  distance  to  source  (set  to 

R2 

”  distance  to  image 

R2S 

-  (R2)2 

RH0 

■  P 

RHS 

-  P2 

RHX 

■  x  component  of  p 

RHY 

■  y  component  of  p 

RJC 

m  RR 

2 

SFAC 

■  value  of  current  or  current  moment 

SPH 

•  sin  $ 

T 

■  distance  from  center  of  segment  to 

THET 

-  0’ 

TP 

•  2tt 

XT,  YT,  ZT  *  coordinates  of  current  element 

ZPHS 

-  (r  ♦  a')2 

CONSTANTS 

1.570796327 

3.141592654 

6.283185308 


-  IT/2 

-  IT 

-  2  IT 
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1 

SUBROUTINE  SFLDS  (T.E) 

SL 

1 

2  C 

SL 

2 

3  C 

SFLDX  RETURNS  THE  FIELD 

DUE  TO  GROUND  FOR 

A  CURRENT  ELEMENT  ON 

SL 

3 

4  C 

THE  SOURCE  SEGMENT  AT  T  1 

RELATIVE  TO  THE  SEGMENT  CENTER. 

SL 

4 

5  C 

SL 

5 

6 

COMPLEX  E . ERV . E2V , ERH . EZH . EPH . T 1 , EXK . EYK . EZK , EXS . E YS , EZS , EXC , E YC . E 

SL 

6 

7 

1ZC.XX1 .  XX2 ,U ,U2 , ZRATI , ZRATI2 , FRATI , ER , ET ,HRV ,HZV ,HRH 

SL 

7 

8 

COMMON  /OATAJ/  S.B.XJ.YJ 

.  Z J . CAB J . SAB J . SALP  J . EXK , EYK , EZK . EXS . EYS , EZ 

SL 

8 

9 

1 S . EXC , EYC . EZC , RKH , IEXK , IND1 . IND2 . IPGND 

SL 

9 

10 

COMMON  /INCOM/  XO.YO.ZO, 

SN , XSN , YSN , ISNOR 

SL 

10 

11 

COMMON  /GWAV/  U.U2.XX1 .XX2.R1 ,R2 .ZMH.ZPH 

SL 

1 1 

12 

COMMON  /GND/ZRATI , ZRATI2 

.FRATI, CL. CH.SCRWL 

. SCRWR . NRADL . KSYMP , IFAR . 

SL 

12 

13 

1IPERF.T1 ,T2 

SL 

13 

14 

DIMENSION  E(9) 

SL 

14 

IS 

DATA  PI/3.141 592654/ . TP/6 . 283 1 85308/ , POT/1 

.570796327/ 

SL 

15 

16 

XT=XJ+T*CABJ 

SL 

16 

17 

YT=YJ+T*SABJ 

SL 

17 

18 

ZT=ZJ+T*SALPJ 

SL 

18 

19 

RHX=XO— XT 

. 

SL 

19 

20 

RHY=YO— YT 

SL 

20 

21 

RHS=RHX«RHX+RHY»RHY 

SL 

21 

22 

RHO=SQRT(RHS) 

SL 

22 

23 

IF  (RHO.GT.O.)  GO  TO  1 

SL 

23 

24 

RHX=1 . 

SL 

24 

25 

RHY=0. 

SL 

25 

26 

PHX=0. 

SL 

26 

27 

PHY=1 . 

SL 

27 

28 

GO  TO  2 

SL 

28 

29  1 

RHX=RHX/RHO 

SL 

29 

30 

RHY=RHY/RHO 

SL 

30 

31 

PHX=— RHY 

SL 

31 

32 

PHY=RHX 

SL 

32 

33  2 

CPH=RHX  »XSN+RH Y • YSN 

SL 

33 

34 

SPH=RHY • XSN-RHX • YSN 

SL 

34 

35 

IF  (ABS(CPH) . LT . 1 . E-1 0) 

CPH=0 . 

SL 

35 

36 

IF  (ABS(SPH) . LT . 1 . E— 1 0) 

SPH=0 . 

SL 

36 

37 

ZPH=ZO+ZT 

SL 

37 

38 

ZPHS=ZPH»ZPH 

SL 

38 

39 

R2S=RHS+ZPHS 

SL 

39 

40 

R2=SQRT(R2S) 

SL 

40 

41 

RK=R2*TP 

SL 

41 

42 

XX2=CMPLX(C0S( RK) .-SIN(RK)) 

SL 

42 

43 

IF  (ISN0R.EQ.1)  GO  TO  3 

SL 

43 

44  C 

SL 

44 

45  C 

USE  NORTON  APPROXIMATION 

FOR  FIELD  DUE  TO 

GROUND.  CURRENT  IS 

SL 

45 

46  C 

LUMPED  AT  SEGMENT  CENTER 

WITH  CURRENT  MOMENT  FOR  CONSTANT.  SINE. 

SL 

46 

47  C 

OR  COSINE  DISTRIBUTION. 

SL 

47 

48  C 

SL 

48 

49 

ZMH=1  . 

SL 

49 

50 

R 1  =1  . 

SL 

50 

51 

XXI =0. 

SL 

51 

52 

CALL  GWAVE  ( ERV . EZV . ERH . 

EZH. EPH) 

SL 

52 

53 

ET=-(0 . , 4. 771 34) •FRATI*XX2/(R2S*R2) 

SL 

53 

54 

ER=2 . *ET*CMPLX( 1 . . RK) 

SL 

54 

55 

ET=ET*CMPLX( 1 .-RK*RK,RK) 

SL 

55 

56 

HRV=( ER+ET) *RH0*ZPH/R2S 

SL 

56 

57 

HZV=(ZPHS*ER-RHS*ET)/R2S 

SL 

57 

58 

HRH=( RHS • ER-ZPHS •ET)/R2S 

SL 

58 

59 

ERV=ERV-HRV 

SL 

59 

60 

EZV=EZV-HZV 

SL 

60 

61 

ERH=ERH+HRH 

SL 

61 

62 

EZH=EZH+HRV 

SL 

62 

63 

EPH=EPH+ET 

SL 

63 

64 

ERV=ERV*SALPJ 

SL 

64 

I  SFLDS 


65 

EZV=EZV*SALP J 

SL 

65 

66 

ERH=ERH*SN*CPH 

SL 

66 

67 

EZH=EZH»SN*CPH 

SL 

67 

68 

EPH=EPH*SN»SPH 

SL 

68 

69 

ERH=ERV+ERH 

SL 

69 

70 

E( 1 )=( ERH*RHX+EPH*PHX) *S 

SL 

70 

71 

E(2)=( ERH*RHY+EPH*PHY) *S 

SL 

71 

72 

E(3)=(EZV+EZH)*S 

SL 

72 

73 

E(4)=0. 

SL 

73 

74 

E(5)=0. 

SL 

74 

75 

E(6)=0 . 

SL 

75 

76 

SFAC=PI*S 

SL 

76 

77 

SFAC=SIN(SFAC)/SFAC 

SL 

77 

78 

E(7)=E( 1 ) *SFAC 

SL 

78 

79 

E(8)=E(2)*SFAC 

SL 

79 

80 

E(9)=E(3)*SFAC 

SL 

80 

81 

RETURN 

SL 

81 

82 

C 

SL 

82 

83 

C 

INTERPOLATE  IN  SOMMERFELD  FIELD  TABLES 

SL 

83 

84 

c 

SL 

84 

85 

3 

IF  (RH0.LT.1 .E-12)  GO  TO  4 

SL 

85 

86 

THET=ATAN(ZPH/RHO) 

SL 

86 

87 

GO  TO  5 

SL 

87 

88 

4 

THET=P0T 

SL 

88 

89 

5 

CALL  INTRP  (R2, THET , ERV , EZV, ERH , EPN) 

SL 

89 

90 

C 

COMBINE  VERTICAL  AND  HORIZONTAL  COMPONENTS  AND  CONVERT  TO  X,Y,Z 

SL 

90 

91 

C 

COMPONENTS.  MULTIPLY  BY  £XP(-JKR)/R. 

SL 

91 

92 

XX2=XX2/R2 

SL 

92 

93 

SFAC=SN*CPH 

SL 

93 

94 

ERH=XX2*(SALPJ*ERV+SFAC*ERH) 

SL 

94 

95 

EZH=XX2*(SALPJ»EZV-SFAC*ERV) 

SL 

95 

96 

EPH=SN*SPH*XX2*EPH 

SL 

96 

97 

c 

X.Y.Z  FIELDS  FOR  CONSTANT  CURRENT 

SL 

97 

98 

E( 1 )=ERH*RHX+EPH*PHX 

SL 

98 

99 

E(2)=ERH*RHY+EPH»PHY 

SL 

99 

100 

E(3)=EZH 

SL 

100 

101 

RK=TP*T 

SL 

101 

102 

c 

X.Y.Z  FIELDS  FOR  SINE  CURRENT 

SL 

102 

103 

SFAC=SIN(RK) 

SL 

103 

104 

E(4)=E(1 )*SFAC 

SL 

104 

105 

E(5)=E(2)*SFAC 

SL 

105 

106 

E(6)=E(3)*SFAC 

SL 

106 

107 

c 

X.Y.Z  FIELDS  FOR  COSINE  CURRENT 

SL 

107 

108 

SFAC=COS(RK) 

SL 

108 

109 

E(7)=E( 1 )*SFAC 

SL 

109 

110 

E(8)=E(2)*SFAC 

SL 

110 

1 1 1 

E(9)=E(3)*SFAC 

SL 

1 1 1 

112 

RETURN 

SL 

112 

113 

END 

SL 

113- 
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PURPOSE 

To  solve  for  Che  basis  function  amplitudes  in  the  NGF  procedure. 

METHOD 

The  operations  performed  here  are  described  in  the  NGF  overview  in 
Section  VI.  SOLGF  is  called  for  either  a  NGF  solution  or  a  normal  solution. 
For  the  normal  solution,  or  for  a  NGF  solution  when  no  new  segments  or  patches 
have  been  added,  the  solution  is  obtained  by  calling  SOLVES  at  SF14. 

Otherwise,  the  rest  of  the  code  is  executed. 

The  excitation  vector  XY  is  filled  in  the  subroutine  ETMNS  in  the  order 

1.  E  on  NGF  segments  (Nl  elements) 

2.  E  on  new  segments  (N  -  Nl  elements) 

3.  H  on  NGF  patches  ( 2M1  elements) 

4.  H  on  new  patches  ( 2M  -  2M1  elements) 

From  SF18  to  SF29  this  vector  is  put  in  the  order 

1.  E  on  NGF  segments 

2.  H  on  NGF  patches 

3.  E  on  new  segments 

4.  H  on  new  patches 

to  conform  to  the  matrix  structure.  From  SF30  to  SF36,  zeros  are  stored  in  XY 

in  the  locations  opposite  the  rows  of  the  C1  matrix.  Line  SF37  then  computes 

A  ^E^  storing  it  in  place  of  E,. 

SF41  to  SF52  computes  E^  -  C  A  E^  and  stores  it  in  palce  of 

E„.  Matrix  C  is  read  from  file  15  if  necessary  to  form  the  product  with 
-1 

A  E^.  From  SF55  to  SF80 
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[D  -  Ca'LB]'L[E2  -  CA_1E1] 


is  computed  ia  the  original  location  of  E^.  if  ICASX  is  4  the  block 
parameters  for  the  primary  matrix  are  temporarily  changed  to  those  of 
0  -  CA~^B  so  that  LTSOLV,  which  uses  the  primary  block  parameters,  can 
perform  the  solution  procedure.  From  SF84  to  SF95 


a_1el  -  (a"1B)I2 


is  computed.  The  reordering  step  at  the  beginning  of  SOLGF  is  then  reversed 
from  SF98  to  SF107  to  put  the  solution  vector  in  the  order 

1.  amplitudes  of  NGF  basis  functions 

2.  amplitudes  of  new  basis  functions 

3.  NGF  patch  currents 

4.  new  patch  currents 

5.  amplitudes  of  modified  basis  functions  for  NGF  segments  that  connect 
to  new  segments 


•  t 

6.  meaningless  values  associated  with  B 

ss 


Finally,  from  SF109  to  SF113  the  amplitudes  of  the  modified  basis  functions 
are  stored  in  place  of  tne  NGF  basis  functions  that  were  set  to  zero. 


SYMBOL  DICTIONARY 
A 
B 

C 

D 

ICASS 

IFL 

IP 

M 


array  for  matrix  A^, 

array  starting  just  after  A  in  CM  (used  for  factoring 

“1. 


D  -  CA  B  for  ICASX  »  2,  3  or  4) 

*  array  for  matrix  C 

=  array  used  for  factoring  D  -  CA  ^B  when  ICASX  *  1 

*  saved  value  of  ICASE 


file  in  which  blocks  of  Ap  are  stored  in  descending 
order  (ascending  order  is  always  on  13) 
array  of  pivot  element  indices 
number  of  patches 


OS 

TV* 


w 
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Ml 

MP 

N 

N1 

NIC 

N2 

N2C 

NBLSYS 

NEQ 

NEQS 

NLSYS 

NP 

NPSYS 

SUM 

XY 


# 


SOLGF 


number  of  patches  in  NGF 

number  of  patches  in  one  symmetric  section  of  the  NGF 
structure 

number  of  segments 

number  of  segments  in  NGF 

number  of  unknowns  in  NGF  (N1  +  2M1) 

Nl  +  1 

number  of  new  unknowns  (order  of  D) 

saved  value  of  NBLSYM 

total  number  of  unknowns  (NGF  and  new) 

i  • 

number  of  columns  in  B  and  B 

sw  ss 

saved  value  of  NLSYM 

number  of  segments  in  a  symmetric  section  of  the  NGF 
structure 

saved  value  of  NPSYM 

summation  variable  for  matrix  products 
excitation  and  solution  vector 


-323- 


SOLGF 


1 

SUBROUTINE  SOLGF  (A , B , C . D , XY . IP .HP ,N1 .N ,MP ,M1 ,M ,N1 C . N2C) 

SF 

1 

2 

C 

SOLVE  FOR  CURRENT  IN  N.G.F.  PROCEDURE 

SF 

2 

3 

COMPLEX  A.B.C.D.SUM.XY.Y 

SF 

3 

4 

COMMON  /SCRATM/  Y(600) 

SF 

4 

S 

COMMON  /SEGJ/  AX ( 30 ) , BX( 30 ) , CX( 30 ) , JCO( 30 ) , JSNO , ISC0N( 50 ) , NSCON , IP 

SF 

5 

6 

1 CON( 10) .NPCON 

SF 

6 

7 

COMMON  /MATPAR/  ICASE .NBLOKS , NPBLK , NLAST .NBLSYM , NPSYM , NLSYM , IMAT , I 

SF 

7 

8 

ICASX.NBBX.NPBX.NLBX.NBBL.NPBL.NLBL 

SF 

S 

9 

DIMENSION  B(NIC.I),  C(NIC.I),  D(N2C,1).  IP(1).  XY(1) 

SF 

9 

10 

IFL=1 4 

SF 

10 

11 

IF  (ICASX.GT.O)  IFL=1 3 

SF 

1 1 

12 

IF  (N2C.GT.0)  GO  TO  1 

SF 

12 

13 

C 

NORMAL  SOLUTION.  NOT  N.G.F. 

SF 

13 

14 

CALL  SOLVES  (A , IP ,XY , N1 C , 1 , NP , N , MP ,M . 1 3 , IFL) 

SF 

14 

15 

GO  TO  22 

SF 

15 

16 

1 

IF  (N1 .EQ.N.0R.M1 .EQ.O)  GO  TO  5 

SF 

16 

17 

C 

REORDER  EXCITATION  ARRAY 

SF 

17 

18 

N2=N1+1 

SF 

18 

19 

JJ=N+1 

SF 

19 

20 

NPM=N+2*M1 

SF 

20 

21 

DO  2  I=N2 ,NPM 

SF 

21 

22 

2 

Y(I)=XY(I) 

SF 

22 

23 

J=N1 

SF 

23 

24 

DO  3  I=J J ,NPM 

SF 

24 

25 

J=J+1 

SF 

25 

26 

3 

X  Y  (  J )  =Y  ( I ) 

SF 

26 

27 

DO  4  I=N2.N 

SF 

27 

28 

J=J+1 

SF 

28 

29 

4 

XY( J )=Y( I) 

SF 

29 

30 

5 

NEQS=NSC0N+2*NPC0N 

SF 

30 

31 

IF  (NEQS.EQ.O)  GO  TO  7 

SF 

31 

32 

NEQ=N1 C+N2C 

SF 

32 

33 

NEQS=NEQ-NEQS+1 

SF 

33 

34 

C 

COMPUTE  INV(A)E1 

SF 

34 

35 

DO  6  I=NEQS ,NEQ 

SF 

35 

36 

6 

XY(I)=(0 . , 0 . ) 

SF 

36 

37 

7 

CALL  SOLVES  (A , IP , XY ,N1 C . 1 ,NP ,N1 ,MP .Ml . 1 3 . IFL) 

SF 

37 

38 

NI=0 

SF 

38 

39 

NPB=NPBL 

SF 

39 

40 

C 

COMPUTE  E2-C(INV(A)E1 ) 

SF 

40 

41 

DO  10  JJ=1 , NBBL 

SF 

41 

42 

IF  ( J J . EQ.NBBL)  NPB=NLBL 

SF 

42 

43 

IF  (ICASX.CT. 1 )  READ  (15)  ( (C(I , J ) , 1=1 , N1 C) , J=1 . NPB) 

SF 

43 

44 

II=N1 C+NI 

SF 

44 

45 

DO  9  1=1 , NPB 

SF 

45 

46 

SUM=(0. .0. ) 

SF 

46 

47 

DO  8  J=1 .NIC 

SF 

47 

48 

8 

SUM=SUM+C(J,I)»XY(J) 

SF 

48 

49 

J=II+I 

SF 

49 

50 

9 

XY( J )=XY( J )— SUM 

SF 

50 

51 

10 

NI=NI+NPBL 

SF 

51 

52 

REWIND  15 

SF 

52 

53 

J  J  =N 1 C+ 1 

SF 

53 

54 

C 

COMPUTE  INV ( D ) ( E2— C ( INV ( A ) E 1  )  )  =  12 

SF 

54 

55 

IF  (ICASX.GT.1)  GO  TO  11 

SF 

55 

56 

CALL  SOLVE  (N2C , D , IP( J J ) ,XY(JJ) ,N2C) 

SF 

56 

57 

GO  TO  13 

SF 

57 

58 

11 

IF  (ICASX.E0.4)  GO  TO  12 

SF 

58 

59 

NI=N2C*N2C 

SF 

59 

60 

READ  (11)  (B( J , 1 ) , J=1 , NI ) 

SF 

60 

61 

REWIND  1 1 

SF 

61 

62 

CALL  SOLVE  (N2C ,B,IP(JJ),XY(JJ),N2C) 

SF 

62 

63 

GO  TO  13 

SF 

63 

64 

12 

NBLSYS=NBLSYM 

SF 

64 
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NPSYS=NPSYM 

SF 

65 

66 

NL$YS=NLSYM 

SF 

66 

67 

ICASS=ICASE 

SF 

67 

68 

NBLSYMsNBBL 

SF 

68 

69 

NRSYUaHPBL 

SF 

69 

70 

NLSYM=NLBL 

SF 

70 

71 

ICASE=3 

SF 

71 

72 

REWIND  11 

SF 

72 

73 

REWIND  16 

SF 

73 

74 

CALL  LTSOLV  (B ,N2C. IP( J J ) ,XY( J J ) , N2C , 1,11,16) 

SF 

74 

75 

REWIND  11 

SF 

75 

76 

REWIND  16 

SF 

76 

77 

N8LSYM=NBLSYS 

SF 

77 

78 

NPSYM=NPSYS 

SF 

78 

79 

NLSYMbNLSYS 

SF 

79 

80 

ICASE=ICASS 

SF 

80 

81 

13 

NI=0 

SF 

81 

82 

NPB=NPBL 

SF 

82 

83 

C 

COMPUTE  INV ( A ) E 1  — ( INV ( A ) B ) 12  =  11 

SF 

83 

84 

DO  16  JJsl.NBBL 

SF 

84 

85 

IF  (JJ.EQ.NBBL)  NPB=NLBL 

SF 

85 

86 

IF  (ICASX.GT.1)  READ  (14)  ((B(I, J) .1=1 .NIC) . J=1 .NPB) 

SF 

86 

87 

II=N1C+NI 

SF 

87 

88 

DO  15  1=1 .NIC 

SF 

88 

89 

SUM=( 0 . .0.) 

SF 

89 

90 

DO  14  J=1  .NPB 

SF 

90 

91 

JP=II+J 

SF 

91 

92 

14 

SUM=SUM+B(I. J)»XY(  JP) 

SF 

92 

93 

15 

XY(I)=XY(I)— SUM 

SF 

93 

94 

16 

NI=NI+NPBL 

SF 

94 

95 

REWIND  14 

SF 

95 

96 

IF  (N1 .E0.N.0R.M1 .EQ.O)  GO  TO  20 

SF 

96 

97 

C 

REORDER  CURRENT  ARRAY 

SF 

97 

98 

DO  17  I=N2,NPM 

SF 

98 

99 

17 

Y(I)=XY(I) 

SF 

99 

100 

J J=N1C+1 

SF 

100 

101 

J=N1 

SF 

101 

102 

DO  18  I=J J ,NPM 

SF 

102 

103 

J=J+1 

SF 

103 

104 

18 

XY(J)=Y(I) 

SF 

104 

105 

DO  19  I=N2 .NIC 

SF 

105 

106 

J=J+1 

SF 

1D6 

107 

19 

XY(J)=Y(I) 

SF 

107 

108 

20 

IF  (NSCON.EQ.O)  GO  TO  22 

SF 

108 

109 

J=NEQS-1 

SF 

109 

110 

DO  21  1=1 .NSCON 

SF 

110 

111 

J=J+1 

SF 

1 1 1 

112 

J J=ISCON(I) 

SF 

112 

113 

21 

XY( J J )=XY( J ) 

SF 

113 

114 

22 

RETURN 

SF 

114 

115 

END 

SF 

115- 
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PURPOSE 


To  solve  the  system  LUx  ■  B,  where  L  is  a  lower  triangular  matrix  with 
ones  on  the  diagonal,  U  is  an  upper  triangular  matrix,  and  B  is  the  right-hand 
side  vector  (RHS) . 

METHOD 

The  algorithm  used  is  described  on  pages  409-415  of  ref.  1.  The  solu¬ 
tion  of  the  matrix  equation  LUx  ■  B  is  found  by  first  solving 


and  then 


since 


Ly  -  B, 


Ux  -  y. 


LUx  -  Ly  -  B  . 

The  solution  of  equations  (3)  and  (4)  is  straightforward  since  the  matrices 
are  both  triangular.  The  solution  of  equation  (3)  can  be  written 


Equation  (4)  can  be  written  similarly. 

The  L  and  U  matrices  are  both  supplied  by  the  subroutine  FACTR  and  are 
stored  in  the  matrix  A;  the  l's  on  the  diagonal  of  L  are  suppressed.  Care 
must  be  exercised  in  the  solution,  since  rows  were  interchanged  during 
factorization,  and  this  necessitates  rearranging  the  RHS  vector;  furthermore, 
the  L  matrix  itself  is  not  completely  rearranged.  The  information  pertinent 
to  the  row  rearrangements  has  been  stored  by  FACTR  in  an  integer  array  (IP), 
and  it  is  used  in  the  computations.  The  final  solution  of  the  equations  is 
overwritten  on  the  input  RHS  vector  B. 

The  only  differences  between  the  coding  in  SOLVE  and  the  coding 
suggested  in  ref.  1  are:  (1)  double  precision  variables  are  not  used  for 
the  accumulation  of  sums,  since,  for  the  size  of  matrices  anticipated  in  core, 
the  computer  word  length  is  sufficient,  and  (2)  the  transposes  of  the  L  and  U 
matrices  are  supplied  in  A  by  FACTR.  Thus,  the  row  and  column  indices  used  in 

the  routine  are  reversed  to  account  for  this  transposition. 
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CODING 


S025  The  solution  for  y  in  equation  (3). 

S039  The  solution  for  x  in  equation  (4)  and  the  storage  of  the 


solution  in  B. 


SYMBOL  DICTIONARY 

A  *  array  contains  the  input  L  and  U  matrices 

B  *  array  contains  the  input  RHS  and  is  overwritten  with  the 

solution 

I  *  DO  loop  index 

IP  *  array  contains  row  positioning  information 
IP1  *1+1 
J  *  DO  loop  index 

K  »  DO  loop  index 

N  -  order  of  the  matrix  being  solved 

NDIM  *  dimension  of  the  array  where  the  matrix  is  stored  NDIM  N 
PI  *  intermediate  integer 

SUM  ■  intermediate  variable 

Y  *  scratch  vector 


« 

•i 


1 


I 

Psi 


iir»  mnunum 


SOLVE 


1 

SUBROUTINE  SOLVE  (N , A . IP , B .NDIM) 

SO 

1 

2 

C 

SO 

2 

3 

C 

SUBROUTINE  TO  SOLVE  THE 

MATRIX  EQUATION  LU 

l*X=B  WHERE 

L  IS  A  UNIT 

SO 

3 

4 

C 

LOWER  TRIANGULAR  MATRIX 

AND  U  IS  AN  UPPER 

TRIANGULAR 

MATRIX  BOTH 

SO 

4 

S 

C 

OF  WHICH  ARE  STORED  IN  t 

k.  THE  RHS  VECTOR 

B  IS  INPUT 

AND  THE 

SO 

5 

6 

C 

SOLUTION  IS  RETURNED  THROUGH  VECTOR  B. 

(MATRIX  TRANSPOSED. 

SO 

6 

7 

C 

SO 

7 

8 

COMPLEX  A.B.Y.SUM 

SO 

8 

9 

INTEGER  PI 

SO 

9 

10 

COMMON  /SCRATM/  Y(600) 

SO 

10 

1 1 

DIMENSION  A(NDIM.NOIM) , 

IP(NDIM),  B(NDIM) 

SO 

1 1 

12 

C 

SO 

12 

13 

C 

FORWARD  SUBSTITUTION 

SO 

13 

14 

C 

SO 

14 

IS 

DO  3  1=1  ,N 

SO 

15 

16 

PI=IP(I) 

SO 

16 

17 

Y(I)=B(PI) 

so 

17 

18 

B(PI)=B(I) 

so 

18 

19 

IP 1=1+1 

so 

19 

20 

IF  (IP1 .GT.N)  GO  TO  2 

so 

20 

21 

DO  1  J=IP1  ,  N 

so 

21 

22 

B(J)=B(J)-A(I.J)*Y(I) 

so 

22 

23 

1 

CONTINUE 

so 

23 

24 

2 

CONTINUE 

so 

24 

25 

3 

CONTINUE 

so 

25 

26 

C 

so 

26 

27 

C 

BACKWARD  SUBSTITUTION 

so 

27 

28 

c 

so 

28 

29 

DO  6  K=1,N 

so 

29 

30 

I=N— K+1 

so 

30 

31 

SUM=(0. ,0.) 

so 

31 

32 

IP 1=1+1 

so 

32 

33 

IF  (IP1 .GT.N)  GO  TO  5 

so 

33 

34 

DO  4  J=IP1 , N 

so 

34 

35 

SUM=SUM+A( J , I) *B( J ) 

so 

35 

36 

4 

CONTINUE 

so 

36 

37 

5 

CONTINUE 

so 

37 

38 

B(I)=(Y(I)-SUM)/A(I,I) 

so 

38 

39 

6 

CONTINUE 

so 

39 

40 

RETURN 

so 

40 

41 

END 

so 

41- 
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PURPOSE 

To  control  solution  of  the  matrix  equation,  Including  transforming  and 
reordering  the  solution  vector. 

METHOD 

When  SOLVES  Is  called,  the  array  B  contains  the  excitation  computed  by 
subroutines  ETMNS  or  NETWK.  The  exciting  electric  field  on  all  segments  is 
stored  first  in  B,  followed  by  the  magnetic  fields  on  all  patches.  In 
the  case  of  a  symmetric  structure,  however,  the  matrix  Is  filled  with 
the  coefficients  of  all  segment  and  patch  dquations  in  the  first  symmetric 
sector  occurring  first.  These  are  followed  by  the  coefficients  for 
successive  sectors  in  the  same  order.  This  order  is  required  for  the  solution 
procedure  for  symmetric  structures  described  in  section  III-9  of  Part  I.  For 
the  case  of  a  symmetric  structure  with  both  segments  and  patches,  SOLVES  first 
rearranges  the  excitation  coefficients  in  array  B  to  correspond  to  the  order 
of  the  matrix  coefficients. 

For  symmetric  structures,  SOLVES  then  computes  the  transforms  of  the 
subvectors  in  B  according  to  equation  (88)  of  Part  I.  Subroutine  SOLVE  or 
LTSOLV  is  then  called  to  compute  the  solution  or  solution  subvectors.  The 
procedure  is  selected  by  the  parameter  ICASE  as  follows. 

1  No  symmetry,  matrix  in  core.  SOLVE  is  called  for  the  solution. 

2  Symmetry,  matrix  in  core.  SOLVE  is  called  for  each  subvector. 

3  No  symmetry,  matrix  out  of  core.  LTSOLV  is  called  for  the  solution. 

4  Symmetry,  complete  matrix  does  not  fit  in  core  but  submatrices  do. 

SOLVE  is  called  for  each  subvector  after  first  reading  the  appropriate 
submatrix  from  file  IFL1. 

5  Symmetry,  submatrices  do  not  fit  in  core.  LTSOLV  is  called  for  each 
subvector. 

SOLVES  then  computes  the  total  current  by  inverse  transforming  the  subvectors 
by  equation  (115)  of  Part  I.  For  a  symmetric  structure  with  segments  and  patches, 
SOLVES  then  rearranges  the  solution  in  array  B  to  put  all  segment  currents 
first,  followed  by  all  patch  currents,  which  is  the  order  of  the  original 
excitation  coefficients. 


—pump— ! 
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Mulciple  right-hand-side  vectors  (NRH)  may  be  processed  simultaneously  at  each 
step  in  SOLVES.  This  reduces  the  time  spent  reading  files  when  LTSOLV  is 
called,  and  is  used  in  computing  A  in  the  NGF  procedure. 


COOING 


SS22  -  SS39 
SS43  -  SS36 
SS63  -  SS75 
SSS1  -  SS94 
SS96  -  SS113 


Rearrange  excitation  coefficients. 
Transform  subvectors. 

Solve  for  each  subvector. 

Inverse  transform  subvectors. 
Rearrange  solution  coefficients. 


SYMBOL  DICTIONARY 

A  *  array  set  aside  for  in-core  matrix  storage,  i.e.,  factored 

matrices 

B  *  right-hand  side;  the  solution  is  overwritten  on  this  array  also 

FNOP  ■  decimal  form  of  NOP 
FNORM  -  1/FNOP 

IFL1  *  file  with  matrix  blocks  in  normal  order 

IFL2  ■  file  with  matrix  blocks  in  reversed  order 

IP  *  array  containing  positioning  data  used  in  SOLVE 

M  *  number  of  patches 

MP  *  number  of  patches  in  a  symmetric  sector 

N  ■  number  of  segments 

NCOL  *  number  of  columns  in  array  A 

NEQ  ”  order  of  complete  matrix 

NOP  *  number  of  symmetric  sectors 

NP  *  number  of  segments  in  a  symmetric  sector 

NPEQ  ■  order  of  a  submatrix 

NRH  ■  number  of  right-hand-side  vectors  in  B 
NROW  »  number  of  rows  in  A 

SSX  ■  array  containing  the  coefficients  S^  in  equation  (89)  of 
Part  I 

SUM  *  summation  variable 

Y  ■  scratch  vector 


3 
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SOLVES 


7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23  1 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33  2 

34 

35  3 

36 

37 

38  4 

39  5 

40  C 

41  C 

42  C 

43  6 

44 

45 

46  7 

47 

48 

49  8 

50 

51 

52 

53 

54 

55  9 

56  10 


59 

60  C 

61  C 

62  C 

63  12 


SUBROUTINE  SOLVES  (A, IP ,B , NEQ , NRH . NP , N ,MP ,M, IFL1 , IFL2) 

SUBROUTINE  SOLVES.  FOR  SYMMETRIC  STRUCTURES.  HANDLES  THE 
TRANSFORMATION  OF  THE  RIGHT  HAND  SIDE  VECTOR  AND  SOLUTION  OF  THE 
MATRIX  EQ. 

COMPLEX  A.B.Y.SUM.SSX 
COMMON  /SMAT/  SSX(16,16) 

COMMON  /SCRATM/  Y(600) 

COMMON  /MATPAR/  ICASE , NBLOKS , NPBLK , NLAST , NBLS YM . NPS YM . NLSYM . IMAT  .  I 
1 CASX ,NB8X , NPBX , NLBX ,NBBL , NPBL ,NLBL 
DIMENSION  A( 1 ) .  IP( 1 ) .  B(NEO.NRH) 

NPEQ=NP+2*MP 
NOP=NEQ/NPEQ 
FNOP=NOP 
FN0RM=1 ./FNOP 
NROW=NEQ 

IF  (ICASE.GT.3)  NROW=NPEQ 
IF  (N0P.EQ.1)  GO  TO  11 
DO  10  IC=1 ,NRH 

IF  (N. EQ. 0 .OR .M. EQ. 0)  GO  TO  6 

DO  1  1=1 .NEQ 

Y(I)=B(I.IC) 

KK=2*MP 

IA=NP 

IB=N 

J=NP 

DO  5  K=1 .NOP 

IF  (K.EQ.1)  GO  TO  3 

DO  2  1=1 ,NP 

IA=IA+1 

J=J+1 

B(J,IC)=r(lA) 

IF  (K.EQ.NOP)  GO  TO  5 
DO  4  1=1 ,KK 
IB=IB+1 
J=J+1 

B( J , IC)=Y( IB) 

CONTINUE 

TRANSFORM  MATRIX  EO.  RHS  VECTOR  ACCORDING  TO  SYMMETRY  MODES 

DO  10  1=1 ,NPEQ 
DO  7  K=1 .NOP 
IA=I+(K-1)*NPEQ 
Y(K)=B(IA.IC) 

SUM=Y ( 1 ) 

DO  8  K=2 ,NOP 
SUM=SUM+Y(K) 

B ( I , IC ) =SUM*  FNORM 
DO  10  K=2 , NOP 
lA=I+( K-1 ) *NPEQ 
SUM=Y ( 1 ) 

DO  9  J=2 ,NOP 

SUM=SUM+ Y ( J ) • CON  J  G ( SS X ( K , J ) ) 

B(IA,IC)=SUM» FNORM 
IF  (ICASE.LT. 3)  GO  TO  12 
REWIND  IFL1 
REWIND  IFL2 

SOLVE  EACH  MODE  EQUATION 

DO  16  KK=1 .NOP 
IA=(KK-1 )*NPEQ+1 


SS  1 
SS  2 


SS  6 
SS  7 


SS  10 
SS  1 1 
SS  12 
SS  13 
SS  14 
SS  15 
SS  16 
SS  17 
SS  18 
SS  19 
SS  20 
SS  21 
SS  22 
SS  23 
SS  24 
SS  25 
SS  26 
SS  27 
SS  28 
SS  29 
SS  30 
SS  31 
SS  32 
SS  33 
SS  34 
SS  35 
SS  36 
SS  37 
SS  38 
SS  39 
SS  40 
SS  41 
SS  42 
SS  43 
SS  44 
SS  45 
SS  46 
SS  47 
SS  48 
SS  49 
SS  50 
SS  51 
SS  52 
SS  53 
SS  54 
SS  55 
SS  56 
SS  57 
SS  58 
SS  59 
SS  60 
SS  61 
SS  62 
SS  63 
SS  64 
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SOLVES 


as 

I8=IA 

SS 

65 

66 

IF  (ICASE.NE.4)  GO  TO  13 

ss 

66 

67 

I=NPEQ»NPEQ 

ss 

67 

68 

READ  (IFL1 )  (A(J),J=1,I) 

ss 

68 

69 

IB=1 

ss 

69 

70 

13 

IF  ( ICASE . EQ . 3 . OR . ICASE . EQ . 5 )  GO  TO  15 

ss 

70 

71 

DO  14  IC=1 ,NRH 

ss 

71 

72 

14 

CALL  SOLVE  (NPEQ.A(IB) , IP( IA) . B( IA , IC) ,NR0W) 

ss 

72 

73 

GO  TO  16 

ss 

73 

74 

15 

CALL  LTSOLV  (A .NPEQ . IP( IA) , B( IA , 1 ) .NEQ.NRH , IFL1 , IFL2) 

ss 

74 

75 

16 

CONTINUE 

ss 

75 

76 

IF  (NOP.EQ.1)  RETURN 

ss 

76 

77 

C 

ss 

77 

78 

C 

INVERSE  TRANSFORM  THE  MODE  SOLUTIONS 

ss 

78 

79 

C 

ss 

79 

80 

DO  26  IC=1 , NRH 

ss 

80 

81 

DO  20  1=1 .NPEQ 

ss 

81 

82 

DO  17  K=1 , NOP 

ss 

82 

83 

IA=I+( K— 1 ) *NPEQ 

ss 

83 

84 

17 

Y(K)=B(IA.IC) 

ss 

84 

85 

SUM=Y(1) 

ss 

85 

86 

DO  18  K=2 , NOP 

ss 

86 

87 

18 

SUM=SUM+Y(K) 

ss 

87 

88 

« 

B(I , IC)=SUM 

ss 

88 

89 

DO  20  K=2 , NOP 

ss 

89 

90 

IA=I+(K-1 )*NPEQ 

ss 

90 

91 

SUM=Y ( 1 ) 

ss 

91 

92 

DO  19  J=2,NOP 

ss 

92 

93 

19 

SUM=SUM+Y ( J ) »SSX ( K . J  ) 

ss 

93 

94 

20 

B(IA,IC)=SUM 

ss 

94 

95 

IF  (N.EQ.O.OR.M.EQ.O)  GO  TO  26 

ss 

95 

96 

DO  21  1=1 ,NEQ 

ss 

96 

97 

21 

Y(I)=B( I , IC) 

ss 

97 

98 

KK=2*MP 

ss 

98 

99 

IA=NP 

ss 

99 

100 

IB=N 

ss 

100 

101 

J=NP 

ss 

101 

102 

DO  25  K=1 .NOP 

ss 

102 

103 

IF  (K.EQ.1)  GO  TO  23 

ss 

103 

104 

DO  22  1=1 , NP 

ss 

104 

105 

IA=IA+1 

ss 

105 

106 

J=J+1 

ss 

106 

107 

22 

B( IA , IC)=Y( J ) 

ss 

107 

108 

IF  (K.EQ.NOP)  GO  TO  25 

ss 

108 

109 

23 

DO  24  1=1 ,KK 

ss 

109 

110 

IB=IB+1 

ss 

110 

111 

J=J+1 

ss 

1 1 1 

112 

24 

8( IB . IC)=Y( J ) 

ss 

112 

113 

25 

CONTINUE 

ss 

113 

114 

26 

CONTINUE 

ss 

114 

115 

RETURN 

ss 

115 

116 

END 

ss 
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TBF 


PURPOSE 


To  evaluate  the  current  expansion  function  associated  with  a  given 


segment . 


METHOD 


The  current  expansion  function  is  described  in  section  III-l  of  Part  I. 
The  parameter  I  is  the  number  of  the  segment  on  which  the  function  is  centered. 
On  segment  1  and  on  all  segments  connected  to  either  end  of  segment  I,  the 
function  has  the  form 

f j (s)  -  sin  [k(s  -  s^)]  +  C^  cos  [k(s  -  s^)]  , 

where  j  is  the  segment  number.  TBF  locates  all  connected  segments  and  stores 
the  segment  numbers,  j,  in  JCO  in  COMMON/ SEGJ/ .  It  computes  A  ^  ,  and 

and  stores  them  in  AX,  BX,  and  CX,  respectively,  in  the  same  location  as  was 
used  in  JCO.  A  ^ ,  B^,  and  C^  for  j  »  I  are  stored  last  in  the  arrays. 

If  ICAP  *  0,  the  function  goes  to  zero  at  an  end  of  segment  I  to  which 
no  other  segment  or  surface  is  connected.  If  ICAP  t  0,  the  function  has  a 
non-zero  value  at  a  free  end,  allowing  for  the  current  onto  the  wire  end  cap. 


CODING 


TB9  -  TBI6 


Equations  and  symbols  refer  to  Part  I. 

TB9  -  TB55  This  code  forms  a  loop  that  locates  all  segments  connected 
to  the  ends  of  segment  I,  first  for  end  1  (IEND  =  -1)  and 
then  for  end  2  (IEND  *  1) . 

TB9  -  TBI6  Parameters  are  initialized  to  start  search  for  segments 
connected  to  end  1  of  segment  I. 

TB34  PP  ■  P^  for  end  1  of  segment  I  or  P+  for  end  2  of  segment 

I. 

+ 

TB33  -  TB37  Equations  (43)  to  (48)  of  Part  I  evaluated  except  for  Q“: 
AX(JSNO)  -  A*/Q* 

BX(JSNO)  =  B*/Q* 

CX(JSNO)  *  C*/Q* 

JCO(JSNO)  -  j 

TB38  Exit  from  loop  if  segment  I  is  connected  to  a  surface  or 

ground  plane.  Segment  I  will  occur  in  COMMON/SEGJ/  twice 


S'SW 


TBF 


in  this  case,  once  for  the  center  of  the  expansion  func¬ 
tion  on  segment  I  and  once  for  the  part  of  the  function 
extending  onto  the  image  of  segment  I  in  the  surface. 


Line  TB45  changes  the  sign  of  for  the  image  term.  The 


sum  of  the  two  parts  of  the  function  on  segment  I  then 


has  zero  derivative  at  the  end  connected  to  the  surface. 


TB39  -  TB42  Check  appropriate  end  of  segment  j  to  determine  whether 
it  shows  a  connection  to  segment  I  (end  of  search)  or 
connection  to  another  segment  (multiple  junction). 

TB44  Continue  search  for  connected  segments  (multiple  junction). 

TB46  Exit  from  loop  after  finishing  search  for  both  ends  of 

segment  I. 

TB47  -  TB55  Store  values  for  end  1  of  segment  I  and  initialize  for  end 
2.  Then  return  to  previous  loop. 

TB59  -  TB70  Evaluate  functions  of  segment  length  and  radius  for 

segment  I.  For  kA  <  0.03,  a  series  is  used  for  1  -  cos  kA, 
where  A  »  segment  length. 

TB73  -  TB86  Final  calculations  if  neither  end  of  segment  I  is  a  free 


TB89  -  TB102  Final  calculations  for  free  end  on  end  1  of  segment  I. 

TB.104  -  TB117  Final  calculations  for  free  end  on  end  2  of  segment  I. 

TB119  -  TB126  Final  calculations  for  free  ends  on  both  ends  of  segment  I. 

TB128  A  *  -1  for  j  =  I  in  all  cases. 


SYMBOL  DICTIONARY 


“3 

cos  kA. 


cos(kAj/2) 


kAj/2  or  cos  kA^  -  sin  kA^ 


flag  to  determine  whether  the  function  goes  to  zero  at  a  free 


-1  during  calculations  for  end  1  of  segment  I  and  +1  for  end  2. 


connection  index 


-1  if  end  1  of  a  segment  is  connected  to  segment  I,  +1  if  end  2 


is  connected  to  segment  I. 
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JSNOP 

NJUN1 

NJUN2 


maximum  number  of  segments  allowed  in  the  expansion  function. 

This  includes  segment  I  and  all  segments  connected  to  either  end. 
JSN  +  1 


1  -  cos  kA , 


sin  kAj 
sin  (kAV2) 

sign  for  calculation  of  and 

Jf  (leaf )/ Jo  (leaf)  (small  argument  series  used  for  Bessel  functions) 


CONSTANTS 


0.577215664 

0.015 

1. 3888889E-3 
3.141592654 
4. 166666666 7E-2 


■  Eulers  constant 
-  0.03/2 
*  1/720 


r_n »  y' ■ 


1 

SUBROUTINE  TBF  (I.ICAP) 

TB 

1 

2 

C 

COMPUTE  BASIS  FUNCTION  I 

TB 

2 

3 

COMMON  /DATA/  LD.N1 .N2.N.NP.M1 .M2 ,M , MP , X(300) , Y(300 ) , Z( 300) ,SI(300 

TB 

3 

4 

1 ) ,BI(300) , ALP (300) , BET (300) . IC0N1 (300) . ICON2(300 ) , ITAG(300) . ICONX( 

TB 

4 

5 

2300) .WlAM.IPSYM 

TB 

5 

6 

COMMON  /SEGJ/  AX(30) ,BX(30) ,CX(30 ) . JCO(30) . JSNO . ISC0N(50) .NSCON.IP 

TB 

6 

7 

1C0N( 10) .NPCON 

TB 

7 

8 

DATA  PI/3.141592654/. JMAX/30/ 

TB 

8 

9 

JSN0=0 

TB 

9 

10 

PP=0. 

TB 

10 

1 1 

JC0X=IC0N1 (I) 

TB 

1 1 

12 

IF  (JCOX.GT. 10000)  JCOX=I 

TB 

12 

13 

JEND=— 1 

TB 

13 

14 

IEN0=-1 

TB 

14 

IS 

SIG=— 1 . 

TB 

15 

16 

IF  (JCOX)  1.10.2 

TB 

16 

17 

1 

JCOX=-JCOX 

TB 

17 

18 

GO  TO  3 

TB 

18 

19 

2 

SIG=-SIG 

TB 

19 

20 

JEND=— JENO 

TB 

20 

21 

3 

JSN0=JSN0+1 

TB 

21 

22 

IF  (JSNO.GE. JMAX)  GO  TO  28 

TB 

22 

23 

JCO( JSNO)=JCOX 

TB 

23 

24 

D=PI*SI( JCOX) 

TB 

24 

25 

SDH=SIN(D) 

TB 

25 

26 

CDH=COS(D) 

TB 

26 

27 

SD=2 . •SDH'CDH 

TB 

27 

28 

IF  (D.GT. 0.015)  GO  TO  4 

TB 

28 

29 

0MC=4 . *D*D 

TB 

29 

30 

0MC=( ( 1 . 3888889E-3»0MC-4 . 1 666666667E-2) *OMC+. 5) *OMC 

TB 

30 

31 

GO  TO  5 

TB 

31 

32 

4 

0MC=1 . -CDH*CDH+SDH*SDH 

TB 

32 

33 

5 

A J=1 ./( ALOG( 1 ,/(PI*BI(JCOX)))-. 577215664) 

TB 

33 

34 

PP=PP— OMC/SD’AJ 

TB 

34 

35 

AX( JSNO)=AJ/SD*SIG 

TB 

35 

36 

BX( JSN0)=AJ/(2 . *CDH) 

TB 

36 

37 

CX( JSN0)=-AJ/(2.*SDH)»SIG 

TB 

37 

38 

IF  (JCOX.EQ.I)  GO  TO  8 

TB 

38 

39 

IF  (JEND.EQ.1)  GO  TO  6 

TB 

39 

40 

J  COX=ICON 1 ( J  COX ) 

TB 

40 

41 

GO  TO  7 

TB 

41 

42 

6 

JC0X=IC0N2( JCOX) 

TB 

42 

43 

7 

IF  (IABS( JCOX) .EQ.I)  GO  TO  9 

TB 

43 

44 

IF  (JCOX)  1  .28,2 

TB 

44 

45 

8 

BX( JSNO) =-BX( JSNO) 

TB 

45 

46 

9 

IF  (IEND.EQ.1)  GO  TO  11 

TB 

46 

47 

10 

PM=— PP 

TB 

47 

48 

PP=0. 

TB 

48 

49 

N JUN1 =JSNO 

TB 

49 

SO 

JC0X=IC0N2(I) 

TB 

50 

51 

IF  (JCOX.GT. 10000)  JC0X=I 

TB 

51 

52 

JEND=1 

TB 

52 

53 

IEND=1 

TB 

53 

54 

SIG=-1 . 

TB 

54 

55 

IF  (JCOX)  1,11,2 

TB 

55 

56 

11 

NJUN2=JSN0-N JUN1 

TB 

56 

57 

JSN0P=JSN0+1 

TB 

57 

58 

JCO(JSNOP)=I 

TB 

58 

59 

D=PI*SI(I) 

TB 

59 

60 

SDH=SIN(D) 

TB 

60 

61 

CDH=COS(D) 

TB 

61 

62 

SD=2 . •SDH'CDH 

TB 

62 

63 

CD=CDH*CDH-SDH*SDH 

TB 

63 

64 

IF  (D.GT. 0.015)  GO  TO  12 

TB 

64 
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65 

0MC=4.»D»D 

TB 

65 

66 

0MC=( ( 1 . 3888889 E-3*OMC-4 . 1 666666667E-2 ) *OMC+ . 5 ) *OMC 

TB 

66 

67 

GO  TO  T3 

TB 

67 

68  12 

0MC=1 . -CD 

TB 

68 

69  13 

AP=1 . /( ALOG( 1 ./(PI»BI(I)))-. 577215664) 

TB 

69 

70 

AJ=AP 

TB 

70 

71 

IF  (NJUN1.EQ.0)  GO  TO  16 

TB 

71 

72 

IF  (NJUN2.EQ.0)  GO  TO  20 

TB 

72 

73 

QP=SD* ( PM*PP+A J  *AP ) +CD* ( PM*AP-PP* A J ) 

TB 

73 

74 

QM=(AP«OMC-PP»SD)/QP 

TB 

74 

75 

QP=-(AJ*OMC+PM»SD)/QP 

TB 

75 

76 

BX( JSNOP)=(AJ*QM+AP*QP)*SDH/SD 

TB 

76 

77 

CX( JSNOP)=( AJ*QM-AP*QP ) *CDH/SD 

TB 

77 

78 

00  14  IEN0=1,NJUN1 

TB 

78 

79 

AX ( IEND )=AX( IENO) *QM 

TB 

79 

80 

BX( IEND)=BX( IENO) *QM 

TB 

80 

81  14 

CX( IEND) =CX( IEND) *QM 

TB 

81 

82 

JEND=NJUN1+1 

TB 

82 

83 

00  IS  IENO=JENO , JSNO 

TB 

83 

84 

AX ( IEND )=-AX( IEND) *QP 

TB 

84 

85 

BX( IEND)=BX( IEND) »QP 

TB 

85 

86  15 

CX ( IEND )=-CX ( IEND )*QP 

TB 

86 

87 

GO  TO  27 

TB 

87 

88  16 

IF  (NJUN2.EQ.0)  GO  TO  24 

TB 

88 

89 

IF  (ICAP.NE.O)  GO  TO  17 

TB 

89 

90 

XXI=0. 

TB 

90 

91 

GO  TO  18 

TB 

91 

92  17 

QP=PI*BI( I) 

TB 

92 

93 

XXI=QP*QP 

TB 

93 

94 

XXI=QP»(1 .-.5»XXI)/(1 .-XXI) 

TB 

94 

95  18 

QP=-(OMC+XXI,SD)/(SD*(AP+XXI*PP)+CD*(XXI*AP-PP) ) 

TB 

95 

96 

D=CD-XXI*SD 

TB 

96 

97 

BX(JSNOP)=(SDH+AP*QP*(CDH-XXI*SDH))/D 

TB 

97 

98 

CX(JSNOP)=(CDH+AP*QP*(SDH+XXI«CDH))/D 

TB 

98 

99 

DO  19  IEND=1.NJUN2 

TB 

99 

100 

AX ( IENO )=-AX ( IEND ) »QP 

TB 

100 

101 

BX( IEND) =BX( IEND)  *QP 

TB 

101 

102  19 

CX( IEND)=-CX( IEND) *QP 

TB 

102 

103 

GO  TO  27 

TB 

103 

104  20 

IF  (ICAP.NE.O)  GO  TO  21 

TB 

104 

105 

XX 1=0. 

TB 

105 

106 

GO  TO  22 

TB 

106 

107  21 

OM=PI*BI( I) 

TB 

107 

108 

XXI=QM*OM 

TB 

108 

1C9 

XXI=QM*( 1 .-.5»XXI)/(1 .-XXI) 

TB 

109 

110  22 

QM=(OMC+XXI*SD)/(SD* (A J-XXI*PM)+CD* (PM+XXI*A J ) ) 

TB 

110 

1 1 1 

D=CD-XXI*SD 

TB 

111 

112 

BX(JSNOP)=(AJ*QM*(CDH-XXI»SDH)-SDH)/D 

TB 

112 

113 

CX( JSNOP)=(COH-A J*QM* (SDH+XXI*CDH) )/D 

TB 

113 

114 

DO  23  IEND=1,NJUN1 

TB 

114 

115 

AX ( IEND) =AX( IEND) *QM 

TB 

115 

116 

BX(IEND)=BX( IEND) *QM 

TB 

116 

117  23 

CX( IEND)=CX ( IEND) *QM 

TB 

117 

118 

GO  TO  27 

TB 

118 

119  24 

BX( JSNOP)=0 . 

TB 

119 

120 

IF  (ICAP.NE.O)  GO  TO  25 

TB 

120 

121 

XXI=0. 

TB 

121 

122 

GO  TO  26 

TB 

122 

123  25 

QP=PI*BI(I) 

TB 

123 

124 

XXI=OP*QP 

TB 

124 

125 

XXI=QP*( 1 .-.5*XXI)/( 1 .-XXI) 

TB 

125 

126  26 

CX( JSN0P)=1 ./(CDH-XXI*5DH ) 

TB 

126 

127  27 

JSNO=JSNOP 

TB 

127 

128 

AX(JSN0)=-1 . 

TB 

128 

-337- 


mmmmmmmmmmammmmmmmmmKmmmmmnm, 


rux^KUWMJC 


iFM.'r*PW,nAnriir*niwwi> 


TBF 


129 

RETURN 

TB 

129 

130 

28 

PRINT  29,  I 

TB 

130 

131 

STOP 

TB 

131 

132 

C 

TB 

132 

133 

29 

FORMAT  (43H  TBF  -  SEGMENT  CONNECTION  ERROR  FOR  SEGMENT, 15) 

TB 

133 

134 

END 

TB 

134- 
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TEST 


TEST 

PURPOSE 

To  compute  the  relative  difference  of  two  numerical  integration  results 
for  the  Romberg  variable-interval-width  integration  routines. 

METHOD 

The  first  numerical  integration  result  is  the  complex  number  (FIR,  F1I) 

and  the  second  is  (F2R,  F2I).  The  real  and  imaginary  parts  of  the  two  results 

are  subtracted  and  the  differences  are  divided  by  the  largest  of  F2R,  F2I, 

-37 

DM1N  or  10  .  The  denominator  is  chosen  to  avoid  trying  to  maintain  a 

small  relative  error  for  a  quantity  that  is  insignificantly  small. 

SYMBOL  DICTIONARY 

ABS  *  external  routine  (absolute  value) 

DEN  -  largest  of  IF2RI  and  IF2II 

DMIN  *  minimum  denominator 

FlI  *  imaginary  part  of  first  integration  result 
FIR  *  real  part  of  first  integration  result 
F2I  *  imaginary  part  of  second  integration  result 
F2R  *  real  part  of  second  integration  result 
TI  *  relative  difference  of  imaginary  parts 

TR  *  relative  difference  of  real  parts 

CONSTANT 

l.E-37  ■  tolerance  in  test  for  zero 
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cm  to  ■*  in 


SUBROUTINE  TEST  ( FI R . F2R . TR , FI  I . F2I . TI , DMIN) 

TE 

1 

TE 

2 

TEST  FOR  CONVERGENCE  IN  NUMERICAL  INTEGRATION 

TE 

3 

TE 

4 

DEN=ABS(F2R) 

TE 

5 

TR=ABS(F2I) 

TE 

6 

IF  (OEN.LT.TR)  oen=tr 

TE 

7 

IF  (OEN.LT.DMIN)  DEN=DMIN 

TE 

8 

IF  (DEN.LT. t . E-37)  GO  TO  t 

TE 

9 

TR=ABS( (F1R-F2R)/0EN) 

TE 

10 

TI=ABS((F1I-F2I)/DEN) 

TE 

11 

RETURN 

TE 

12 

TR=0. 

TE 

13 

TI=0. 

TE 

14 

RETURN 

TE 

IS 

END 

TE 

16- 
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TRIO 


PURPOSE 


To  evaluate  each  of  the  parts  of  current  expansion  functions  on  a  single 
segment  due  to  each  of  the  segments  connected  to  the  given  segment. 


METHOD 


TRIO  consists  of  a  loop  that  uses  the  connection  data  in  arrays  IC0N1 
and  IC0N2  to  locate  all  segments  connected  to  segment  J.  Subroutine  SBF  is 
called  to  evaluate  the  current  expansion  function  centered  on  each  connected 
segment  and  on  segment  J.  Only  the  function  coefficients  for  that  part  of 
each  expansion  function  on  segment  J  are  returned  and  are  stored  in  arrays 
AX,  BX,  and  CX.  The  number  of  the  segment  with  which  each  expansion  function 
part  is  associated  is  stored  in  array  JCO  and  the  total  number  of  expansion 
functions  involved  is  stored  as  JSNO. 


SYMBOL  DICTIONARY 


IEND  *  -1  during  calculations  for  end  1  of  segment  J,  and  +1  for  end  2 

JCOX  ”  number  of  a  segment  connected  to  segment  J 

JEND  ■  -1  if  end  1  of  segment  JCOX  is  connected  to  segment  J;  -hi  if  end 

2  of  segment  JCOX  is  connected  to  segment  J 
JMAX  ■  dimension  of  the  arrays  in  COMMON/ SEGJ/ 


fe 


s 


TRIO 


1 

SUBROUTINE  TRIO  (j) 

TR 

1 

2 

C 

COMPUTE  THE  COMPONENTS  OF  ALL  BASIS  FUNCTIONS  ON 

SEGMENT  J 

TR 

2 

3 

COMMON  /DATA/  LO , N1 ,N2 , N , NP. Ml . M2 ,M,MP, X(300) , V(300) , 2(300) ,SI(300 

TR 

3 

4 

1 ) ,BI(300) , ALP ( 300) , BET( 300) , IC0N1 ( 300) , IC0N2( 300 ) 

, IT AG (300) , ICONX( 

TR 

4 

5 

2300) .WLAM.IPSYM 

TR 

5 

6 

COMMON  /SEGJ/  AX (30) , BX(30) , CX( 30 ) , JCO( 30 ) , JSNO , ISC0N(50) , NSCON , IP 

TR 

6 

7 

1 CON( 10), NPCON 

TR 

7 

8 

DATA  J MAX/30/ 

TR 

8 

9 

JSN0=0 

TR 

9 

to 

JC0X=IC0N1 ( J) 

TR 

10 

11 

IF  (JCOX.GT. 10000)  GO  TO  7 

TR 

11 

12 

JEND=-1 

TR 

12 

13 

IEND=-1 

TR 

13 

14 

IF  (JCOX)  1,7,2 

_■> 

TR 

14 

IS 

1 

JCOX=-JCOX 

< 

TR 

15 

16 

GO  TO  3 

TR 

16 

17 

2 

JEND=-JEND 

TR 

17 

18 

3 

IF  (JCOX.EQ.J)  GO  TO  6 

TR 

18 

19 

JSN0=JSN0+1 

TR 

19 

20 

IF  ( JSNO.GE. JMAX)  GO  TO  9 

TR 

20 

21 

CALL  SBF  ( JCOX , J , AX ( JSNO) , BX( JSNO) ,CX( JSNO) ) 

TR 

21 

22 

JCO( JSNO )=JCOX 

TR 

22 

23 

IF  (JEN0.EQ.1)  GO  TO  4 

TR 

23 

24 

JC0X=IC0N1 (JCOX) 

TR 

24 

25 

GO  TO  5 

TR 

25 

26 

4 

JC0X=IC0N2( JCOX) 

TR 

26 

27 

5 

IF  (JCOX)  1,9,2 

TR 

27 

28 

6 

IF  (IEND.EQ.1)  GO  TO  8 

TR 

28 

29 

7 

JC0X=IC0N2(J) 

TR 

29 

30 

IF  (JCOX.GT. 10000)  GO  TO  8 

TR 

30 

31 

JEND=1 

TR 

31 

32 

IEND=1 

TR 

32 

33 

IF  (JCOX)  1 ,8,2 

TR 

33 

34 

8 

JSN0=JSN0+1 

TR 

34 

35 

CALL  SBF  ( J , J , AX ( JSNO) , BX( JSNO) , CX( JSNO) ) 

TR 

35 

36 

JCO( JSNO)=J 

TR 

36 

37 

RETURN 

TR 

37 

38 

9 

PRINT  10,  J 

TR 

38 

39 

STOP 

TR 

39 

40 

C 

TR 

40 

41 

10 

FORMAT  (44H  TRIO  -  SEGMENT  CONNENTION  ERROR  FOR  SEGMENT, 15) 

TR 

41 

42 

END 

TR 

42- 

i 

t 


* 
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UNERE 


UNERE 
PURPOSE 

To  calculate  the  electric  field  due  to  unit  currents  in  the  t 
directions  on  a  surface  patch. 


1  “d  C2 


METHOD 


The  electric  field  due  to  a  patch  j  is  calculated  by  the  expression 


E(r0) 


i8ir 


^-1  -  i2TTR/l  +  4it2  (R/A)2^  j 


(R/X)' 


i6TTR/\-4TT2(R/l)2\- 

(R/X)5  j  J 


(R/X) (R/X) 


AA. 


exp  (-i2TTR/A) 


where  i 


/T,  J 


j 


J^t^j  +  J2jC2 j»  R  is  the  vector  from  the  source  to  the 


observation  point,  and  AA^  is  the  area  of  the  patch. 


For  UNERE,  J  and  J0 

j  lj 

are  unity.  The  expression  above  for  a  single  patch  is  obtained  from  the 

surface  integral  in  equation  (3)  in  Part  I  where  constant  current  and  one  step 

integration  are  used  for  the  patch. 

CODING 

UE14  -  UE20  z  components  of  patch  parameters  are  adjusted  for  direct 
or  reflected  fields. 

UE25  -  UE32  For  R  <  10  the  fields  are  set  to  zero. 

UE34  -  UE47  Expression  for  E  is  evaluated  for  Jj  equal  to  t^  and  t„* 

UE50  -  UE55  For  reflection  in  a  perfect  ground, E  is  reversed  in  sign. 

UE57  -  UE79  For  reflection  in  an  imperfect  ground,  E  is  multiplied  by 

the  reflection  coefficients. 

SYMBOL  DICTIONARY 
^0 


CONST  - 


CTH 


EDP 


8ir 

cos  0;  9  is  the  angle  between  the  reflected  ray  and  the  normal 

to  the  surface 


(E  •  p)(Rn  -  Rv) 
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ER 


— exp(-i  2ir  R/X)  AA  /X  at  UE37 
18ti  J 

Q2  (t^  •  R/X)  at  UE40 
» Q2  (t2j  •  R/X)  at  UE44 


EXK 
EYK 
EZK 
EXS 
EYS 
EZS 
IPGND 
PX 
PY 

Q1 

Q2 
R 

RRH 
RRV 
RT 
RX 
RY 
RZ 
R2 
S 

T1XJ 

T1YJ 

T1ZJ 

T2XJ 

T2YJ 

T2ZJ 

TP  I 

TT1 

TT2 


»  E  due  to  current  t 


13 


E  due  to  current  t 


2j 


flag  to  cause  computation  of  reflected  field  when  equal  to  2 
p;  unit  vector  normal  to  the  plane  of  Incidence  of  the 
reflected  ray 

-1  -  12itR/X  +  4tt2(R/X)2 


(R/X) 

3  +  16TTR/X  -  4tt2(R/X)2 


(R/X)- 


(ER) 

(ER) 


-  R/X 

"“h 
““v  . 

-  (R/X) 


R/X 


€ 


(R/X) 

Ayx2 


-  t 


ij 


-  t 


2j 


-  2t r 

-  -27TR/X 

-  47T2(R/X): 
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UNERE 


m 


field  evaluation  point 


XOB 
YOB 
ZOB  _ 

XYMAG  -  magnitude  of  the  projection  of  R/X  onto  the  x-y  plane 
ZR  -  z  component  of  R/X  after  reflection 


CONSTANTS 


4.771341188  - 
6.283185308  - 


no 

*r2 

2n 


UNERE 


1 

SUBROUTINE  UNERE  (XOB , YOB .ZOB) 

UN 

1 

2  C 

CALCULATES  THE  ELECTRIC  FIELD  DUE 

TO  UNIT  CURRENT 

IN  THE 

T1  AND  T2 

UN 

2 

3  C 

DIRECTIONS  ON  A  PATCH 

UN 

3 

4 

COMPLEX  EXK . EYK . EZK . EXS . EYS . EZS , EXC , EYC , EZC , ZRATI . 

ZRATI2. 

T1 .ER.Q1  . 

UN 

4 

S 

1 02 , RRV , RRH , EDP , FRATI 

UN 

5 

6 

COMMON  /DATAJ/  S . B , X J . Y J , Z J , CAB J , 

SAB J , SALP J , EXK , EYK , EZK . EXS , EYS . EZ 

UN 

6 

7 

1 S . EXC . EYC . EZC , RKH , IEXK , IND1 . IND2 , 

IPGND 

UN 

7 

8 

COMMON  /GN0/ZRATI.ZRATI2, FRATI. CL 

.  CH . SCRWL . SCRWR , NRADL . KSYMP . IFAR , 

UN 

8 

9 

1IPERF.T1 ,T2 

UN 

9 

10 

EQUIVALENCE  (T1XJ.CABJ),  (T1YJ.SA8J),  (T1ZJ.SALPJ) 

.  (T2XJ 

,B).  ( T2Y 

UN 

to 

11 

1J.IND1).  (T2ZJ.IN02) 

UN 

11 

12 

DATA  TPI, CONST/6. 283185308, 4. 771341 188/ 

UN 

12 

13  C 

C0NST=ETA/(8 . *PI**2) 

UN 

13 

14 

ZR=Z  J 

UN 

14 

15 

T1ZR=T1ZJ 

UN 

15 

16 

T2ZR=T2ZJ 

UN 

16 

17 

IF  (IPGND.NE.2)  GO  TO  1 

UN 

17 

16 

ZR=-ZR 

UN 

18 

19 

T1ZR=-T1ZR 

UN 

19 

20 

T2ZR=— T2ZR 

UN 

20 

21  1 

RX=XOB-XJ 

UN 

21 

22 

RYsYOB-YJ 

UN 

22 

23 

RZ=ZOB-ZR 

UN 

23 

24 

R2*RX*RX+RY*RY+RZ*RZ 

UN 

24 

25 

IF  (R2.GT.1 . E-20)  GO  TO  2 

UN 

25 

26 

EXK=(0.,0.) 

UN 

26 

27 

EYK=(0. ,0.) 

UN 

27 

28 

EZK=(0 . ,0.) 

UN 

28 

29 

EXS=(0. .0.) 

UN 

29 

30 

EYS=(0. ,0 . ) 

UN 

30 

31 

EZS=(0. ,0. ) 

UN 

31 

32 

RETURN 

UN 

32 

33  2 

R=SQRT(R2) 

UN 

33 

34 

TT1 =-TPI*R 

UN 

34 

35 

TT2=TT1 *TT1 

UN 

35 

36 

RT=R2*R 

UN 

36 

37 

ER=CMPLX(SIN( TT1 ) ,-COS( TT1 ) )• (CONST»S) 

UN 

37 

38 

Q1 =CMPLX( TT2-1 . ,TT1)»ER/RT 

UN 

38 

39 

Q2=CMPLX(3 .-TT2 ,-3 . *TT1 )*ER/(RT*R2) 

UN 

39 

40 

ER=Q2*(T1 X J*RX+T1 Y J*RY+T1 ZR*RZ) 

UN 

40 

41 

EXK=Q1 *T1 X J+ER*RX 

UN 

41 

42 

EYK=Q1*T1YJ+ER»RY 

UN 

42 

43 

EZK=Q1*T1ZR+ER*RZ 

UN 

43 

44 

ER=Q2*(T2XJ*RX+T2YJ*RY+T2ZR*RZ) 

UN 

44 

45 

EXS=Q1*T2XJ+ER»RX 

UN 

45 

46 

EYS=Q1 *T2YJ+ER*RY 

UN 

46 

47 

EZS=01 *T2ZR+ER*RZ 

UN 

47 

48 

IF  (IPGND.EQ.1)  GO  TO  6 

UN 

48 

49 

IF  (IPERF.NE. 1 )  GO  TO  3 

UN 

49 

50 

EXK=-EXK 

UN 

50 

51 

EYK=-EYK 

UN 

51 

52 

EZK=-EZK 

UN 

52 

53 

EXS=-EXS 

UN 

53 

54 

EYS=-EYS 

UN 

54 

55 

EZS=-EZS 

UN 

55 

56 

GO  TO  6 

UN 

56 

57  3 

XYMAG=SQRT(RX*RX+RY*RY) 

UN 

57 

58 

IF  (XYMAG.GT . 1 . E-6)  GO  TO  4 

UN 

58 

59 

PX»0. 

UN 

59 

60 

PY=0. 

UN 

60 

61 

CTHal . 

UN 

61 

62 

RRV=(1 . .0.) 

UN 

62 

63 

GO  TO  5 

UN 

63 

64  4 

PX=-RY/XYMAG 

UN 

64 
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UNERE 


65 

PY=RX/XYMAG 

UN 

65 

66 

CTH=RZ/SQRT ( X  YMAG*  X  YMAG+RZ • RZ ) 

UN 

66 

67 

RRV=CSQRT( 1 . -ZRATI’ZRATI*  ( 1 .-CTH*CTH) ) 

UN 

67 

68  5 

RRH=ZRATI*CTH 

UN 

68 

69 

RRH=( RRH-RRV )/( RRH+RRV ) 

UN 

69 

70 

RRV=ZRATI*RRV 

UN 

70 

71 

RRV=-( CTH-RRV ) /( CTH+RRV ) 

UN 

71 

72 

EDP=( EXK*PX+EYK*PY ) • ( RRH-RRV ) 

UN 

72 

73 

EXK=EXK*RRV+EDP*PX 

UN 

73 

74 

£YK=EYK*RRV+EDP*PY 

UN 

74 

75 

EZK=EZK*RRV 

UN 

75 

76 

EDP=( EXS*PX+E YS»PY ) • ( RRH-RRV ) 

UN 

76 

77 

EXS=EXS*RRV+EDP»PX 

UN 

77 

78 

EYS=EY$*RRV+EDP»PY 

UN 

78 

79 

EZS=EZS*RRV 

UN 

79 

80  6 

RETURN 

UN 

80 

81 

ENO 

UN 

81- 

3 


1 


I 


A 
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WIRE 


WIRE 


PURPOSE 

To  compute  segment  coordinates  to  fill  COMMON/DATA/  for  a  straight  line 
of  segments. 


METHOD 

The  formal  parameters  specify  the  beginning  and  ending  points  of  the 
line  and  the  number  of  segments  into  which  it  is  to  be  divided.  The  code 
computes  the  coordinates  of  the  end  points  of  each  segment.  The  lengths  of 
successive  segments  are  scaled  by  the  factor  RDEL  if  this  factor  is  not  one. 
For  NS  segments,  the  length  of  the  first  segment  is 


L(1  -  RDEL) 


1  -  (RDEL) 


NS 


or 


L/NS  if  RDEL 


where  L  is  the  total  length  of  wire. 

The  radius  is  RAD  for  the  first  segment  and  is  scaled  by  RRAD. 


SYMBOL  DICTIONARY 
DELZ 
FNS 
1ST 
ITG 
NS 
RAD 
RADZ 

RD,  RDEL 
RRAD 
XD 
XS1 
XS2 
XW1 
XW2 


segment  length 

real  number  equivalent  of  NS 

initial  segment  number 

tag  number  assigned  to  all  segments  of  the  line 
number  of  segments  into  which  line  is  divided 
radius  of  first  segment 
segment  ndius 

scaling  factor  for  segment  length 
scaling  factor  for  segment  radius 
increment  to  x  coordinates 
x  coordinate  of  first  end  of  segment 
x  coordinate  of  second  end  of  segment 
x  coordinate  of  first  end  of  line 
x  coordinate  of  second  end  of  line 


c 


•V* 
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WIRE 


X2(  I) 

YD 

YSl 

YS2 

YW1 

YW2 

Y2(  I) 

ZD 

ZS1 

ZS2 

ZWI 

ZW2 

Z2(  I) 


■  x  coordinate  of  end  2  of  segment  I 
3  increment  to  y  coordinates 

*  y  coordinate  of  first  end  of  segment 

■  y  coordinate  of  second  end  of  segment 
=  y  coordinate  of  first  end  of  wire 

*  y  coordinate  of  second  end  of  wire 

■  y  coordinate  of  end  2  of  segment  I 
3  increment  to  z  coordinates 

3  z  coordinate  of  first  end  of  segment 
3  z  coordinate  of  second  end  of  segment 
3  z  coordinate  of  first  end  of  line 
3  z  coordinate  of  second  end  of  line 
3  z  coordinate  of  second  end  of  segment  I 


WIRE 


t 

SUBROUTINE  WIRE 

(XW1 ,  YW1 ,ZW1 ,  XW2 , YW2 , ZW2 , RAD , RDEL , RRAD . NS . ITG) 

WI 

1 

2  C 

WI 

2 

3  C 

SUBROUTINE  WIRE 

GENERATES  SEGMENT  GEOMETRY 

DATA  FOR  A  STRAIGHT 

WI 

3 

4  C 

WIRE  OF  NS  SEGMENTS. 

WI 

4 

5  C 

WI 

5 

6 

COMMON  /DATA /  LD.N1 .N2.N.NP.M1 ,M2 ,M ,MP , X(300) , Y(300) , Z( 300) , SI( 300 

WI 

6 

7 

1 ) i 81(300 ) , ALP (300) . BET (300) , ICON1 ( 300) , ICON2( 300 ) , ITAG( 300) , ICONX( 

WI 

7 

a 

2300) .WLAM.IPSYM 

WI 

8 

9 

DIMENSION  X2( 1 ) , 

Y2(1).  Z2( 1 ) 

WI 

9 

10 

EQUIVALENCE  (X2( 1 ) . SI( 1 ) ) ,  (Y2( 1 ) ,ALP( 1 ) ) . 

(Z2( 1  )  ,BET( 1 ) ) 

WI 

10 

1 1 

IST=N+1 

WI 

1 1 

12 

N=N+NS 

WI 

12 

13 

NP=N 

WI 

13 

14 

MP=M 

WI 

14 

15 

IPSYM=0 

WI 

15 

16 

IF  (NS.LT.1)  RETURN 

WI 

16 

17 

XD=XW2-XW1 

WI 

17 

13 

YD=YW2-YW1 

WI 

18 

19 

ZD=ZW2-ZW1 

WI 

19 

20 

IF  ( ABS( RDEL-1 . ) 

.  LT .  1  .  E-6)  GO  TO  1 

WI 

20 

21 

DELZ=SQRT(XD*XD+YD*YD+ZD*ZD) 

WI 

21 

22 

XD=XD/DELZ 

WI 

22 

23 

YD=YD/DELZ 

WI 

23 

24 

ZD=ZD/DELZ 

WI 

24 

25 

OELZ=OELZ* ( 1 .-ROEL)/( 1 .-RDEL**NS) 

WI 

25 

26 

RD=RDEL 

WI 

26 

27 

GO  TO  2 

WI 

27 

28  1 

FNS=NS 

WI 

28 

29 

XD=XD/FNS 

WI 

29 

30 

YD=YD/FNS 

WI 

30 

31 

ZD=ZD/FNS 

WI 

31 

32 

DELZ=1 . 

WI 

32 

33 

RD=1  . 

WI 

33 

34  2 

RADZ=RAD 

WI 

34 

35 

XS1=XW1 

WI 

35  ’ 

36 

YS1=YW1 

WI 

36 

T“» 

ZS1=ZW1 

WI 

37 

33 

DO  3  I=IST.N 

WI 

38 

39 

ITAG(I)=ITG 

WI 

39 

40 

XS2=XS1+XD*DELZ 

WI 

40 

41 

YS2=YS1+YD*DELZ 

WI 

41 

42 

ZS2=ZS 1 +ZD*  DELZ 

WI 

42 

43 

X(I)=XS1 

WI 

43 

44 

Y(I)=YS1 

WI 

44 

45 

Z(I)=ZS1 

WI 

45 

46 

X2( I )=XS2 

WI 

46 

47 

Y2(I)=YS2 

WI 

47 

48 

Z2(I)=ZS2 

WI 

48 

49 

BI(I)=RADZ 

WI 

49 

50 

DELZ=DELZ*RD 

WI 

50 

51 

RADZ=RADZ»RRAD 

WI 

51 

52 

XS1=XS2 

WI 

52 

53 

YS1=YS2 

WI 

53 

54  3 

ZS1 =ZS2 

WI 

54 

55 

X2(N)=XW2 

WI 

55 

56 

Y2(N)=YW2 

WI 

56 

57 

Z2(N)=ZW2 

WI 

57 

58 

RETURN 

WI 

58 

59 

ENO 

WI 

59- 

ZINT 
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PURPOSE 

To  compute  the  internal  impedance  of  a  circular  wire  with  finite 
conductivity. 


METHOD 


The  internal  impedance  per  unit  length  of  a  circular  wire  is  given  by 


i  _fy_  Ber(q)  +  jBei(q) 
b  n  2 TO  Ber’(q)  +  jBei'(q)  ’ 


where 


q  *  b/2irf  yc 
a  =*  wire  conductivity 
y  »  permeability  of  free  space 
b  *  wire  radius 
f  =  frequency 
Ber 

„  .  *  Kelvin  functions 
Bei 

The  term  that  modifies  the  diagonal  matrix  element  in  the  interaction 
matrix  is  the  total  impedance  of  segment  i  divided  by  A^/X,  where  A^  =  segment 
length.  Thus,  if  is  the  diagonal  matrix  element  without  loading,  the  new 
element  is 


Gii  "  =  Gii  ■ ZA 


Normalized  to  wavelength,  this  term  is 


7  _  _  J  /  cy  Ber (q)  +  JBei(q) 

4i  (b/X)  n  2tt(oX)  3er'(q)  +  jBei'(q)  * 


where 


q  =  (b/X)  /2ircy (aX) 
c  =  velocity  of  light 
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ZINT 


The  Kelvin  functions  and  derivatives  of  Kelvin  functions  are  computed 
from  their  polynomial  approximations. 


CODING 

ZI8  -  ZI15  Functions  0,  0,  f,  and  g  for  large  argument  polynomial 
approximations  (see  ref.  5). 

ZI19  -  ZI26  Compute  Ber(q)  +  jBei(q)  for  q  <_  8. 

ZI27  -  ZI31  Compute  Ber'(q)  +  jBei'  (q)  for  q  <_  8. 

ZI32  [Ber (q)  +  jBei(q)  ]/ [Ber*  (q)  +  jBei'(q)]. 

ZI34  Ber (q)  +  jBei(q)  for  8  <  q  <.  110. 

ZI35  Ber'(q)  +  jBei'(q)  for  8  <  q  <  110. 

ZI36  [Ber (q)  +  jBei(q) ]/ [Ber* (q)  +  jBei'(q)]. 

ZI38  [Ber(q)  +  jBei (q) ]/ [Ber* (q)  +  jBei'(q)]  for  110  <  q  <  °°. 

ZI39  Computation  of  Z^. 

SYMBOL  DICTIONARY 

BEI  =>  Bei(q)  or  Bei'(q) 

BER  ■  Ber(q)  or  Ber' (q) 

BR1  ■  Ber(q)  +  jBei(q)  or  [Ber(q)  +  jBei(q) ]/ [Ber ' (q)  +  Bei'(q)] 
BR2  =  Ber’ (q)  +  jBei’ (q) 

CEXP  *  external  routine  [exp (complex  argument)] 

CMOTP  =  cm/(2tt) 

CMPLX  =  external  routine  (forms  complex  number) 

CN  -  (1  +  j)//2 
D  =  function  argument 
F(D)  =  f (D)  (see  ref.  5) 

FJ  =  j 

G(D)  *  g(D)  (see  ref.  5) 

PH(D)  -  0(X),  D  =  8/X  (see  ref.  5) 


ROLAM  =  b/X 
S  =  (X/8)' 


SQRT  =  external  routine  (square  root) 
TH(D)  =  0(X),  D  =  8/X  (see  ref.  5) 
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TPCMU  *  2ircu;  c  ■  velocity  of  light 
X  -  q 
Y  -  (X/8)2 
ZINT  -  Z± 

CONSTANTS 

1.5707963  -  tt/2 

3.141592654  -  tv 

6.283185308  -  2ir 

60.  -  cvi/2ir 

2.368705E+3  -  2ttcv 

(0.,  1.)  -  j 

(0.70710678,0.70710678)  -  (1  +  j)/^2 

(0.70710678,  -0.70710678)  -  limit  for  q  ■*>  •  of  [Ber(q)  +  jBei(q)]/ 

[Ber'(q)  +  jBei'(q)] 

Other  constants  are  factors  in  the  polynomial  approximations. 


ZINT 


1 

COMPLEX  FUNCTION  ZINT(SIGL . ROLAM) 

ZI 

1 

2 

C 

ZI 

2 

3 

C 

ZINT  COMPUTES  THE  INTERNAL  IMPEDANCE  OF  A  CIRCULAR  WIRE 

ZI 

3 

4 

C 

ZI 

4 

5 

C 

ZI 

5 

6 

COMPLEX  TH.PH.F.G.FJ.CN.BRI ,BR2 

ZI 

6 

7 

COMPLEX  CC1 , CC2 , CC3 , CC4 , CCS , CC6 , CC7 , CC8 , CC9 , CC 1 0 , CC 1 1 ,CC1 2 ,CC1 3 ,CC 

ZI 

7 

8 

114 

ZI 

8 

9 

DIMENSION  FJX(2).  CNX(2),  CCN(28) 

ZI 

9 

10 

EQUIVALENCE  (FJ.FJX).  (CN.CNX),  (CC1 , CCN( 1 ) ) ,  (CC2 . CCN(3) ) .  (CC3.C 

ZI 

10 

1 1 

1 CN(5) ) ,  (CC4,CCN(7) ) ,  (CC5 ,CCN(9) ) .  (CC6 ,CCN( 11)),  (CC7 ,CCN( 13)), 

ZI 

11 

12 

2(CC8 ,CCN( 1 5) ) ,  (CC9 . CCN( 17)),  (CC1 0 . CCN( 1 9 ) ) ,  (CC1 1  ,CCN(21  ) ) ,  (CC1 

ZI 

12 

13 

32 ,CCN(23) ) ,  (CC1 3 , CCN( 25) ) ,  (CC1 4 ,CCN(27) ) 

ZI 

13 

14 

DATA  PI . POT . TP , TPCMU/3 .141 5926 , 1 . 5707963 .6.2831853.2. 368705E+3/ 

ZI 

14 

IS 

DATA  CMOTP/60. 00/. FJX/O. .1 ./.CNX/. 70710678. .70710678/ 

ZI 

15 

16 

DATA  CCN/6 . E-7 . 1 . 9E-6 .-3 . 4E-6 . 5 . 1 E-6 , -2 . 52E-5 , 0 . . -9 . 06E-5 , -9 . 01  E-5 

ZI 

16 

17 

1 .0. , -9 . 765E-4, .0110486, -.0110485,0. ,-.3926991 ,1 . 6E-6 .-3 . 2E-6 . 1 .17E 

ZI 

17 

18 

2-5 . -2 . 4E-6 , 3 . 46E-5 , 3 . 38E'  3 . 5 . E-7 , 2 . 452E-4 . -1 . 38 1 3E-3 . 1 . 38 1 1 E-3 , -6 . 

ZI 

18 

19 

32500 1 E-2 , -1 . E-7 . . 707 1 068 . . 707 1 068/ 

ZI 

19 

20 

TH(D)=(((((CC1*D+CC2)*0+CC3)*D+CC4)*D+CC5)*D+CC6)*D+CC7 

ZI 

20 

21 

PH(D)=(((((CC8*D+CC9)*D+CC10)*D+CC1 1 ) *D+CC1 2) *0+CC1 3) *D+CC1 4 

ZI 

21 

22 

F(D)=SQRT( POT/D) *CEXP(-CN*D+TH(-8 ./X) ) 

ZI 

22 

23 

G(D)=CEXP(CN*D+TH(8./X))/SQRT(TP*D) 

ZI 

23 

24 

X=SQR  T ( T  PCMU • S IGL ) • RO  L AM 

ZI 

24 

25 

IF  (X.GT.110.)  GO  TO  2 

ZI 

25 

26 

IF  (X.GT.8.)  GO  TO  1 

ZI 

26 

27 

Y=X/8 . 

ZI 

27 

28 

Y=Y*  Y 

ZI 

28 

29 

S=Y*  Y 

ZI 

29 

30 

8ER=( ( ( ( ( (-9 . 0 1 E-6*S+1 . 22552E-3 ) *S- . 08349609 ) *S+2 . 641 9 1 40) *S-32 . 36 

ZI 

30 

31 

1 3456) *S+1 1 3 . 77778) *S-64 . )*S+1 . 

ZI 

31 

32 

BEI=( ( ( ( ( ( 1 . 1346E-4*S-. 01 103667) *S+. 521 8561 5) *S-1 0.567658) *S+72. 81 

ZI 

32 

33 

1,7777 ) *S-1 1 3 . 77778) *S+1  6 .  )  •  Y 

ZI 

33 

34 

BR1=CMPLX(BER,BEI) 

ZI 

34 

35 

BER=(  (  ( ( ( ( (-3 . 94E-6*S+4 . 5957E-4) *S- . 02609253 ) *S+ . 66047849 ) *S-6 . 068 

ZI 

35 

36 

1 1481 )*S+14.222222)*S-4. )*Y)*X 

ZI 

36 

37 

BEI=( ( ( ( ( (4 . 609E-5*S-3 . 79386E-3) *S+ . 1 4677204) *S-2 .3116751 )*S+1 1 .37 

ZI 

37 

38 

1 7778) *S-10. 666667) *S+. 5) *X 

ZI 

38 

39 

BR2=CMPLX( BER , BEI) 

ZI 

39 

40 

BR1 =BR1/8R2 

ZI 

40 

41 

GO  TO  3 

ZI 

41 

42 

1 

BR2=FJ»F(X)/PI 

ZI 

42 

43 

BR1=C(X)+BR2 

ZI 

43 

44 

BR2=G(X)»PH(8./X)-BR2*PH(-8./X) 

ZI 

44 

45 

BR1 =BR1/BR2 

ZI 

45 

46 

GO  TO  3 

ZI 

46 

47 

2 

BR1=CMPLX( .70710678, -.70710678) 

ZI 

47 

48 

3 

ZINT=F  J* SORT (CMOTP/S IGL)* BR1 /ROLAM 

ZI 

48 

49 

RETURN 

ZI 

49 

50 

END 

ZI 

50- 

Section  III 
Common  Blocks 

This  section  discusses  each  labeled  common  block  which  is  used  in  the 
NEC-2  code.  For  each  common  block,  a  list  of  the  routines  in  which  it  is  used 
is  given  along  with  a  definition  of  the  variables  used  in  conjunction  with  the 
common  block.  The  common  blocks  are  presented  in  alphabetical  order. 


COMMON/ANGL/  SALP(300) 

Routines  Using  /ANGL/ 

CABC,  CMSS,  CMSW,  CMWS,  CMWW,  DAT AGN ,  ETMNS ,  FFLD,  GFIL,  GFLD,  GFOUT , 
MOVE,  NEFLD,  NHFLD,  PATCH,  QDSRC,  REFLC 

/ANGL/  Parameters  for  Wire  Segments 

SALP(I)  -  sin  (a),  where  a  *  elevation  angle  of  segment  I  (see  figure  11  ) 

/ANGL/  Parameters  for  Surface  Patches 

SALP(LD  -1  +  1)  ■  +1  if  t^  *  t^  *  n  for  patch  I,  or 
-1  if  t^  x  ?2  *  -n  for  patch  I 

The  second  case  occurs  when  the  patch  has  been  produced  by  reflection  of  a 
patch  originally  input. 


COMMON/ CMB/  CM(4000) 

Routines  Using  /CMB/ 

MAIN,  GFIL,  GFOUT 

The  interaction  matrix  is  stored  in  array  CM.  If  the  matrix  is  too 
large  to  fit  in  CM,  then  pairs  of  blocks  of  the  matrix  are  stored  in  CM  as 
they  are  needed. 
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Figure  11.  Coordinates  of  Segment  i. 


COMMON/ CRNT / AIR(3QQ)  ,  AII(300),  BIR(300) ,  BII(300),  CIR(300),  CII(300) 

CUR  (900) 

Routines  Using  /CRNT/ 

MAIN,  CABC,  FFLD,  GFLD,  NEFLD,  NETWK,  NHFLD 
/CRNT/  Parameters  for  Wire  Segments 

Subroutine  CABC  fills  the  first  six  arrays  in  /CRNT/  with  the  real  and 
imaginary  parts  of  the  constants  in  the  current  expansion  of  each  segment, 

Xi (s)  *  Ai  +  B£  sin  tk(s  “  s1)]  +  C  cos  [k(s  -  si)]  , 

where  s  -  s^^  at  the  center  of  segment  i.  Except  during  intermediate  calcula¬ 
tions  for  non- radiating  networks,  the  current  basis-function  amplitudes  are 
computed  and  stored  in  array  CUR.  CABC  replaces  the  basis  function  amplitudes 
in  CUR  by  the  current  at  the  center  of  each  segment,  (Ai  +  C±) .  For  i  =  I, 
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AIR(I) 
AII(I) 
BIR(l) 
BII(I) 
CIRC  I ) 
CII(I) 


A^/X  (real,  imaginary) 


CUR(I) 


amplitude  of  i  basis  function  going  into  CABC  or 
(Ai  ♦  C.)/X  at  end  of  CABC 


/CRNT/  Parameters  for  Surface  Patches 


Surface  current  components  are  stored  in  CUR.  Before  CABC  is  called, 
the  surface  current  strengths  in  directions  t^  and  t^  on  patch  i  are 
stored  in  CUR(N  +21-1)  and  CUR(N  +  21),  respectively  where  N  is  the  number 
of  segments.  After  CABC,  the  x,  y  and  z  components  of  surface  current  are 
scored  in  CUR(N  +31-2),  CUR(N  +31-1)  and  CUR(N  +  31),  respectively. 


COMMON /DATA/  LD,  Nl,  N2,  N,  NP,  Ml,  M2,  M,  MP,  X(300),  Y(300),  Z(300), 
SIC  300),  BIC300),  ALPC300),  BETC300),  ICONIC  300),  ICON2(300),  ITAGC300), 
ICONXC 300) ,  WLAM,  IPSYM 


Routines  Using  /DATA/ 

MAIN,  ARC,  CABC,  CMNGF,  CMSET ,  CMSS,  CMSW,  CMWS,  CMWW,  C0NECT,  DATAGN , 
ETMNS,  FFLD,  FFLDS,  GFIL,  GFLD,  GFOUT ,  ISEGNO,  LOAD,  MOVE,  NEFLD ,  NETWK , 
NFPAT,  NHFLD,  PATCH,  QDSRC,  RDPAT,  REFLC,  SBF,  TBF,  TRIO,  WIRE 


/DATA/  Parameters  for  Wire  Segments 


The  arrays  in  /DATA/  are  used  to  store  the  parameters  defining  the 
segments.  Two  forms  of  the  segment  parameters  are  used. 

During  geometry  input  in  routines  ARC,  CONECT,  DATAGN,  MOVE,  REFLEC  and 
WIRE,  the  coordinates  of  the  segment  ends  are  stored.  The  symbol  meanings  in 
the  geometry  routines  are: 
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SI(I)  ■  [equivalenced  to  X2(I)] 

ALP (I)  *  [equivalenced  to  Y2(I)] 

BET (I)  *  [equivalenced  to  Z2(I)] 

where  X^,  Y^,  Z^  are  the  coordinates  of  the  first  end  of  the  segment,  and  X^, 
Y^,  Z^  are  the  coordinates  of  the  second  end,  as  illustrated  in  figure  H . 
Coordinates  may  have  any  units  but  must  be  scaled  to  meters  before  data  input 
is  ended,  since  the  main  program  requires  meters. 

In  the  main  program,  the  segment  data  is  converted  to:  the  coordinates 
of  the  segment  center,  components  of  the  unit  vector  in  the  direction  of 
the  segment,  and  the  segment  length.  The  symbol  meanings  after  the  geometry 
section  are: 

X(I) 

Y(I)  -  X±,  Y±,  Z±  (see  figure  11.) 

Z(I) 

SI (I)  ■  segment  length 

ALP (I)  ■  cos  a  cos  8  [equivalenced  to  CAB (I)] 

BET(I)  *  cos  a  sin  8  [equivalenced  to  SAB(I)] 

The  z  component  of  the  unit  vector  in  the  direction  of  the  segment,  sin  a,  is 
stored  in  /ANGL/. 

The  other  symbol  meanings  in  /DATA/  for  segments  are: 

BI(I)  -  radius  of  segment  I 

ICONl(I)  -  connection  number  for  end  1  of  segment  I.  If  k  is  a  positive 
integer  less  than  10,000,  the  meaning  of  IC0N1  is  as  follows. 

ICONl(I)  *  0:  no  connection. 

ICONl(I)  ■  ±k:  end  1  connects  to  segment  k.  If  more  than 

one  segment  connects  to  end  1  of  segment  I,  then 
k  is  the  number  of  the  next  connected  segment 
encountered  by.  starting  at  I  and  going  through 
the  list  of  segments  in  cyclic  order.  ICONl(I)  =■ 
+k:  parallel  reference  directions  with  end  2  of 
the  other  segment  connecting  to  end  1  of  segment  I. 
ICONl(I)  =  -k:  opposed  reference  directions. 


ICONl(I)  *  I:  end  1  of  segment  I  connects  to  a  ground  plane 


IC0N2( I) 

itag(i) 


ICONX(l) 


ICONI(I)  *  10,000  +k:  end  1  of  segment  I  connects  to  a 
surface  with  the  4  patches  around  the  connection  point 
numbered  k,  k  +  1,  k  +  2  and  k  +  3. 

■  connection  number  for  end  2  of  segment  I. 

*  tag  number  of  segment  I.  This  number  is  assigned  during 
structure  input  to  permit  later  reference  to  the  segment 
without  knowing  the  segment  index  I  in  the  data  arrays. 

*  equation  number  for  the  new  basis  function  when  segment  1 
is  in  a  numerical  Green's  function  file  and  a  new  segment 
connects  to  segment  I  modifying  the  old  basis  function. 


/DATA/  Parameters  for  Surface  Patches 

Patch  parameters  are  set  in  subroutine  PATCH.  The  input  parameters  for 
a  patch  are  the  coordinates  of  the  patch  center,  patch  area,  and  orientation 
of  the  outward,  normal  unit  vector,  n.  The  parameters  stored  in  /DATA/  are 
the  center  point  coordinates,  area,  and  the  components  of  the  two  surface  unit 
vectors,  t^  and  t^«  The  vector  t^  is  parallel  to  a  side  of  the 
triangular,  rectangular,  or  quadrilateral  patch.  For  a  patch  of  arbitrary 
shape,  it  is  chosen  by  the  following  rules: 


For  a  horizontal  patch,  tj  *  x; 

For  a  nonhorizontal  patch,  t^  *  (z  x  n)/lz  x  nl  ; 

^  is  then  chosen  as  *  n  x  t^ 

With  J  ■  LD  +  1  -  I,  the  parameters  for  patch  I  are  stored  as  follows. 


x,  y,  and  z  coordinates  of  the  patch  center 


x,  y,  z  components  of  t.  (equivalenced  to  T1X,  T1Y,  T1Z) 


x,  y,  and  z  components  of  t2  (equivalenced  to  T2X,  T2Y , 
T2Z) 

patch  area 
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SI(J)  " 
ALP(J)  ► 
BET(J), 

I  CONK  J) 
IC0N2( J) 
ITAG(J)  . 
BI(J) 
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Scalar  variables  in  /DATA/  are; 

IPSYM  “  symmetry  flag.  The  meanings  of  IPSYM  are; 

IPSYM  *  0;  no  symmetry 
IPSYM  >  0;  plane  symmetry 
IPSYM  <  0;  cylindrical  symmetry 
IPSYM  ■  2;  plane  symmetry  about  2*0 

I IPSYM I  >  2;  structure  has  been  rotated  about  x  or  y  axis.  If 

ground  plane  is  indicated  by  IGNO  +  0  in  the  call 
to  subroutine  CONECT  and  IPSYM  *  2,  symmetry  about  a 
horizontal  plane  is  removed  by  multiplying  NP  by  2. 
If  UPSYMl  >  2  and  IGND  ft  0,  all  symmetry  is 
removed  by  setting  NP  =  N  and  IPSYM  =  0  in  CONECT. 

L0  *  length  of  arrays  in  /DATA/ 

Nl  *  number  of  segments  in  NGF.  If  NGF  is  not  used  N1  *  0 


N1  +  1 


total  number  of  segments 

number  of  segments  in  a  symmetric  cell 

number  of  patches  in  NGF.  If  NGF  is  not  used  Ml 


Ml  +  1 


WLAM 


total  number  of  patches 

number  of  patches  in  a  symmetric  cell 

wavelength  in  meters 


COMMON/DATAJ/  S,  B,  XJ,  YJ,  ZJ,  CABJ,  SABJ,  SALPJ,  EXK ,  EYK,  EZK,  EXS,  EYS, 


EZS ,  EXC,  EYC,  EZC,  RKH,  IEXK,  IND1,  IND2,  IPGND 


Routines  Using  /DATAJ/ 


CMNGF,  CMSET,  CMSS,  CMSW,  CMWS,  CMWW,  EFLD,  HINTG,  HSFLD,  NEFLD,  NHFLD, 
PCINT,  QDSRC ,  SFLDS,  UNERE 

/DATAJ/  is  used  to  pass  the  parameters  of  the  source  segment  or  patch  to 
the  routines  that  compute  the  E  or  H  field  and  to  return  the  field  components. 


/DATAJ/  Parameters  for  Wire  Segments 
S  ■  segment  length 

B  *  segment  radius 
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YJ>  ■  coordinates  of  segment  center 

ZjJ 

CAB  J 

SABJ  *  x,  y,  and  z,  respectively,  of  the  unit  vector  in  the  direction 

SALPjj  of  the  segment 

EXK 

EYK  *  x,  y,  and  z  components  of  the  E  or  H  field  due  to  a  constant 

EZK.  current 

EXS 

EYS  3  x,  y,  and  z  components  of  the  E  or  H  field  due  to  a  sin  ks 

EZSj  current 

EXC 

EYC  *  x,  y,  and  z  components  of  the  E  or  H  field  due  to  cos  ks 
EZC  current 

RKH  *  minimum  distance  for  use  of  the  Hertzian  dipole  approximation 
for  computing  the  E  field  of  a  segment 
1EXX  =*  flag  to  select  thin  wire  approximation  or  extended  thin  wire 
approximation  for  E  field  (IEXK  3  1  for  extended  thin  wire 
approximation) 

INOl  *  flag  to  inhibit  use  of  the  extended  thin  wire  approximation  on 
end  1  of  the  source  segment.  This  is  used  when  there  is  a  bend 
or  change  in  radius  at  end  1.  1N01  *  2  inhibits  the  extended 

thin  wire  approximation. 

IND2  *  flag  to  inhibit  use  of  the  extended  thin  wire  approximation  on 
end  2  of  the  source  segment 
IPGND  3  not  used 

/DATAJ/  Parameters  for  Surface  Patches 

S  3  patch  area  in  units  of  wavelength  squared 

B  3  x  component  of  for  the  patch 

XJ] 

YJ>  3  x,  y,  and  z  components  of  the  position  of  the  patch  center 


tfn  wvimuv  Lmvn  w 


CAB  J 

SABJ 

SALPJ 

EXK 

EYK 

EZK, 

EXS 

EYS 

EZS 

EXC 

EYC 

EZC 

IND1 

IND2 

IPGND 


*  x,  y,  and  z  components  of  t^ 

*  x,  y,  and  z  components  of  E  or  H  due  to  a  current  with  unit 

magnitude. in  the  direction  t^  on  the  patch 

■  E  or  H  due  to  a  current  t^  on  the  patch 

*  not  used;  may  serve  as  intermediate  variables  in  some  routines 

■  y  component  of  £2 

*  z  component  of  t^ 

*  flag  to  request  calculation  of  the  direct  field  or  field 
reflected  from  the  ground  (two  for  ground) 


COMMON/FPAT/  NTH,  NPH,  IPD,  IAVP,  INOR,  IAX,  THETS,  PHIS,  DTH,  DPH,  RFLD, 
GNOR,  CLT ,  CHT ,  EPSR2,  SIG2,  IXTYP,  XPR6,  PINR,  PNLR,  PLOSS  NEAR,  NFEH,  NRX, 
NRY,  NRZ,  XNR,  YNR,  ZNR,  DXNR,  DYNR,  DZNR 

Routines  Using  /FPAT/ 

MAIN,  NFPAT,  RDPAT 

Variables  are  defined  in  subroutine  descriptions. 

COMMON/GGRID/  ARl(ll,  10,  4),  AR2(17,  5,  4),  AR3(9,  8,  4),  EPSCF,  DXA(3), 
DYA( 3) ,  XSA( 3) ,  YSA( 3) ,  NXA( 3) ,  NYA( 3) 

Routines  Using  /GGRID/ 

MAIN,  GFIL,  GFOUT,  INTRP 

Variables  are  defined  under  subroutine  INTRP. 

COMMON /GND/  ZRATI,  ZRATI2,  FRATI,  CL,  CH,  SCRWL,  SCRWR,  NRADL,  KSYMP,  IFAR, 
IPERF,  Tl,  T2 
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Routines  Using  /GND/ 

MAIN,  CMSW ,  EFLD,  ETMNS ,  FFLD ,  GFIL,  GFOUT,  HINTG,  HSFLD,  NEFLD ,  RDPAT, 
SFLDS ,  UNERE 

/GND/  contains  parameters  of  the  ground  including  the  two-medium  ground 
and  radial-wire  ground-screen  cases.  The  symbol  definitions  are  as  follows. 

ZRATI  =  [er  -  ja/u>eorL/2 


where  0  is  ground  conductivity  (rahos/meter) ,  is  the 
relative  dielectric  constant,  £q  is  the  permittivity  of 
free  space  (farads/meter),  and  ui  *  2nf. 
same  as  ZRATI,  but  for  a  second  ground  medium 


ZRATI 2 


FRATI 


SCRAWL 


SCRWR 

NRADL 


KSYMP 


IPERF 
Tl,  T2 


(k2  -  k2)/(k2  +  k2)  where  k2 


u  /yQe0  and  k^ 


k2 /ZRATI 


distance  in  wavelengths  of  cliff  edge  from  origin 
cliff  height  in  wavelengths 

length  of  wires  in  radial-wire  ground  screen  (normalized  to 
wavelength) 

radius  of  wires  in  screen  in  wavelengths 

number  of  radials  in  ground  screen;  zero  implies  no  screen 
(input  quantity,  GN  card) 

ground  flag  (=1,  no  ground;  =2,  ground  present) 
input  integer  flag  on  RP  card;  specifies  type  of  field 
computation  or  type  of  ground  system  for  far  fields 
flag  to  select  type  of  ground  (see  GN  card) 
constants  for  the  radial-wire  ground-screen  impedance 


COMMON /GWAV/  U,  U2,  XXI,  XX2,  Rl,  R2,  ZMH,  ZPH 


Routines  Using  /GWAV/ 

MAIN,  GFLD,  GWAVE,  SFLDS 


Symbol  Definitions; 


(er  -  ja/u)e0)“L/ 

=  relative  dielectric  constant;  O  =  conductivity  of 
ground 
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XXI,  XX2  :  defined  in  GFLD  and  SFLDS 

R1  *  distance  from  current  element  to  point  at  which  field  is 

evaluated 

R2  ■  distance  from  image  of  current  element  to  point  at  which 

field  is  evaluated 
ZMH  =  Z  -  Z’ 

ZPH  *  Z  +  Z1  where  Z  is  height  of  the  field  evaluation  point  and 

Z'  is  the  height  of  the  current  element 

COMMON/ 1NC0M/  XO,  YO,  ZO,  SN  XSN,  YSN,  ISNOR 
Routines  Using  /INCOM/ 

EFLD,  SFLDS 

Sympol  Definitions: 

XO,  YO,  ZO  *  point  at  which  field  due  to  ground  will  be  evaluated 
SN  “  cos  a  (see  Figure  11) 

XSN  =  cos  fl 


ISNOR 


sin  6 

1  to  evaluate  field  due  to  ground  by  interpolation 
0  to  use  Norton's  approximation 


COMMON/MATPAR/  J.CASE,  NBLOKS,  NPBLK,  NLAST,  NBLSYM,  NPSYM,  NLSYM,  IMAT,  ICASX, 
NBBX,  NPBX,  NLBX,  NBBL  NPBL,  NLBL 

Routines  Using  /MATPAR/ 

MAIN,  CMNGF ,  CMSET,  FACGF ,  FACIO,  FACTRS,  F BLOCK,  FBNGF ,  GFIL,  GFOUT, 
LFACTR ,  LTSOLV,  LUNSCR,  REBLK,  SOLGF ,  SOLVES 

/MATPAR/  contains  matrix  blocking  parameters  for  cases  requiring  file 
storage  of  the  matrix.  Symbol  definitions  in  /MATPAR/  are  as  follows. 

ICASE  =  storage  mode  for  primary  matrix,  defined  as  follows. 

1  unsymmetric  matrix  fits  in  core 

2  symmetric  matrix  fits  in  core 

3  unsymmetric  matrix  out  of  core 

4  symmetric  matrix  out  of  core,  but  submatrices  fit  in  core 

5  symmetric  matrix  out  of  core,  submatrices  also  out  of  core 
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N BLOKS 


NPBLK 

NLAST 

NBLSYM 

NPSYM 

NLSYM 

IMAT 


ICASX 

NBBX 

NPBX 

NLBX 

NBBL 


NPBL 

NLBL 


number  of  blocks  of  columns  of  the  computed  matrix  (in  core 
matrix,  NBLOKS  *  1) 

number  of  columns  in  the  first  (NBLOKS  -  1)  blocks 
number  of  columns  in  the  last  block 
same  function  as  the  preceding  three  variables; 
however,  in  this  case  the  parameters  refer  to 
the  suDmatrix  in  the  symmetry  case 

storage  reserved  in  CM  for  the  primary  NGF  matrix  A  or  a  block 

of  A  (number  of  complex  numbers) 

storage  mode  for  NGF  solution  (see  Section  VII) 

number  of  Blocks  in  matrix  B  stored  by  blocks  of  rows 

number  of  rows  in  a  block  of  B  stored  by  rows 

number  of  rows  in  the  last  block  of  B 

number  of  blocks  in  matrix  C  stored  by  rows  (and  number  of 

blocks  in  B  stored  by  columns) 

number  of  rows  (columns)  in  a  block  of  C  (B) 

number  of  rows  (columns)  in  the  last  block  of  C  (B) 


COMMON /NETCX/  ZPED,  PIN,  PNLS ,  NEQ,  NPEQ,  NEQ2,  NONET,  NTSOL,  NPRINT,  MASYM, 
ISEGi( 30) ,  ISEG2(30),  X11R(30),  X11I(30),  X12R(30),  X12I(30),  X22R(30), 
X22I(30),  NTYP( 30) 


Routines  Using  /NETCX/ 

MAIN,  NETWK 

Variables  are  defined  under  subroutine  NETWK. 


COMMON/SAVE/  IP(600),  KCOM,  COM(13,5),  EPSR,  SIG,  SCRWLT,  SCRWRT,  FMHZ 


Routines  Using  /SAVE/ 

MAIN,  GFIL,  GFOUT ,  RDPAT 


Symbol  Definitions; 

IP  *  vector  of  indices  of  pivot  elements  used  in  factoring  the  matrix 
KCOM  *  number  of  CM  or  CE  data  cards  (maximum  5) 

COM  ■  array  storing  the  contents  of  CM  or  CE  cards 

m 
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EPSR  3  relative  dielectric  constant  of  the  ground 
SIG  3  conductivity  of  the  ground 

SCRWLT  3  length  of  radials  in  radial  wire  ground  screen  approximation 
(meters) 

SCRWRT  3  radius  of  wires  in  radial  wire  ground  screen  approximation 
(meters) 

FMHZ  3  frequency  in  MHz 

COMMON/SCRATM/P( 600) 

in  routines  CMSET,  FACTR ,  LFACTR 

C0MM0N/SCRATM/Y( 600) 

in  routines  LTSOLV,  SOLGF,  SOLVE,  SOLVES 

COMMON/SCRATM/GAIN( 1200) 
in  routine  RDPAT 


Symbol  Definitions: 


D  and  Y 


complex  vectors  used  in  matrix  decomposition  and  solution 

GAIN  3  array  to  store  antenna  gain  for  subsequent  normalization 


COMMON /SEGJ/  AX(30),  BX(30),  CX(30),  JCO(30),  JSNO,  ISCON(50),  NSCON, 
IPCON(IO),  NPCON 

Routines  Using  /SEGJ/ 

MAIN,  CABC,  CMNGF,  CMSET,  CMSW,  CMWS,  CMWW,  CONECT,  QDSRC,  SFLDS ,  TBF, 

TRIO 

/SEGJ/  is  used  to  store  the  parameters  defining  current  expansion 

functions.  The  equations  for  the  current  expansion  functions  are  given  in 

c  h 

Section  III-l  of  Part  I.  The  i  current  expansion  function  consists  of  a 
center  section  on  segment  i  and  branches  on  each  segment  connected  to  segment 
i.  On  segment  j,  where  j  is  i  or  the  number  of  a  segment  connected  to  segment 
i,  the  iC*1  expansion  function  is 
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fj(s)  3  A^  +  Bj  sin  [k(s  -  s  J ]  +  cos  [k(s  -  s J ] 


with  the  constants  defined  in  Part  I  to  match  conditions  on  the  current.  A 
superscript  i  has  been  added  to  indicate  the  number  of  the  current  expansion 
function. 

When  subroutine  TBF  is  called  for  expansion  function  i,  it  locates  each 
segment  connected  to  segment  i  and  stores  the  segment  number,  j,  in  array 


JCO .  TBF  also  computes  the  constants  A^,  Bj,  and  Cj  for  segment  j  and  stores 


them  in  AX,  BX,  and  CX,  respectively. 

After  all  connected  segments  have  been  found,  i  is  stored  in  the  next 


location  in  JCO,  and  A^ ,  B^,  and  are  stored  in  the  corresponding  locations 


in  AX,  BX,  and  CX. 

/ SEGJ/  is  also  used  by  subroutine  TRIO.  When  TRIO  is  called  for  segment 
j,  it  locates  each  segment  i  connected  to  segment  j  and  stores  i  in  array 


JCO.  TRIO  calls  SBF  to  compute  the  constants  A^,  B^,  and  C^  for  the  branch  of 


expansion  function  i  that  extends  onto  segment  j  and  stores  these  in  AX,  BX, 
and  CX.  The  total  number  of  entries,  including  i  3  j,  is  stored  in  JSNO.  The 
remaining  parameters  are  used  with  the  NGF  solution. 

ISCON(I)  *  number  of  the  segment  in  the  NGF  file  having  equation  number 
I  in  Che  set  of  equations  for  modified  basis  functions. 

This  is  used  when  a  new  segment  or  patch  connects  to  the 
NGF  segment 

NSCON  3  number  of  entries  in  ISCON 

IPCON(I)  3  number  of  che  patch  in  the  NGF  file  having  equation  number  I 
in  the  set  of  equations  for  modified  patch  basis  functions. 
This  is  used  when  a  new  segment  connects  to  the  NGF  patch 
NPCON  3  number  of  entries  in  IPCON 


NPCON 


COMMON/SMAT/  SSX( 16, 16) 
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Routines  Using  /SMAT/ 

CMSET,  FBLOCK  GFIL,  GFOUT ,  SOLVES 

The  array  SSX  is  described  under  subroutine  FBLOCK.  In  some  copies  of 
NEC-2  the  variable  name  S  is  used  in  FBLOCK  richer  than  SSX. 

COMMON/TMH/  ZPK,  RHKS 

Routines  Using  /TMH / 

GH,  HFK 

/TMH/  is  used  to  pass  values  from  HFK  to  GH.  The  variables  ZPK  and  RHKS 
are  defined  in  the  discussion  of  subroutine  HFK. 

COMMON /TMI/  ZPK,  RKB2,  IJX 

Routines  Using  /TMI / 

EKSC,  EKSCX,  GF 

/TMI/  is  used  to  pass  values  from  EKSC  or  EKSCX  to  GF.  The  meanings  of 
the  variables  are  listed  in  subroutines  EKSC  and  EKSCX. 

COMMON /VSORC/  VQD( 10) ,  VSANT(IO),  VQDS(10),  IVQD(IO),  ISANT(IO),  IQDS(10), 
NVQD,  NSANT,  NQDS 


MAIN,  CABC,  COUPLE,  ETMNS,  NETWK,  QDSRC 

The  arrays  in  /VSORC/  contain  the  strengths  and  locations  of  voltage 
sources  on  wires.  Separate  arrays  are  used  for  applied-field  voltage  sources 
and  current-derivative  discontinuity  voltage  sources.  The  variables  are 
defined  as  follows. 

ISANT(I)  ■  number  of  the  segment  on  which  the  Ith  applied-field 
source  is  located 

IVQD(I)  *  IQDS(I)  =  number  of  the  segment  on  end  1  of  which  the  Ith 
current-slope  discontinuity  voltage  source  is  located 

VQD(I)  *  VQDS(I)  *  voltage  of  the  I&  current-slope  discontinuity 
source 

VSANT(I)  =  voltage  of  the  Ith  applied-field  voltage  source 


NSANT  »  number  of  applied-field  voltage  sources 

NVQD  ■  NQDS  »  number  of  current-slope  discontinuity  voltage  sources 

NVQD,  IVQD,  and  VQD  are  set  in  MAIN  from  tbe  input  data.  NQDS,  IQDS, 
and  VQDS  are  set  in  subroutine  QDSRC.  The  latter  were  included  to  allow  for 
current-slope  discontinuities  other  than  voltage  sources,  such  as  lumped 
loads.  Loading  by  this  means  has  not  been  implemented  in  NEC-2  however. 

COMMON/YPARM/  NCOUP,  ICOUP,  NCTAG( 5) ,  NCSEG( 5) ,  Y11A(5),  Y12A(20) 


Routines  Using  / YPARM/ 


MAIN,  COUPLE 


Symbol  Definitions: 


NCOUP 

ICOUP 


NCTAG(I) 

NCSEG(I) 

Y11A(I) 

Y12A(I) 


number  of  segments  between  which  coupling  will  be  computed 
number  of  segments  in  the  coupling  array  that  have  been 
excited.  When  ICOUP  ■  NCOUP  subroutine  COUPLE  completes  the 
coupling  calculation 
tag  number  of  segment  I 

number  of  segment  in  set  of  segments  having  tag  NCTAG(l) 
self  admittance  of  IC^  segment  specified 

mutual  admittances  stored  in  order  (1,2),  (1,3),  ...  (2,3), 
(2,4),  ...  etc. 


COMMON /Z LOAD/  ZARRAY( 300) 


Routines  Using  /ZLOAD/ 


MAIN,  CMNGF,  CMSET,  GFIL,  GFOUT,  LOAD,  QDSRC 
ZARRAY(I)  -  ZI/(A]./X),  where. Z  is  the  total  impedance  on 
segment  I,  is  tne  length  of  segment  I,  and  X  is  the  wavelength. 


Section  IV 

System  Libraiy  Functions  Used  by  NEC 


ABS(X) 

m 

absolute  value  of  X 

AIMAG(Z) 

m 

imaginary  part  of  the  complex  number  Z;  result  is  real 

AINT(X) 

m 

integer  truncation;  result  is  real 

ALOG(X) 

m 

natural  log  of  X 

ALOGIO (X) 

m 

log  to  the  base  ten  of  X 

ASIN(X) 

a 

arcsine  of  X;  result  in  radians 

ATAN(X) 

m 

arctangent  of  X;  result  in  radians 

ATAN2(X1,X2) 

m 

arctangent  of  X^/X^  result  in  radians  covering  all  four 
quadrants 

CABS(Z) 

m 

magnitude  of  the  complex  number,  Z 

CEXP(Z) 

m 

complex  exponential  (e  ) 

CMPLX(X1,X2) 

a 

formation  of  a  complex  number,  Z  ■  +  jX2 

CONJG(Z) 

m 

conjugate  of  the  complex  number  Z 

COS  (X) 

m 

cosine  of  X 

CSQRT(Z) 

m 

square  root  of  a  complex  number,  /z 

FLOAT (K) 

m 

real  number  equivalent  of  integer  K 

IABS(K) 

m 

absolute  value  of  integer  K 

INT(X) 

m 

X  truncated  to  an  integer 

REAL(Z) 

s 

real  part  of  the  complex  number  Z 

SIN(X) 

m 

sine  of  X 

SQRT(X) 

s 

square  root  of  X 

TAN(X) 

s 

tangent  of  X 

^ ' 


•a 
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Section  V 

Array  Dimension  Limitations 

Array  dimensions  in  the  program  limit  the  structure  model  in  various 
ways.  Any  of  these  limits  may  be  increased  if  necessary  at  the  expense  of 
core  storage  capacity,  which  may  require  reducing  other  array  dimensions. 
The  limits  imposed  by  array  dimensions  are  described  below. 


In-Core  Matrix  Storage,  Ir  -  4000. 
Arrays : 

COMMON/CMB/  CM(Ir> 


Limit  constant: 

IRESRV  -  I  at  MA68  of  MAIN 

Ir  is  the  number  of  words  of  core  available  for  storage  of  the  interac¬ 
tion  matrix.  The  complete  matrix  will  fit  in  core  storage  if  (N  +  2M)  x 
(NP  +  2MP)  is  not  greater  than  Ir*  For  out-of-core  solution,  1^  must  be  at 
least  2(N  +  2M)  and  should  be  as  large  as  possible  to  minimize  file  manipulation. 


COMMON/ZLOAD/  ZARRAY(N) 


IUWU*mnwmsnJBMfllwwunflfk.,vir»mni»tfTnrmr 


——————— g— 


COMMQN/SCRATM/  D(N  +  2M)  or  Y(N  +  2M) 

MAIN;  IX(N  +  2M) 

SUBROUTINE  NETWK;  RHS(N  +  3M) 

Limit  Constant; 

LD  -  N  +  M  at  MA66  of  MAIN 

All  segments  and  patches  resulting  from  reflection  or  rotation  of  a 
symmetric  structure  must  be  included  in  determining  the  limiting  structure 
s  :  ze. 


Maximum  Number  of  Non-radiating  Networks,  N^  3  30. 


Arrays; 


COMMON/NETCX/ ;  ISEG1(N  ),  ISEG2(N  ),  X1IR(N  ),  XI1I(N  ),  X12R(N  ), 

n  n  n  n  n 

Xl2l(Nn),  X22R(Nn),  X22I(Nn),  NTYP(Nn> 

SUBROUTINE  NETWK;  RHNTCN^) ,  IPNT(Nn),  NTEQACN^) ,  NTSCA(Nn>,  RRNX(Nn), 

“•w.-V 


• 


Limit  Constants; 
NETMX  3  N 

n 

NDIMN  3  N 


n 


at  MA63  of  MAIN 
at  NT22  of  NETWK 


NDIMNP  3  N  +  1  at  NT22  of  NETWK 
n 


N  is  the  limit  for  either  the  number  of  networks  (including 
n 

transmission  lines)  or  the  number  of  segments  having  one  or  more  network  ports 
connected,  whichever  is  greater.  When  relative  driving  point  matrix  asymmetry 
is  computed,  N^  must  also  be  greater  than  or  equal  to  the  sum  of  the  number 
of  segments  with  network  ports  connected  plus  the  number  of  segments  with 
voltage  sources. 


£ 
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Maximum  Number  of  Degrees  of  Symmetry,  N 


Arrays : 


COMMON/ SMAT/  S (N  ,  N  ) 

P  P 

Np  limits  the  number  of  symmetric  cells  in  a  structure.  The  number  of 
symmetric  cells  is  equal  to  the  ratio  of  N  to  NP  in  CCMMON/DATA/ . 


Maximum  Number  of  Segments  Joined  at  Junctions  .  n  ■  30 

mm  J 

If  N  and  N  are  the  numbers  of  segments  connected  to  end  1  and  end  2 
of  a  segment,  respectively,  then  the  dimensions  in  COMMON/SEGJ/ ,  N^ ,  must  be 
at  least  N  +  N+  +  1. 


Array : 


COMMON/SEGJ/  AX(N^),  BX(N..),  CX(N^),  JCO(Nj),  JSNO 


Limit  Constants: 


JMAX  -  at  SB6  in  SBF 
JMAX  *  Nj  at  TB8  in  TBF 
JMAX  »  Nj  at  TR8  in  TRIO 


Maximum  Number  of  Voltage  Sources,  Nv  ■  30. 


Arrays: 


COMMON / VSORC /  VQD(Nv>,  VSANT(Nv),  VQDS(Nv),  IVQD(N  ),  ISANT(Nv>,  IQDS(Nv> 


Limit  Constant: 

NSMAX  -  Nv  at  MA63  of  MAIN 

A  model  may  use  up  to  N^  applied  field  voltage  sources  and  up  to 
current  slope  discontinuity  voltage  sources. 
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Maximum  Number  of  Loading  Cards,  N^  *  30 


Arrays : 

MAIN:  LDTYP^),  LDTAG^),  LDTAGFC^),  LDTAGTC^),  ZLR^) ,  ZLI^), 
ZLC(NX) 

Limit  Constants: 

LOADMX  -  N  at  HP61  of  MAIN 

IThen  the  NGF  option  is  used  only  new  loading  cards  are  counted,  not  those  use^ 
in  generating  the  NGF  file. 

Number  of  Comment  Cards  Saved,  N  -  5 

_  c 


Arrays : 

COMMON / SAVE/ :  COM ( 1 3 , N  ) 

c 

Limit  Constant: 

Constants  at  MA71  of  MAIN 

Any  number  of  comment  cards  may  be  placed  at  the  beginning  of  a  data 
deck  and  will  be  printed  in  the  output.  Only  Nc  of  the  cards  will  be  saved 
in  array  COM  for  later  use  in  labeling  plots,  however.  The  first  N^  -  1 
comment  cards  and  the  last  comment  card  will  be  saved. 


Maximum  Field  Points  for  Normalized  Gain,  N  *  1200. 

- - !_S _ 

Arrays : 

COMMON/ SCRATM/  GAIN(N  ) 

s 

Limit  Constant: 

NORMAX  *  N  at  RD22  of  SUBROUTINE  RDPAT 

O 

N  is  the  maximum  number  of  field  points  from  a  single  RP  data  card  that 
© 

can  be  stored  for  output  in  normalized  form  or  for  plotting  if  plotting  is 


implemented.  If  an  RP  card  requesting  more  than  N  points  calls  for  nor- 

O 

malized  gain,  the  gain  will  be  computed  and  printed  at  all  requested  angles, 
but  only  the  first  Ng  gains  will  be  stored  and  normalized. 

COMMON/ SCRATM/  GAIN  occurs  in  SUBROUTINE  RDPAT.  COMMON /SCRATM/  D  and 
COMMON/ SCRATM/  Y  occur  in  certain  other  routines  where  D  and  Y  are  complex 
(see  "Maximum  Segments  and  Patches").  GAIN,  D,  and  Y  should  be  dimensioned  so 
that  each  common  statement  contains  the  same  number  of  words. 


Maximum  Number  of  Frequencies  for  Normalized  Impedance  or  Maximum  Number  of 


Angles  for  Which  Received  Signal  Strength  Is  Stored,  N 


MAIN:  FNORM(Nf ) 


Limit  Constant: 


NORMF  -  Nf  at  MA63  of  MAIN 


The  maximum  number  of  frequencies  for  which  input  impedance  may  be 
stored  and  normalized  is  N^/4,  since  the  real  and  imaginary  impedance  and 
magnitude  and  phase  are  each  stored.  The  receiving  current  can  be  stored  for 
up  to  N^  angles. 
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Section  VI 

Overview  of  Numerical  Green’s  Function  Operation 


NEC  includes  a  provision  to  generate  and  factor  an  interaction  matrix 
and  save  the  result  on  a  file.  A  later  run,  using  the  file,  may  add  to  the 
structure  and  solve  the  complete  model  without  unnecessary  repetition  of 
calculations.  This  procedure  is  called  the  Numerical  Green' s  Function  (NGF) 
option  since  the  effect  is  as  if  the  free  space  Green's  function  in  NEC  were 
replaced  by  the  Green's  function  for  the  structure  on  the  file.  The  NGF  is 
particularly  useful  for  a  large  structure,  sucn  as  a  ship,  on  which  various 
antennas  will  be  added  or  modified.  It  also  permits  taking  advantage  of 
partial  symmetry  since  a  NGF  file  may  be  written  for  the  symmetric  part  of  a 
structure,  taking  advantage  of  the  symmetry  to  reduce  computation  time. 
Unsymmetric  parts  can  then  be  added  in  a  later  run. 

For  the  NGF  solution  the  matrix  is  partitioned  as 


A  a 


C  D 


where  A  is  the  interaction  matrix  for  the  initial  structure,  D  is  the  matrix 
for  the  added  structure,  and  B  and  C  represent  mutual  interactions.  The 


current  is  computed  as 


I2  -  [d  -  CA_1b]“L  [e2  -  CA-1L1]  , 


iL  -  a“1e1  -  a-1bi2  , 


after  the  factored  matrix  A  has  been  read  from  the  NGF  file  along  with  other 
necessary  data.  Since  the  LU  decomposition  is  obtained  in  NEC  rather  than  the 
inverse,  the  multiplication  by  A  ^  is  accomplished  by  using  the  solution 
procedure  in  subroutine  SOLVE  on  each  column  in  the  matrix  to  the  right  of 


To  use  the  NGF  option  the  parameters  of  the  fixed,  or  NGF,  part  of  the 


model  are  defined  in  the  first  run.  A  WG  data  card  causes  the  matrix  A  to  be 


computed  (CMSET),  factored  (FACTRS),  and  written  to  file  TAPE20  by  subroutine 
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GFOUT.  Ocher  necessary  data,  such  as  segment  and  patch  coordinates, 
frequency,  loading,  and  ground  parameters,  are  also  written  to  TAPE20. 

When  the  NGF  file,  TAPE20,  is  used  the  data  are  read  into  the  usual 
arrays  by  subroutine  GFIL  and  new  segments  and  patches  are  added  to  the  arrays 
in  COMMON/DATA/.  Subroutine  CMNGF  is  then  called  to  compute  the  matrix 
elements  in  B,  C,  and  D.  FACGF  computes  A  n,  storing  it  in  place  of  B,  and 
computes  (l)  -  CA  *B) ,  factors  it  into  L  and  U  parts,  and  stores  Che  result 
in  place  of  D.  For  each  excitation  E^  and  SOEGF  completes  the 
procedure  of  solving  for  1^  and  I^. 

The  procedure  is  complicated  by  the  connection  of  new  segments  or 
patches  to  NGF  segments  or  patches.  A  connection  to  a  segment  modifies  Che 
current  basis  function  (see  Section  1II.1  of  Part  I).  Since  the  elements  in  A 

cannot  be  changed,  a  modified  basis  function  must  be  treated  as  a  new  basis 

function  with  a  new  column  added  to  B  and  D  and  the  new  basis  function 
amplitude  added  to  the  end  of  Ig.  The  amplitude  of  the  original  basis 
function  is  set  to  zero  by  adding  a  row  containing  all  zeros  except  for  a  one 

in  the  column  of  C  corresponding  to  the  modified  basis  function.  Since  the 

segment  is  not  modified  Che  boundary  condition  equation  is  not  altered  in  this 
case. 

When  a  new  segment  connects  to  a  NGF  patch  the  patch  must  be  divided 
into  four  new  patches,  after  the  user  defined  patches,  requiring  eight  new 
rows  and  columns  in  B,  C,  and  0.  Two  additional  rows  are  added  to  set  Che  two 
current  components  on  the  old  patch  to  zero.  Since  the  old  patch  is  replaced 
by  the  four  new  patches,  the  condition  on  the  field  at  the  center  of  the  patch 
should  be  removed.  This  is  done  by  adding  two  new  columns  each  containing  all 
zeros  except  for  a  one  in  the  row  of  the  equation  to  be  removed. 

The  matrix  structure  is  further  complicated  by  the  division  of  each 
submatrix  into  sections  for  segment-to-segment,  patch-to-patch, 
segment-to-patch  and  patch-to-segment  interactions.  The  matrix  structure  is 
shown  in  Figure  12,  where  the  subscript  w  denotes  wire  segments  and  s  denotes 

■  i 

surface  patches.  The  elements  of  B  and  B  are  the  E  fields  and  H 

ww  sw 

fields  due  to  modified  basis  functions  in  the  NGF  section.  Each  column  of 
'  '  1 

B  and  row  of  C  and  C  contains  0's  and  a  single  1. 
ss  ww  ss 

The  subroutine  ETMNS  fills  the  excitation  array  with  the  E  fields 
illuminating  all  segments,  followed  by  the  H  fields  on  patches.  These 
elements  are  reordered  in  SOLGF  to  correspond  to  the  matrix  structure.  After 


T 
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the  solution  this  reordering  is  reversed  in  50LGF  to  put  basis  function 
amplitudes  for  segments  first,  followed  by  those  for  patches.  If  symmetry  is 
used  in  the  NGF  section  the  matrix  A  is  structured  as  submatrices  for  the 
symmetric  sections.  Each  submatrix  contains  elements  for  segments  and  patches 
in  that  section,  with  the  order  as  shown  for  A  in  Figure  12.  In  this  case  the 
excitation  and  solution  vectors  are  ordered  in  SOLVES  to  correspond  to  the 
submatrix  structure. 


Section  VII 

Overview  of  Matrix  Operations  Using  File  Storage 

File  storage  is  used  when  the  matrix  size  exceeds  the  length  of  the 
array  CM  in  COMMON/CMB/.  For  the  basic  solution  (not  NGF)  there  are  five 
matrix  storage  modes  associated  with  the  integer  ICASE  as  follows^ 


ICASE 


Matrix  Storage 


1  Matrix  fits  in  CM;  no  structure  symmetry 

2  Matrix  fits  in  CM;  structure  symmetry  used 

3  Matrix  stored  on  file;  no  symmetry 

4  Matrix  stored  on  file;  symmetry;  each 

submatrix  fits  into  CM  for  LU  decomposition 

3  Matrix  stored  on  file;  symmetry; 

submatrices  do  not  fit  into  CM. 


For  case  3  the  matrix  is  initially  written  on  file  11  by  blocks  of 
rows.  The  block  size  is  chosen  in  subroutine  FBLOCK  so  that  two  blocks  will 
fit  into  CM  for  the  Gauss  elimination  procedure.  The  block  size  and  number  of 
blocks  is  set  by  the  parameters  NBLOKS,  NPBLK.,  and  NLAST  in  COMMON /MATPAR/. 

Subroutine  FAC10  reads  file  11  and  writes  file  12  using  13  and  14  for 
scratch  storage.  LUNSCR  then  reads  12  and  writes  the  blocks  of  the  factored 
matrix  on  file  13  in  forward  order  and  on  file  14  in  reversed  order.  File  13 
is  then  used  for  forward  substitution  in  the  solution  and  file  14  is  used  for 
backward  substitution. 

For  case  4,  FACTRS  reads  the  matrix  from  file  11,  where  it  was  written 
by  blocks  of  rows  (columns  of  the  transposed  matrix),  and  writes  it  to  file  12 
by  submatrices.  The  submatrices  are  then  read  from  12,  factored,  and  written 
to  13. 

In  case  5,  FACTRS  reads  the  matrix  from  file  11  and  writes  it  to  file  12 
by  blocks  of  rows  (columns  of  the  transposed  matrix)  for  each  submatrix. 

File  12  is  then  copied  back  to  file  11,  and  the  procedure  of  case  3  is 
repeated  for  each  submatrix. 

When  a  NGF  file  is  to  be  written,  half  of  CM  is  reserved  for  matrix 
storage  and  manipulations  of  the  matrices  B,  C,  and  D.  Hence  for  cases  1,  2 
or  4  the  primary  matrix  A  (or  submatrix  for  case  4)  must  fit  into  half  of  CM. 


There  is  no  restriction  for  cases  3  or  5  since,  with  two  matrix  blocks  fitting 
into  CM  for  the  LU  decomposition,  half  of  CM  is  available  during  the  solution 
when  blocks  are  used  one  at  a  time. 

There  are  four  modes  for  storing  B,  C,  and  D  in  the  NGF  solution.  These 
are  associated  with  the  integer  1CASX  as  follows: 

Ap  "  matrix  A  factored  into  l.  and  U 
/Ap  for  1CASE  *  1  or  2 
A&  "lone  block  of  Ap  for  ICASE  ”3 
lone  submatrix  for  ICASE  ”  4 
Vone  block  of  submatrix  for  ICASE  “  5 
Ax  -  Ap  for  ICASE  -  1  or  2 
nothing  otherwise 


ICASX  NGF  Matrix  Storage 

1  Ar,  B,  C,  and  D  fit  into  CM 

2  B,  C,  and  D  fit  into  CM  but  not  with  AR 
(ICASE  *  3,  4,  5)  AR  and  B  must  also  fit 
into  CM  together 

3  B,  C,  and  D  do  not  fit  into  CM,  but  A^ 
and  F  =  D  -  CA  ^B  fit  into  CM  for  the  LU 
decomposition  of  F 

4  Same  as  3  but  D  -  CA  ^B  requires  file 
storage  for  LU  decomposition 

When  a  NGF  file  (TAPE20)  is  written  with  ICASE  *  3  or  5,  files  13  and  14 
are  both  written  to  TAPE20.  When  the  NGF  file  is  read  these  data  are  written 
on  the  single  file  13  with  the  blocks  in  ascending  order  first  and  then  in 
descending  order.  If  Ap  is  stored  on  file  13  then  space  for 
needed  only  when  is  used  in  a  solution  in  CM.  This  accounts  for  the 
definition  of  A~. 

File  usage  for  ICASX  ■  2,  3,  and  4  is  outlined  in  Figures  13  and  14. 

The  value  for  ICASX  is  chosen  in  subroutine  FBNGF  as  the  smallest  value 
possible.  The  number  of  blocks  into  which  matrices  B,  C,  and  D  are  divided  is 
also  chosen  in  FBNGF. 


in  CM  is 


Contents  Files 

NGF  Procedure  for  ICASX  -  2  of  CM  11  12  13 


|1  1^4  t 


Figures  15  and  16  show  the  organization  of  subroutines  in  the  NEC-2 
program.  All  possible  subroutine  calls  are  traced,  although  in  a  particular 
run  only  certain  of  the  traces  will  be  followed.  Routines  that  are  called  at 
more  than  one  point  in  the  program  are  shown  as  separate  blocks  for  each  call. 


Out-of-cora 

factoring 


16  (continued) 
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Section  IX 
SOMNEC 

1.  SOMNEC  CODE  DESCRIPTION 


SOMNEC  is  an  independent  code  that  generates  the  interpolation  tables 
for  the  Soramerfeld/Norton  ground  option  for  NEC.  The  tables  are  written  on 
file  TAPE 21  which  becomes  an  input  file  to  NEC.  Coding  of  the  routines  in 
SOMNEC  is  described  in  this  section. 
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SOMNEC 


SOMNEC  (main  program) 


PURPOSE 

To  generate  interpolation  tables  for  the  Sommerfeld/Norton  ground  option 
and  write  them  on  file  TAPE21. 


METHOD 

The  code  from  SN17  to  SN51  reads  the  input  data  and  sets  parameters  in 
COMMON/EVLCOM/.  Since  all  equations  are  scaled  to  a  free-space  wavelength  of 
one  meter  the  results  depend  only  on  the  complex  dielectric  constant 


ex  -  ja^Cu^)  . 


* 


In  the  routines  that  evaluate  the  Sommerfeld  integrals  the  time  dependence  is 
exp(-jujt)  rather  than  exp(+ju>t)  which  is  used  in  the  remainder  of  NEC.  Hence 
the  conjugate  of  (EPSCF)  is  taken  before  computing  the  parameters  in 
COMMON/EVLCOM/.  The  conjugate  of  the  results  is  taken  at  the  end  of  EVLUA,  so 
the  results  returned  to  SOMNEC  and  written  on  TAPE21  are  for  exp(+j(iJt). 

Three  interpolation  tables,  as  shown  in  Figure  12  of  Part  I,  are 
generated  in  the  code  from  SN55  to  SN123.  For  each  R^,  0  pair  in  the  tables 
the  values  of  p  and  z  +  z'  are  computed  and  stored  in  COMMON/EVLCOM/. 
Subroutine  EVLUA  is  then  called  and  returns  the  quantities 


3  2  ' 

ERV  =  3^  klV22 


EZV 


,3  ,  2,  ,  2,,' 

(9z2  +  k2}  klV22 


2 

ER"  -  (-^  *  k&2> 

3p 


EPH  - -(£  a?  k24  *  kK2> 


These  are  multiplied  by  C^  exp(jkR^)  to  form  the  quantities  in 


equation  (156)  through  (159)  in  Part  I.  When  R^  is  zero  the  limiting  forms 
in  equations  (169)  through  (172)  of  Part  I  are  used.  The  expressions  from 
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SOMNEC 


SN116  to  SN118  are  obtained  by  letting  b  go  to  zero  in  the  expressions  for 


R 


1 


0. 


The  data  are  stored  in  COMMON/GGRID/  which  is  identical  to  the  common 
block  in  NEC.  File  21  is  written  at  SN127  and  includes  coordinates  of  the 
grid  boundaries,  number  of  points,  and  increments  for  R^  and  6.  Hence  those 
grid  parameters  can  be  changed  in  SOMNEC  without  changing  NEC.  If  the  number 
of  grid  points  is  increased,  however,  the  arrays  in  COMMON/GGRID/  must  be 
increased  in  both  SOMNEC  and  NEC.  Also,  the  parameters  NDA  and  NDPA  in 
subroutine  INTRP  must  be  changed. 


SYMBOL  DICTIONARY 

AR1  *  array  for  grid  1 

AR2  ■  array  for  grid  2 

AR3  *  array  for  grid  3 

CK1  *  ki  . 

CK1R  ■  real  part  of  k^ 

CK1SQ  =*  k* 

CK2  *  k„  (»  2 it  since  X  -  1) 

CK2SQ  *  kj 

CKSM  -  k*/(k*  +  k^) 

2 

CL1  *  k^C^C^  ^see  Part  1  f°r  Cj  ,  C2,  and  C^) 


CL2  - 

I 

CON  ”  C^R^exp( jkR^)  : 


CT1  -  (k*  -  kj)/2 

CT2  -  (k*  -  kj)/8 

CT3  -  (k*  -  k*)/16 

DR  -  ARX 

DTH  *  A0 

DXA  *  ARL  for  each  grid 
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AO  for  each  grid  (radians) 
EPH 


SOMNEC 


DYA 

EPH 

EPR 

EPSCF 

ERH 

ERV 

EZV 

FHHZ 

IPT 

IR 

IRS 

ITH 

LCOMP 

HR 

NTH 

NXA 

NYA 

R 

RHO 

RK 

SIG 

TFACI 

TFAC2 

THET 

TIM 

TRMAG 

TSMAG 

TST 

WLAM 

XSA 

YSA 

ZPH 


e 

c 

ERH 

ERV 

EZV 

frequency  in  MHz 

flag  to  control  printing  of  grid 

index  for  R^  values 

starting  value  for  IR 

index  for  6  values 

labels  for  output 

number  of  R^  values 

number  of  6  values 

number  of  R^  values  for  each  grid 

number  of  6  values  for  each  grid 


(1  -  sin  0)/cos  0 
(1  -  sin  0)/cos20 
0 

time  to  fill  arrays 

100. Ik^l 

100. Ik^l2 

starting  time 

wavelength  in  free  space 

starting  value  of  R^  in  each  grid 

starting  value  of  0  in  each  grid 

Z  +  Z' 


CONSTANTS 

299.8 

59.96 

6.283185308 


10  ^  times  velocity  of  light  in  m/s 
l/(2TTceo) ,  c  »  velocity  of  light 
21T 
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1 

PROGRAM  SOMNEC( INPUT . OUTPUT . TAPE21 ) 

SN 

.1 

2 

C 

SN 

2 

3 

C 

PROGRAM  TO  GENERATE  NEC  INTERPOLATION  GRIDS  FOR  FIELDS  DUE  TO 

SN 

3 

4 

c 

GROUND.  FIELD  COMPONENTS  ARE  COMPUTED  BY  NUMERICAL  EVALUATION 

SN 

4 

5 

c 

OF  MODIFIED  SOMMERFELO  INTEGRALS. 

SN 

5 

6 

c 

SN 

6 

7 

COMPLEX  CK1 . CK1 SO , ERV , EZV , ERH , EPH , AR1 . AR2 . AR3 . EPSCF , CKSM. CT1 .CT2.C 

SN 

7 

8 

1T3.CL1 .CL2.C0N 

SN 

8 

9 

COMMON  /EVLCOM/  CKSM.CT1 .CT2.CT3.CK1 . CK1 SO . CK2 , CK2S0 . TKMAG , TSMAG , C 

SN 

9 

10 

1K1R.ZPH.RH0, JH 

SN 

10 

11 

COMMON  /GGRID/  AR1 ( 1 1 . 10 . 4) . AR2( 1 7 .5 . 4) . AR3(9 .8 . 4) . EPSCF . DXA(3) . DY 

SN 

1 1 

12 

1A(3).XSA(3),YSA(3).NXA(3),NYA(3) 

SN 

12 

13 

DIMENSION  LC0MP(4) 

SN 

13 

14 

DATA  NXA/11 .17.9/.NYA/10.5.8/.XSA/0. . .2. .2/.YSA/0. .0. . .3490658504/  SN 

14 

15 

DATA  DXA/ . 02 . . 05 . . 1 / . OYA/ . 1 745329252 . . 0872664626 . . 1 745329252/ 

SN 

15 

16 

DATA  LC0MP/3HERV . 3HEZV . 3HERH . 3HEPH/ 

SN 

16 

17 

c 

SN 

17 

18 

c 

READ  GROUND  PARAMETERS  -  EPR  =  RELATIVE  OIELECTRIC  CONSTANT 

SN 

16 

19 

c 

SIG  =  CONDUCTIVITY  (MHOS/M) 

SN 

19 

20 

c 

FMHZ  =  FREQUENCY  (MHZ) 

SN 

20 

21 

c 

IPT  =  1  TO  PRINT  GRIDS.  =0  OTHERWISE. 

SN 

21 

22 

c 

IF  SIG  .LT.  0.  THEN  COMPLEX  DIELECTRIC  CONSTANT  =  EPR  +  J'SIG 

SN 

22 

23 

c 

AND  FMHZ  IS  NOT  USED 

SN 

23 

24 

c 

SN 

24 

25 

READ  15.  EPR. SIG. FMHZ. IPT 

SN 

25 

26 

IF  (SIG.LT.O.)  GO  TO  1 

SN 

26 

27 

WLAM=299 . 8/FMHZ 

SN 

27 

28 

EPSCF=CMPLX ( EPR , -SIG*WLAM*59 . 96 ) 

SN 

28 

29 

GO  TO  2 

SN 

29 

30 

1 

EPSCF=CMPLX( EPR , SIG) 

SN 

30 

31 

2 

CALL  SECOND  (TST) 

SN 

31 

32 

CK2=6. 2831 85308 

SN 

32 

33 

CK2SQ=CK2*CK2 

SN 

33 

34 

c 

SN 

34 

35 

c 

SOMMERFELD  INTEGRAL  EVALUATION  USES  EXP(-JWT) .  NEC  USES  EXP(+JWT). 

SN 

35 

36 

c 

HENCE  NEED  CONJG( EPSCF) .  CONJUGATE  OF  FIELDS  OCCURS  IN  SUBROUTINE 

SN 

36 

37 

c 

EVLUA. 

SN 

37 

38 

c 

SN 

38 

39 

CK1 SQ=CK2SQ*C0NJG( EPSCF ) 

SN 

39 

40 

CXI =CSQRT(CK1 SQ) 

SN 

40 

41 

CK1 R=REAL(CK1  ) 

SN 

41 

42 

TKMAG=1 00 . *CABS(CK1 ) 

SN 

42 

43 

TSMAG=1 00 . *CK1 *C0NJG(CK1 ) 

SN 

43 

44 

CKSM=CK2S0/( CK 1 SQ+CK2SQ ) 

SN 

44 

45 

CT1 =. 5* (CK1 SQ-CK2SQ) 

SN 

45 

46 

ERV=CK1 SQ’CKI SQ 

SN 

46 

47 

EZV=CK2SQ*CK2SQ 

SN 

47 

48 

CT2=. 1 25*(ERV-EZV) 

SN 

48 

49 

ERV=ERV*CK1  SQ 

SN 

49 

50 

EZV=EZV*CK2SQ 

SN 

50 

51 

CT3= . 0625*  ( ERV-EZV ) 

SN 

51 

52 

c 

SN 

52 

53 

c 

LOOP  OVER  3  GRID  REGIONS 

SN 

53 

54 

c 

SN 

54 

55 

DO  6  K=1 .3 

SN 

55 

56 

NR=NXA(K) 

SN 

56 

57 

nth=nya(k) 

SN 

57 

58 

DR=DXA(K) 

SN 

58 

59 

OTH=DYA(K) 

SN 

59 

60 

R=XSA(K)-DR 

SN 

60 

61 

IRS=1 

SN 

61 

62 

IF  (K.EQ.1)  RsXSA(K) 

SN 

62 

63 

IF  (K.EQ.1)  IRS=2 

SN 

63 

e 


SOMNEC 


64  C 

SN 

64 

65  C 

LOOP  OVER  R.  (R=SQRT(RH0**2  +  (Z+H)*»2)) 

SN 

65 

66  C 

SN 

66 

67 

00  6  IR=IRS , NR 

SN 

67 

68 

RsR+DR 

SN 

68 

69 

THET=YSA(K)-DTH 

SN 

69 

70  C 

SN 

70 

71  C 

LOOP  OVER  THETA.  (THETA*ATAN( (Z+H)/RHO) ) 

SN 

71 

72  C 

SN 

72 

73 

00  6  ITH=1 .NTH 

SN 

73 

74 

THETaTHET+DTH 

SN 

74 

75 

RHO=R*COS(THET) 

SN 

75 

76 

ZPH=R*SIN(THET) 

SN 

76 

77 

IF  (RHO.LT.1 .E-7)  RHO=1.E-8 

SN 

77 

78 

IF  (ZPH.LT.1 .E-7)  ZPH=0. 

SN 

78 

79 

CALL  EVLUA  ( ERV, EZV . ERH, EPH) 

SN 

79 

80 

RK=CK2»R 

SN 

80 

81 

C0N=-(0 . , 4. 771 47)*R/CMPLX(C0S(RK) .-SIN(RK)) 

SN 

81 

82 

GO  TO  (3,4,5).  K 

SN 

82 

83  3 

AR1 (IR , ITH , 1 )=ERV*CON 

SN 

83 

84 

AR1(IR,ITH.2)=EZV«C0N 

SN 

84 

85 

AR 1  ( IR . ITH , 3 ) =ERH»CON 

SN 

85 

86 

AR1(IR,ITH,4)=EPH*C0N 

SN 

86 

87 

GO  TO  6 

SN 

87 

88  4 

AR2 ( IR . ITH . 1 ) =ERV*CON 

SN 

88 

89 

AR2( IR . ITH , 2 )=EZV»CON 

SN 

89 

90 

AR2( IR , ITH , 3)=ERH*C0N 

SN 

90 

91 

AR2(IR.ITH.4)=EPH»C0N 

SN 

91 

92 

GO  TO  6 

SN 

92 

93  5 

AR3(IR . ITH , 1 )=ERV*CON 

SN 

93 

94 

AR3(  IR .  ITH ,  2 )=EZV*CON 

SN 

94 

95 

AR3( IR . ITH . 3 )=ERH*CON 

SN 

95 

96 

AR3(IR . ITH . 4)=EPH*C0N 

SN 

96 

97  6 

CONTINUE 

SN 

97 

98  C 

SN 

98 

99  C 

FILL  GRID  1  FOR  R  EQUAL  TO  ZERO. 

SN 

99 

100  c 

SN 

100 

101 

CL2=-(0 . . 1 88 . 370) • ( EPSCF— 1 . )/(EPSCF+1 .) 

SN 

101 

102 

CL1 =CL2/( EPSCF+1 . ) 

SN 

102 

103 

EZV=EPSCF*CL1 

SN 

103 

104 

THET=-OTH 

SN 

104 

105 

NTH=NYA( 1 ) 

SN 

105 

106 

DO  9  ITH=1,NTH 

SN 

106 

107 

THETsTHET+DTH 

SN 

107 

108 

IF  (ITH. EQ. NTH)  GO  TO  7 

SN 

108 

109 

TFAC2=C0S( THET) 

SN 

109 

110 

TFAC1=(1 . -SIN( THET) )/TFAC2 

SN 

110 

1 1 1 

TFAC2=TFAC1/TFAC2 

SN 

1 1 1 

112 

ERV=EPSCF»CL1»TFAC1 

SN 

112 

113 

ERH=CL1 ‘(TFAC2-1  . )+CL2 

SN 

113 

114 

EPH=CL1 *TFAC2-CL2 

SN 

114 

115 

GO  TO  8 

SN 

115 

116  7 

ERV=0 . 

SN 

116 

117 

ERH=CL2-.5*CL1 

SN 

117 

116 

EPH=-ERH 

SN 

118 

119  8 

AR1 ( 1 , ITH , 1 )=ERV 

SN 

119 

120 

AR 1(1 ,ITH.2)=EZV 

SN 

120 

121 

AR1(1 ,ITH.3)aERH 

SN 

121 

122  9 

AR1 ( 1 , ITH , 4)=EPH 

SN 

122 

123 

CALL  SECOND  (TIM) 

SN 

123 

124  C 

SN 

124 

125  C 

WRITE  GRID  ON  TAPE21 

SN 

125 

126  C 

SN 

126 

127 

WRITE  (21)  AR1 .AR2.AR3, EPSCF. OXA.OYA.XSA.YSA.NXA.NYA 

SN 

127 
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12a 

REWIND  21 

SN 

128 

129 

IF  (IPT.EQ.O)  GO  TO  14 

SN 

129 

130 

C 

SN 

130 

131 

C 

PRINT  GRID 

SN 

131 

132 

C 

SN 

132 

133 

PRINT  17.  EPSCF 

SN 

133 

134 

DO  13  K=1 .3 

SN 

134 

135 

NRsNXA(K) 

SN 

135 

136 

NTH=NYA(K) 

SN 

136 

137 

PRINT  18.  K.XSA(K) ,DXA(K) .NR.YSA(K) ,DYA(K) .NTH 

SN 

137 

138 

DO  13  L=1 ,4 

SN 

138 

139 

PRINT  19.  LCOMP(L) 

SN 

139 

140 

OO  13  IRsl.NR 

SN 

140 

141 

GO  TO  (10.11,12).  K 

SN 

141 

142 

10 

PRINT  20,  IR.(AR1(IR.ITH.L).ITH=1 .NTH) 

SN 

142 

143 

GO  TO  13 

SN 

143 

144 

11 

PRINT  20.  IR.(AR2(IR.ITH.L).ITH=1 .NTH) 

SN 

144 

145 

GO  TO  13 

SN 

145 

146 

12 

PRINT  20.  IR, (AR3(IR , ITH , L) , ITH=1 .NTH) 

SN 

146 

147 

13 

CONTINUE 

SN 

147 

148 

14 

TIM=TIM-TST 

SN 

148 

149 

PRINT  16. TIM 

SN 

149 

150 

STOP 

SN 

150 

151 

C 

SN 

151 

152 

15 

FORMAT  (3E10.3.I5) 

SN 

152 

153 

16 

FORMAT  (6H  TIME=,E12.5) 

SN 

153 

154 

17 

FORMAT  (30H1NEC  GROUND  INTERPOLATION  GRID./.21H  DIELECTRIC  CONSTAN 

SN 

154 

155 

1T=,2E12.5) 

SN 

155 

156 

18 

FORMAT  (///,5H  GRID , 12 ,/. 4X ,5HR( 1 )=. F7 . 4 , 4X , 3HDR=, F7 . 4. 4X . 3HNR=. 13 

SN 

156 

157 

1 . / . 9H  TH ET ( 1 )  = , F7 . 4 . 3X , 4HDTH= , F7 . 4 . 3X . 4HNTH= , 13 , //) 

SN 

157 

158 

19 

FORMAT  (///.A3) 

SN 

158 

159 

20 

FORMAT  ( 4H  IR=, 13 ./. ( 1 0E1 2 . 5) ) 

SN 

159 

160 

END 

SN 

1  60- 
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BESSEL 

PURPOSE 

To  compute  the  BesseL  function  of  order  zero  and  its  derivative  for  a 
complex  argument. 


METHOD 

For  argument  magnitudes  Less  than  a  limit  Zfl  the  functions  are 
evaluated  by  the  ascending  series  and  for  larger  magnitudes  by  Hankel's 
asymptotic  expansion  (ref.  5).  The  ascending  series  are 


Jo(2)  •  2 

k-0 


(-Z74) 

(ki)2 


k 


r0U) 


-¥2>  •  4  2 

k-0 


The  number  of  terms  used  with  an  argument  Z  is  M(IZ)  where  IZ  -  1.  +  IZI  . 
The  array  M  is  filled  for  IZ  from  1  to  101  on  the  first  call  to  BESSEL  by 
determining  the  value  of  k  at  which  the  term  in  Che  series  for  Jq  is  less 


than  10‘6. 

When  IZI  is  greater  than  Z  Hankel's  asymptotic  expansions  are 

3 

used  with  two  or  three  terms.  These  are 


Vz)  myfOz  [P( V,Z)cos  x  -  Q( V,Z) sin  x)  Oarg  Zl  < 


if) 


x  -  z  - 


(iv  .  i)» 


p(ViZ)  .  !  .  (M-1KH-9)  „  (M-U(|i-9KM-25)(M-49) 


Z'.(8Z)‘ 


4 1  ( 8Z ) 


# 
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Q(v,z)  -  itli  - 

a  3 1  (  8Z )  J 

where  u  *  4v2. 

When  Zg  <  IZ I  <  Zg  +  A  both  the  series  and  asymptotic 
forms  are  evaluated  and  are  combined  as 


J(Z)  -  ^  [J  (Z)(l+C)  +  J  (Z)(l-C)l 
l  s  a 

where  C  *  cos  C iZl  -  Z  )) 
u  s 

J  (Z)  *  result  of  series  evaluation 
s 

Ja(Z)  a  result  of  asymptotic  evaluation 
This  combination  ensures  a  smooth  transition  between  the  two  regions.  In  the 
code  Z^  is  6  and  A  is  0.1. 

SYMBOL  DICTIONARY 

A1  -  -1./C4R2) 

A2  -  l./U  ♦  1) 

C3  -  /27i  -  0.7978845608 

CZ  *  cos  X 

FJ  -  /T. 

FJX  -  FJ 

IB  *  1  to  indicate  that  both  the  series  and  asymptotic  forms  will  be 
evaluated  and  combined 

INIT  *  flag  to  indicate  that  initialization  of  constants  has  been 

completed 

2 

IZ  ■  1.  +  IZl  truncated  to  an  integer 

JO  -  JQ(Z) 

JOP  -  JqCz) 

i 

JOPX  *  Jq(Z)  from  series  to  be  combined  with  asymptotic  result 
JOX  ■  Jq(Z),  same  as  JOPX 

X  =  summation  index  k,  summed  from  1  to  limit 
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i 

SUBROUTINE  BESSEL  (Z.J0.J0P) 

BE 

1 

2  C 

3  C 

BESSEL  EVALUATES  THE  ZERO-ORDER  BESSEL  FUNCTION  AND  ITS  DERIVATIVE 

BE 

BE 

2 

3 

# 

4  C 

FOR  COMPLEX  ARGUMENT  Z. 

BE 

4 

5  C 

BE 

5 

6 

COMPLEX  JO , JOP , POZ , PI Z , QOZ , Q1 Z ,Z , ZI , ZI2 , ZK , F  J , CZ , SZ , JOX , JOPX 

BE 

6 

7 

DIMENSION  M( 1 01 ) ,  A1(25).  A2(25).  FJX(2) 

BE 

7 

8 

EQUIVALENCE  (FJ.FJX) 

BE 

8 

9 

DATA  PI. C3.P10.P20, 010, 020/3. 141592654. .7978845608, .0703125, .11215 

BE 

9 

10 

1 20996 ..125,. 073242 1 875/ 

8E 

10 

11 

DATA  P11 ,P21 .011 .021/. 11 71 875,. 1441 955566, . 375 1 025390625/ 

BE 

1 1 

12 

DATA  POF, INIT/. 7853981635, 0/, FJX/O., 1 ./ 

BE 

12 

13 

IF  (INIT.EQ.O)  GO  TO  5 

BE 

13 

14  1 

ZMS=Z*CONJG(Z) 

BE 

14 

15 

IF  (ZMS.GT.1 .E-12)  GO  TO  2 

BE 

15 

16 

J0=(1 ..0.) 

BE 

16 

17 

J0P=-.5*Z 

BE 

17 

18 

RETURN 

BE 

18 

19  2 

IB=0 

BE 

19 

20 

IF  (ZMS.GT.37.21 )  GO  TO  4 

BE 

20 

21 

IF  (ZMS.GT.36.)  IB=1 

BE 

21 

22  C 

SERIES  EXPANSION 

BE 

22 

23 

IZ=1 .+ZMS 

BE 

23 

24 

MIZ=M(IZ) 

BE 

24 

25 

J0=(1 . .0. ) 

BE 

25 

26 

JOPsJO 

BE 

26 

27 

ZK=JO 

BE 

27 

28 

ZI=Z*Z 

BE 

28 

29 

DO  3  K=1  ,  MIZ 

BE 

29 

30 

ZK=ZK*A1 (K) *ZI 

BE 

30 

31 

JO=JO+ZK 

BE 

31 

32  3 

J0P=J0P+A2(K)*ZK 

BE 

32 

33 

J0P=- .  5*Z* JOP 

BE 

33 

34 

IF  (IB.EQ.O)  RETURN 

BE 

34 

VirP 

35 

J0X=J0 

BE 

35 

36 

JOPX=JOP 

BE 

36 

37  C 

ASYMPTOTIC  EXPANSION 

BE 

37 

38  4 

ZI=1 ./Z 

BE 

38 

39 

ZI2=ZI*ZI 

8E 

39 

40 

P0Z=1 .+(P20*ZI2-P10)*ZI2 

BE 

40 

41 

P1Z=1 .+(P11-P21*ZI2)*ZI2 

BE 

41 

42 

Q0Z=(Q20*ZI2-Q1 0 )  *ZI 

BE 

42 

43 

01 Z=(Q1 1-021 *ZI2)»ZI 

BE 

43 

44 

ZK=CEXP(FJ*(Z-POF)) 

BE 

44 

45 

ZI2~1 ./ZK 

BE 

45 

46 

CZ-. 5*(ZK+ZI2) 

BE 

46 

47 

SZ=FJ*.5*(ZI2-ZK) 

BE 

47 

48 

ZK=C3*CSQRT(ZI) 

BE 

48 

• 

49 

J0=ZK»(P0Z»CZ-Q0Z»SZ) 

BE 

49 

50 

J  OP=-ZK  •  (  P 1 Z  •  SZ-K}  1 Z  •  CZ  ) 

BE 

50 

51 

IF  (IB.EQ.O)  RETURN 

BE 

51 

52 

ZMS=COS((SQRT(ZMS)-6.)*3l .41592654) 

BE 

52 

53 

J0=.5*(J0X*(1 .+ZMS)+J0*(1 . -ZMS ) ) 

BE 

53 

54 

J0P=.5*( J0PX»(1 .+ZMS)+J0P*(1 .-ZMS)) 

6E 

54 

55 

RETURN 

8E 

55 

56  C 

INITIALIZATION  OF  CONSTANTS 

BE 

56 

57  5 

DO  6  K=1  ,25 

BE 

57 

58 

A1(K)=-.25/(K»K) 

BE 

58 

59  6 

A2(K)=1 ./(K+1 .) 

BE 

59 

60 

DO  8  1=1.101 

BE 

60 

61 

TEST*1 . 

BE 

61 

62 

DO  7  K=1 ,24 

BE 

62 

63 

INIT=K 

BE 

63 

64 

TEST=-TEST*I«A1(K) 

BE 

64 

Ay 
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IF  (TEST. LT . 1 . E-6)  GO  TO  8 

CONTINUE 

M(I)sINIT 

GO  TO  1 

END 


BE  65 
BE  66 
BE  67 
BE  68 
BE  69- 
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EVLUA 

PURPOSE 

To  control  the  evaluation  of  the  Sonunerfeld  integrals. 

METHOD 

The  integration  contour  of  either  Figures  13,  14  or  15  of  Part  I  is  used 
depending  on  the  values  of  p,  Z  +  Z'  and  k^.  Figures  13,  14,  and  15 
should  be  inverted,  however,  since  they  are  for  a  time  dependence  of  exp(jwt) 
and  the  coding  for  the  Sonunerfeld  integrals  is  for  exp(-ju>t).  Thus  the 
contours  and  branch  cuts  in  EVALUA  are  the  conjugate  of  those  shown.  The 
conjugate  of  the  results  is  taken  at  the  end  of  EVLUA  to  conform  to  the  NEC 
time  dependence  of  exp(jwt). 

The  code  from  EV  19  to  EV  34  evaluates  the  Bessel  function  form  of  the 
Sonunerfeld  integrals  using  the  contour  of  Figure  13  of  Part  I.  ROMl  is  called 
to  integrate  from  A  *  0  to  (p  -  jp)  and  GSHANK  is  called  for  the  path  from 
(p  -  jp)  to  infinity  where  p~^  is  the  maximum  of  p  and  Z  +  Z'  (p  =  DEL). 

If  p  is  greater  than  100. Ik^ I  then  ROMl  is  called  for  the  interval  0  to 

( p^  -  jp^)  where  p^  *  lOlk^l.  This  is  done  to  avoid  exceeding  the 

limit  by  which  ROMl  can  cut  the  interval  width.  Larger  steps  can  then  be  used 

from  ( p^  -  j p^)  to  (p  -  jp)  since  ss  72  ~ 

The  code  from  EV  39  to  EV  86  evaluates  the  Hankel  function  form  of  the 
integrals  using  either  the  contour  of  Figure  14  or  15.  At  EV  50  SUM  is  the 
negative  of  the  integral  from  a*  to  c*.  GSHANK  is  then  called  to  integrate 
from  a*  to  -00.  The  decision  whether  to  use  the  contour  of  Figures  14  or  15 
is  made  from  EV  58  to  EV  64.  Figure  15  is  used  if  the  real  part  of  p(k^  -  k^) 
exceeds  2k2  and 

-u  >  4p 
I v I  Z+Z' 

where  u  +  jv  a  [ — ( Z  +  Z')  +  jp][d*  -  c*]  is  the  argument  of  the  exponential 
function  approximating  the  Somraerfeld  integrand  for  large  A  with  A  =  d*  - 
c*.  The  left  side  of  the  inequality  is  proportional  to  the  decay  per  cycle 
along  the  c  to  d  path  and  p/(Z  +  Z1)  is  the  same  for  the  vertical  path. 

This  condition  was  chosen  arbitrarily  but  gives  some  indication  of  when  the 
contour  of  Figure  16  may  be  advantageous. 
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For  che  contour  of  Figure  15  GSHANK  is  called  to  integrate  from  e*  to 
infinity.  R0M1  is  Chen  called  from  e*  to  f*.  The  sign  of  the  contribution 
from  other  parts  of  the  path  is  switched  since  they  were  integrated  in  reverse 
direction.  Finally,  GSHANK  is  called  for  the  paths  from  c*  to  infinity  and  f* 
to  infinity. 

For  the  contour  of  Figure  14  (GS  79  to  GS  86)  GSHANK  is  called  to 
integrate  from  c*  to  d*  and  on  to  infinity.  The  increment  changes  from  DELTA 
to  DELTA2  if  d*  is  reached  before  the  integral  converges. 

From  EV  89  to  EV  92  the  integrals  are  combined  to  form  the  field 
components  and  the  conjugates  are  taken. 


SYMBOL  DICTIONARY 


A 

3 

start  of  integration  interval 

ANS 

3 

temporary  storage 

B 

3 

end  of  integration  interval 

BK 

3 

break  point  (d*)  in  path  for  i 

CK1 

3 

kL 

CK.1SQ 

- 

CK2 

3 

k2 

CR2SQ 

3 

k2 

2 

CPI 

3 

a* 

CP2 

- 

'  b* 

CP3 

3 

c* 

DEL 

3 

P 

DELTA 

- 

increment  along  path 

DELTA2 

3 

alternate  increment 

EPH 

3 

(see  SOMNEC) 

ERH 

3 

(see  SOMNEC) 

ERV 

3 

(see  SOMNEC) 

EZV 

3 

(see  SOMNEC) 

JH 

3 

0  for  Bessel  function  form,  1 

PTP 

3 

0.21T 

RH0 

3 

P 
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UMIS 

3 

temporary  storage 

SLOPE 

3 

slope  of  paths  to  infinity 

SUM 

3 

temporary  storage 

TKMAG 

■ 

100lk1l 

ZPH 

* 

L  +  Z' 
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1  SUBROUTINE  EVLUA  ( ERV . EZV , ERH . EPH)  EV  1 

2  C  EV  2 

3  C  EVALUA  CONTROLS  THE  INTEGRATION  CONTOUR  IN  THE  COMPLEX  LAMBDA  EV  3 

4  C  PLANE  FOR  EVALUATION  OF  THE  SOMMERFELD  INTEGRALS.  EV  4 

5  C  EV  5 

6  COMPLEX  ERV.EZV. ERH. EPH, A. B.CK1 ,CK1 SQ . BK , SUM . DELTA. ANS.DELTA2, CPI ,  EV  6 

7  1CP2.CP3.CKSM.CT1 .CT2.CT3  EV  7 

8  COMMON  /CNTOUR/  A.B  EV  8 

9  COMMON  /EVLCOM/  CKSM.CT1 .CT2.CT3.CK1 ,CK ISO. CK2 . CK2SQ . TKMAG , TSMAG ,C  EV  9 

10  1K1R.ZPH.RH0, JH  EV  10 

11  DIMENSION  SUM(6) ,  ANS(6)  EV  11 

12  DATA  PTP/. 6283 185308/  EV  12 

13  DEL=ZPH  EV  13 

14  IF  (RHO.GT.DEL)  DEL=RHO  EV  14 

15  IF  (ZPH . LT . 2 . *RHO)  GO  TO  4  EV  15 

16  C  EV  16 

17  C  BESSEL  FUNCTION  FORM  OF  SOMMERFELD  INTEGRALS  EV  17 

18  C  EV  18 

19  JH=0  EV  19 

20  A=(0.,0.)  EV  20 

21  DEL=1./DEL  EV  21 

22  IF  (DEL. LE. TKMAG)  GO  TO  2  EV  22 

23  B=CMPLX (.1* TKMAG. -.1* TKMAG)  EV  23 

24  CALL  R0M1  (6, SUM. 2)  EV  24 

25  A=B  EV  25 

26  B=CMPLX(DEL ,-DEL)  EV  26 

27  CALL  R0M1  (6.ANS.2)  EV  27 

28  DO  1  1=1,6  EV  28 

29  1  SUM( I )=SUM( I )+ANS( I )  EV  29 

30  GO  TO  3  EV  30 

31  2  *B=CMPLX(DEL ,-DEL)  EV  31 

32  CALL  R0M1  (6. SUM, 2)  EV  32 

33  3  DELTA=PTP*DEL  EV  33 

34  CALL  GSHANK  ( B , DELTA . ANS , 6 , SUM , 0 , B . B)  *  EV  34 

35  GO  TO  10  EV  35 

36  C  EV  36 

37  C  HANKEL  FUNCTION  FORM  OF  SOMMERFELD  INTEGRALS  EV  37 

38  C  EV  38 

39  4  JH=1  EV  39 

40  CPI =CMPLX(0 . , . 4*CK2)  EV  40 

41  CP2=CMPLX( . 6*CK2 .— . 2*CK2)  EV  41 

42  CP3=CMPLX( 1 .02*CK2.-.2*CK2)  EV  42 

43  A=CP1  EV  43 

44  B=CP2  EV  44 

45  CALL  R0M1  (6. SUM, 2)  EV  45 

46  A=CP2  EV  46 

47  B=CP3  EV  47 

48  CALL  R0M1  (6. ANS, 2)  EV  48 

49  DO  5  1=1  .6  EV  49 

50  5  SUM(I)=-(SUM(I)+ANS(I))  EV  50 

51  C  PATH  FROM  IMAGINARY  AXIS  TO  -INFINITY  EV  51 

52  SL0PE=1 000 .  EV  52 

53  IF  (ZPH.GT. .001 »RHO)  SL0PE=RH0/ZPH  EV  53 

54  DEL=PTP/DEL  EV  54 

55  0ELTA=CMPLX(-1 . ,SLOPE)*DEL/SQRT( 1 .+SL0PE*SL0PE)  EV  55 

56  DELTA2=-C0NJG( DELTA)  EV  56 

57  CALL  GSHANK  (CPI .DELTA, ANS, 6. SUM, O.BK.BK)  EV  57 

58  RMIS=RH0*(REAL(CK1 )-CK2)  EV  58 

59  IF  (RMIS .  LT .  2 .  *CK2)  GO  TO  8  EV  59 

60  IF  (RH0.LT.1 .E-10)  GO  TO  8  EV  60 

61  IF  (ZPH. LT. 1 .E-10)  GO  TO  6  EV  61 

62  BK=CMPLX( -ZPH . RHO) »(CK1 -CP3)  EV  62 

63  RMIS=-REAL(BK)/ABS(AIMAG(BK) )  EV  63 

64  IF( RMIS . GT . 4 . ‘RHO/ZPH )G0  TO  8  EV  64 


EVLUA 


as 

C 

INTEGRATE  UP  BETWEEN  BRANCH  CUTS,  THEN  TO  +  INFINITY 

EV 

65 

66 

6 

CP1=CK1-(.1  . .2) 

EV 

66 

67 

CP2=CP1+. 2 

EV 

67 

68 

BK=CMPLX(0. .DEL) 

EV 

68 

69 

CALL  GSHANK  (CPI  . BK , SUM . 6 , ANS , 0 , BK , 8K) 

EV 

69 

70 

A=CP1 

EV 

70 

71 

B=CP2 

EV 

71 

72 

CALL  R0M1  (6.ANS.1) 

EV 

72 

73 

00  7  1=1 ,6 

EV 

73 

74 

7 

ANS(I)=ANS(I)— SUM(I) 

EV 

74 

75 

CALL  GSHANK  (CP3 . BK . SUM . 6 . ANS . 0 . BK , BK) 

EV 

75 

76 

CALL  GSHANK  (CP2 . DELTA2 , ANS , 6 , SUM. 0 , BK , BK) 

EV 

76 

77 

GO  TO  10 

EV 

77 

78 

C 

INTEGRATE  BELOW  BRANCH  POINTS,  THEN  TO  4  INFINITY 

EV 

78 

79 

8 

00  9  1=1,6 

EV 

79 

80 

9 

SUM(I)=-ANS(I) 

EV 

80 

81 

RMIS=REAL(CK1 )*1 .01 

EV 

81 

82 

IF  (CK2+1 . .GT.RMIS)  RMIS=CK2+1 . 

EV 

82 

83 

BX=CMPLX(RMIS , . 99*AIMAG(CK1 ) ) 

EV 

83 

84 

DELTA=BK-CP3 

EV 

84 

85 

OELTA=OELTA»DEL/CABS(DELTA) 

EV 

85 

86 

CALL  GSHANK  (CP3 , DELTA , ANS . 6 .SUM , 1 , BK , DELTA2) 

EV 

86 

87 

10 

ANS(6)=ANS(6)*CK1 

EV 

87 

88 

C 

CONJUGATE  SINCE  NEC  USES  EXP(+JWT) 

EV 

88 

89 

ERV=CON JG(CK1 SQ*ANS(3) ) 

EV 

89 

90 

EZV=CON JG(CK1 SO* ( ANS(2)+CK2SQ*ANS( 5) ) ) 

EV 

90 

91 

ERH=CON JG( CK2SQ* ( ANS ( 1 ) +ANS ( 6 ) ) ) 

EV 

91 

92 

EPH=-C0NJG(CK2SQ* ( ANS( 4)+ANS( 6) ) ) 

EV 

92 

93 

RETURN 

EV 

93 

94 

ENO 

EV 

94- 
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G  SHANK  ! 

m 

PURPOSE 

To  apply  Che  Shanks  CransformaCion  (ref.  6)  Co  acceleraCe  Che 
convergence  of  a  semi-inf inice  inCegral. 

I 

I 

METHOD 

Six  inCegrals  (NANS  *  6)  are  evaluaCed  simulCaneously  in  Chis  roucine. 

The  inCegrals  over  semi-inf inice  secCions  of  Che  conCours  (Figures  13,  14  and 
15  of  Pare  I)  are  evaluaCed  by  using  Che  Romberg  variable  interval,  width 
integration  method  on  subsections  Co  obtain  a  converging  sequence  of  partial 
sums 


4 ' 4  -I  " 


A„+iA 


f(X)dX 


i  -  1,  2, 


where  A^  is  the  start  of  Che  semi-infinite  path,  S^  is  the  contribution 
from  ocher  parts  of  the  contour  and  &  is  a  complex  increment  with 


1 A I  =  minimum  of 


I0.21T/P 


Lo.  2TT/(Z  +  Z’) 

arg(A)  ■  direction  of  integration  path  in  X-plane 


The  Shanks  interated  first  order  transformation  is  applied  to  S^  to 
accelerate  convergence.  Starting  with  the  sequence  of  M  elements 

Q.  -  *S.  ,  i  ■  1,  ...M  the  jCtl  iterated  transform  is  the  sequence  of 

1  }  v  X 

M  -  2j  elements 


Qi-l,j-iqi+l.j-l 


Vi.j-1 + 


Q; 


i+l.j-1 


izL_ 

.  j-i 


0 
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o  (Q  Q  _ 

Vl.i-l  Vl.j-1  *  Vl.j-l  '  2Qi,j-l 


i  •  j  ♦  l,  ...M-j 

j  -  1,  ...  [CM  -  0/2] . 


The  second  form  for  Q.  .  is  used  since  it  suffers  less  numerical  error  as 

*■>  J 

the  sequence  converges.  Each  iteration  of  the  transform  should  produce  a 
sequence  that  converges  more  rapidly  to  the  limit  of  the  original  sequence. 

In  this  subroutine  the  starting  value  S^  comes  in  as  SEED.  With  each 
pass  through  the  loop  over  INT,  starting  at  GS  21,  two  new  values  are  added  to 
the  sequence  by  calling  KOMI  to  evaluate  the  integrals 


S2N-1 


S2N-2 


♦ 


+(2N-1)A 

2N-2)A 


f ( X)dX 


S 


2N 


/Aq+(  2N)  A 

fU>d* 

aq+( 2N-1) A 


where  N  -  INT.  The  (N  -  l)th  interated  Shanks  transformation,  consisting  of 
the  two  elements  and  QN+1  N_i»  is  then  computed.  At  the  end  of 

each  pass  through  the  loop  over  INT  the  arrays  Ql  and  Q2  contain  the  last  two 
elements  in  each  sequence.  For  function  I, 


Q1(I,J)  -  Q2N-J,J-1 

Q2(I,J)  -  Q2n_j+l>j_i  .  J-l,  ...N. 

For  the  path  from  c  to  infinity  in  Figure  14  of  Part  I  the  point  d  is  a 
break  point  at  which  A  may  change.  If  d  is  reached  before  convergence  the 
Shanks  transformation  is  started  over  with  the  final  value  of  S^  becoming 
Sq  for  the  new  sequence. 


GSHANK 


Convergence  is  tesced  from  GS  78  Co  GS  89  by  comparing  Che  lasc  Cwo 
values  in  Che  cransformed  sequences.  ALchough  che  Lasc  sequence,  consiscing 
of  cwo  elemenCs,  should  have  Che  highesc  convergence  che  lasc  four  sequences 
are  cesced  co  avoid  a  false  indicacion  of  convergence.  The  relacive 
difference  is  compuced  for  each  of  Che  six  funcCions  and  compared  wicn  CRIT. 
If  convergence  does  noc  occur  by  INT  *  MAXH  a  message  is  princed  and  che 
average  of  che  Cwo  values  in  Che  lasc  sequence  is  used  for  eacn  incegral.  In 
compuCing  Che  relacive  difference  for  each  funccion  che  denominaCor  is  noC 

_3 

allowed  Co  be  less  Chan  10  cimes  che  magnicude  of  Che  largesc  of  che  six 
funcCions  Co  avoid  convergence  problems  when  one  funccion  goes  Co  zero. 

SYMBOL  DICTIONARY 


beginning  of  inCegracion  subincerval 

new  value  for  Q1  array 

new  value  for  Q2  array 

cemporary  storage 

approximate  magnitude  of  funccion 

S.  for  i  odd 

S£  for  i  even 

St  for  i  odd 

Si  for  i  even 

end  of  integration  subincerval 

break  poinc  in  inCegracion  contour 

Limit:  for  relacive  error  in  convergence  cesc 

A 

A  before  break  poinc 
A  after  break  point 

approximate  magnicude  of  Che  largesc  of  Che  six  functions 
(GS  76) 

minimum  denominator  for  relacive  error  cest 
1  if  pach  contains  break  poinc 

0  if  pach  contains  break  poinc  and  ic  has  not  been  passed 


DENM 
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INX 

JM 

MAXH 


-  INT 

-  J  -  1 

*  maximum  for  index  J  in  Q1  and  Q2 
NANS  *  number  of  functions  (6) 

Ql,  Q2  ■  (see  description  of  method) 

RBK  *  real  part  of  BK 

SEED  -  SQ 

START  -  Aq 

SUM  ■  increment  to  integral 


GSHANK 


SUBROUTINE  GSHANK  (START . DELA .SUM. NANS .SEED , IBK . BK , DELS) 


GSHANK  INTEGRATES  THE  6  SOMMERFELD  INTEGRALS  FROM  START  TO 
INFINITY  (UNTIL  CONVERGENCE)  IN  LAMBDA.  AT  THE  BREAK  POINT,  BK, 
THE  STEP  INCREMENT  MAY  BE  CHANGED  FROM  DELA  TO  DELS.  SHANK  S 
ALGORITHM  TO  ACCELERATE  CONVERGENCE  OF  A  SLOWLY  CONVERGING  SERIES 
IS  USED 


10 

1AS2.DEL.AA 

GS 

10 

11 

COMMON  /CNTOUR/  A.B 

GS 

1 1 

12 

DIMENSION  01(6,20),  02(6,20),  ANS1(6),  ANS2(6),  SUM(6),  SEED(6) 

GS 

12 

13 

DATA  CRIT/1 . E-4/.MAXH/20/ 

GS 

13 

14 

RBK=REAL(BK) 

GS 

14 

15 

OEL=OELA 

GS 

15 

16 

IBX=0 

GS 

16 

17 

IF  (IBK.EO.O)  IBX=1 

GS 

17 

IS 

DO  1  1=1 .NANS 

GS 

18 

19  1 

ANS2(I)=SEED(I) 

GS 

19 

20 

B=START 

GS 

20 

21  2 

DO  20  INTsI ,MAXH 

GS 

21 

22 

INX=INT 

GS 

22 

23 

A =8 

GS 

23 

24 

B=B+DEL 

GS 

24 

25 

IF  (IBX.EQ.O.ANO.REAL(B) .GE.RBK)  GO  TO  5 

GS 

25 

26 

CALL  R0M1  (NANS. SUM. 2) 

GS 

26 

27 

DO  3  1=1 .NANS 

GS 

27 

28  3 

ANSI  (I)=ANS2(I)+SUM(I) 

GS 

28 

29 

A=B 

GS 

29 

30 

B=B+D£L 

GS 

30 

31 

IF  (IBX.EQ.O. AND. REAL(B). GE.RBK)  GO  TO  6 

GS 

31 

32 

CALL  R0M1  (NANS, SUM, 2) 

GS 

32 

33 

DO  4  1=1 .NANS 

GS 

33 

34  4 

ANS2(I)=ANS1 (I)+SUM(I) 

GS 

34 

35 

GO  TO  11 

GS 

35 

36  C 

HIT  BREAK  POINT.  RESET  SEED  AND  START  OVER. 

GS 

36 

37  5 

IBX=1 

GS 

37 

38 

GO  TO  7 

GS 

38 

39  6 

IBX=2 

GS 

39 

40  7 

B=8K 

GS 

40 

41 

DEL=OELB 

GS 

41 

42 

CALL  R0M1  (NANS. SUM. 2) 

GS 

42 

43 

IF  (IBX.EQ.2)  GO  TO  9 

GS 

43 

44 

DO  8  1=1 .NANS 

GS 

44 

45  8 

ANS2(I)=ANS2(I)+SUM(I) 

GS 

45 

46 

GO  TO  2 

GS 

46 

47  9 

DO  10  1=1 .NANS 

GS 

47 

48  10 

ANS2  ( I )  =ANS  1(1)  +SUM  ( I ), 

GS 

48 

49 

GO  TO  2 

GS 

49 

50  11 

0EN=0 . 

GS 

50 

51 

DO  18  1=1 .NANS 

GS 

51 

52 

AS1=ANS1 (I) 

GS 

52 

53 

AS2=ANS2(I) 

GS 

53 

54 

IF  (INT.LT.2)  GO  TO  17 

GS 

54 

55 

DO  16  J=2 , INT 

GS 

55 

56 

JM=J— 1 

GS 

56 

57 

AA=Q2(I , JM) 

GS 

57 

58 

A 1 =Q1 ( I , JM)+AS1— 2 . *AA 

GS 

58 

59 

IF  (REAL(A1 ) . EQ.O . . AND. AIMAG(A1 ) . EQ . 0 . )  GO  TO  12 

GS 

59 

60 

A2=AA-Q 1 ( I , J  M ) 

GS 

60 

61 

A  1=01 ( I , JM)— A2*A2/A 1 

GS 

61 

62 

GO  TO  13 

GS 

62 

63  12 

A1 =Q1 (I , JM) 

GS 

63 

64  13 

A2=AA+AS2-2 . • AS  1 

GS 

64 
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«s 

IF  (REAL(A2) . EQ.O . . AND. AIMAG(A2) . EQ . 0 . )  GO  TO  14 

GS 

65 

66 

A2*AA-( AS 1 -AA ) • ( AS 1 -AA ) /A2 

GS 

66 

67 

GO  TO  15 

GS 

67 

66  14 

A2=AA 

GS 

68 

69  IS 

Q1(I,JM)*AS1 

GS 

69 

70 

02(1, JM)=AS2 

GS 

70 

71 

AS1*A1 

GS 

71 

72  16 

AS2«A2 

GS 

72 

73  17 

Q1(I,INT)=AS1 

GS 

73 

74 

Q2(I.INT)=AS2 

GS 

74 

73 

AMG=ABS ( REAL ( AS2 ) )+ABS( AIMAG( AS2 ) ) 

GS 

75 

76 

IF  (AMG.GT.OEN)  DEN=AMG 

GS 

76 

77  18 

CONTINUE 

GS 

77 

78 

DENM=1 . E-3*DEN*CRIT 

GS 

78 

79 

JM*INT-3 

GS 

79 

80 

IF  (JM.LT.1 )  JM=t 

GS 

80 

81 

OO  19  JaJM.INT 

GS 

81 

82 

DO  19  1=1 .NANS 

GS 

82 

83 

A1=02(I. J) 

GS 

83 

84 

D  EN= ( ABS ( R  E A  L ( A 1 ) )+ABS( AIMAG( A1 ) ) )*CRIT 

GS 

84 

85 

IF  (DEN.LT.OENM)  DEN=DENM 

GS 

85 

86 

A1=Q1(I.J)-A1 

GS 

86 

87 

AMG=ABS(REAL(A1 ) )+ABS(AIMAG( A1 ) ) 

GS 

87 

88 

IF  (AMG.GT.OEN)  GO  TO  20 

GS 

88 

89  19 

CONTINUE 

GS 

89 

90 

GO  TO  22 

GS 

90 

91  20 

CONTINUE 

GS 

91 

92 

PRINT  24 

GS 

92 

93 

DO  21  1=1 .NANS 

GS 

93 

94  21 

PRINT  25,  Q1 ( I , INX) , Q2( I , INX) 

GS 

94 

95  22 

DO  23  1=1. NANS 

GS 

95 

96  23 

SUM( I)=. 5*(Qf ( I . INX)+Q2(I , INX ) ) 

GS 

96 

97 

RETURN 

GS 

97 

98  C 

GS 

98 

99  24 

FORMAT  (46H  ••••  NO  CONVERGENCE  IN  SUBROUTINE  GSHANK  ••••) 

GS 

99 

100  25 

FORMAT  (10E12.5) 

GS 

100 

101 

END 

GS 

101- 
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METHOD 

For  argument  magnitudes  less  than  a  limit  Z&  the  functions  are 
evaluated  by  the  ascending  series  and  for  larger  magnitudes  by  Hankel' s 
asymptotic  expansion  (ref.  5).  The  series  are 


HANKEL 

PURPOSE 

To  compute  the  Hankel  function  of  the  first  kind,  zeroth  order,  and  its 
derivative  for  a  complex  argument. 


Yq(Z)  -  ~  ln(Z/2) JQ(Z) 


00 


t 2 

k“0 


(-Z2/4)k 

(k'.)2 


*  it  S 


where  i|<(k+l) 


k-0 


+  \Kk+2)] 


2  k 
(-Z74)K 

k.'(k+l).' 


Kl)  -  -Y, 

Y  »  Euler's  constant  ■  0.5772156649 


The  Hankel  functions  are 


Hq°(Z)  -  JQ(Z)  +  j  YQ(Z) 
Hq1)'(Z)  =■  Jq(Z)  +  j  Yg(Z) 


The  series  for  Jq(Z)  and  Jg(Z)  are  given  in  the  description  of  subroutine 
BESSEL.  The  number  of  terms  used  with  an  argument  Z  is  M(IZ)  where  IZ  =  1.  +  IZI^. 

The  array  M  is  filled  for  IZ  from  1  to  101  on  the  first  call  to  HANKEL  by 
determining  the  value  of  k  at  which  the  term  in  the  series  of  YQ  is  less 

than  10 

$ 
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HANKEL 

used  wich  two  or  tnree  terms.  These  are 


tfhen  Izl  is  greater  than  Zg  Hankel's  asymptotic  expansions  are 


Hv1)(z)  [PC V,Z)  +  jQ( v,z)  ]e^x 


x  -  z  -  (-JV  +  £)n 

P(v,Z)  and  Q(v,Z)  are  given  in  the  description  of  subroutine  BESSEL. 

When  Z  <  IZ I  <  Z  +  A  both  the  series  and  asymptotic  forms  are 
evaluated  and  are  combined  as  in  BESSEL  to  eliminate  any  discontinity .  In 
HANKEL  Zg  is  4  and  A  is  0.1. 

SYMBOL  DICTIONARY 


Al 

-  -1. /(4k2) 

A2 

-  1. /(k+1) 

A3 

-  2H»(k+l) 

A4 

-  [<Kk+l)  +  H>U+2)]/(k+l) 

Cl 

-  l¥(l)  ♦  V(2)J/(2lt) 

C2 

-  2Y/TT- 

C3 

-  /Tpn 

CLOGZ 

-  ln(Z) 

FJ 

-  J=l 

FJX 

*  FJ 

GAMMA 

-  Y 

HO 

-  H(0l)(Z) 

HOP 

-  H(0U’(Z) 

IB 

*  1  to  indicate  that  both  the  series  and 

evaluated  and  combined 

INIT 

*  flag  to  indicate  that  initialization  o 

completed 

IZ 

«  1.  ♦  IZ  1 2 

JO 

-  yz> 

JOP 

-  yz> 

o 
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1 

SUBROUTINE  HANKEL  (Z, HO. HOP) 

HA 

1 

2  C 

HA 

2 

3  C 

HANKEL  EVALUATES  HANKEL  FUNCTION  OF  THE  FIRST  KIND.  OROER  ZERO. 

HA 

3 

*  C 

AND  ITS  DERIVATIVE  FOR  COMPLEX  ARGUMENT  Z. 

HA 

4 

5  C 

HA 

5 

6 

COMPLEX  CLOGZ . HO . HOP , JO . JOP . POZ , PI Z . OOZ . 01 Z . YO . YOP , Z . ZI . ZI2 . ZK . F J 

HA 

6 

7 

DIMENSION  M( 1 01 ) ,  A1(25).  A2(25) ,  A3(25),  A4(25).  FJX(2) 

HA 

7 

8 

EQUIVALENCE  (FJ.FJX) 

HA 

8 

9 

DATA  PI. GAMMA, Cl ,C2 ,C3 . PI 0 . P20/3 . 1 41 592654 . . 57721 56649 024578509 

HA 

9 

10 

15.. 3674669052 . . 7978845608 , . 07031 25 1 1 21 520996/ 

HA 

10 

1 1 

DATA  Q10.Q20.P1 1 . P21 ,Q1 1 . Q21/. 1 25 . . 0732421 875 . . 1 1 71 875 .. 1 441 955566 

HA 

1 1 

12 

1 . .375.-1025390625/ 

HA 

12 

13 

DATA  POF.INIT/. 7853981 635, O/.FJX/O. ,1 ./ 

HA 

13 

14 

IF  (INIT.EQ.O)  GO  TO  5 

HA 

14 

15  1 

ZMS=Z*CONJG(Z) 

HA 

15 

16 

IF  (ZMS.NE.O.)  GO  TO  2 

HA 

16 

17 

PRINT  9 

HA 

17 

18 

STOP 

HA 

18 

19  2 

IB=0 

HA 

19 

20 

IF  (ZMS.GT. 16.81 )  GO  TO  4 

HA 

20 

21 

IF  (ZMS.GT. 16.)  18=1 

HA 

21 

22  C 

SERIES  EXPANSION 

HA 

22 

23 

IZ=1 . +ZMS 

HA 

23 

24 

MIZ=M(IZ) 

HA 

24 

25 

J0=( 1 . .0. ) 

HA 

25 

26 

JOP=JO 

HA 

26 

27 

Y0=(0. .0. ) 

HA 

27 

28 

YOP=YO 

HA 

28 

29 

ZK=JO 

HA 

29 

30 

ZI=Z*Z 

HA 

30 

31 

DO  3  K=1 .MIZ 

HA 

31 

32 

ZK=ZK*A1 (K)*ZI 

HA 

32 

33 

JO=JO+ZK 

HA 

33 

34 

J0P=J0P+A2(K)*ZK 

HA 

34 

35 

Y0=Y0+A3(K)*ZK 

HA 

35 

36  3 

Y0P=Y0P+A4(K)»ZK 

HA 

36 

37 

JOP=- . 5*Z*  JOP 

HA 

37 

38 

CLOGZ=CLOG( .5*Z) 

HA 

38 

39 

Y0=(  2 .  • JO*CLOGZ-YO )/PI+C2 

HA 

39 

40 

YOP=( 2 ./Z+2 . • JOP*CLOGZ+ .5*Y0P*Z)/PI+C1*Z 

HA 

40 

41 

H0=J0+FJ*Y0 

HA 

41 

42 

H0P=J0P+FJ«Y0P 

HA 

42 

43 

IF  (IB.EO.O)  RETURN 

HA 

43 

44 

YO=HO 

HA 

44 

45 

YOP=HOP 

HA 

45 

46  C 

ASYMPTOTIC  EXPANSION 

HA 

46 

47  4 

ZI=1 ./Z 

HA 

47 

48 

ZI2=ZI*ZI 

HA 

48 

49 

P0Z=1 . +(P20*ZI2-P1 0)*ZI2 

HA 

49 

50 

P1Z=1 .+(P1 1-P21 »ZI2)*ZI2 

HA 

50 

51 

Q0Z=(Q20*ZI2-Q1 0) *ZI 

HA 

51 

52 

01 Z=(Q1 1-Q21 *ZI2)*ZI 

HA 

52 

53 

ZK=CEXP( F  J* (Z-POF ) ) ’CSQRT ( ZI) *C3 

HA 

53 

54 

HO=ZK*(POZ+FJ»QOZ) 

HA 

54 

55 

H0P=FJ»ZK»(P1Z+FJ»Q1Z) 

HA 

55 

56 

IF  (IB.EQ.O)  RETURN 

HA 

56 

57 

ZMS=C0S((SQRT(ZMS)-4. )»31 .41592654) 

HA 

57 

58 

H0= . 5* ( YO* ( 1 . +ZMS)+HO* ( 1 .-ZMS)) 

HA 

58 

59 

HOP= . 5* ( YOP* ( 1 .+ZMS)+H0P*(1 .-ZMS)) 

HA 

59 

60 

RETURN 

HA 

60 

61  C 

INITIALIZATION  OF  CONSTANTS 

HA 

61 

62  5 

PSI=— GAMMA 

HA 

62 

63 

DO  6  K=1 .25 

HA 

63 

64 

A1 ( K )=— . 25/( K*K ) 

HA 

64 

HANKEL 


65 

A2(K)=1 ./( K+1 .) 

HA 

65 

66 

PSI=PSI+1 ./K 

HA 

66 

67 

A3(K)=PSI+PSI 

HA 

67 

68 

6 

A4(K)=(PSI+PSI+1 ./(K+1 . ) )/(K+1 .) 

HA 

68 

69 

00  8  1=1,101 

HA 

69 

70 

TEST=1 . 

HA 

70 

71 

DO  7  K=1 ,24 

HA 

71 

72 

INIT=K 

HA 

72 

73 

TEST=-TEST*I»A1 (K) 

HA 

73 

74 

IF  (TEST*A3(K) .LT. 1 

.  E-6 )  GO  TO  8 

HA 

74 

75 

7 

CONTINUE 

HA 

75 

76 

8 

M(I)=INIT 

HA 

76 

77 

GO  TO  1 

HA 

77 

78 

C 

HA 

78 

79 

9 

FORMAT  (34H  ERROR  - 

HANKEL  NOT  VALID  FOR  Z=0 . ) 

HA 

79 

80 

END 

HA 

80- 

m 
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LAMBDA 


LAMBDA 

PURPOSE 

To  compute  the  complex  value  of  X  from  the  real  integration  parameter 
in  R0M1. 

METHOD 

For  integration  along  a  straight  path  between  the  points  a  and  b  in  the 
X  plane,  X  and  dX  are 

X  =  a  +  (b  -  a)t 

dX  =  (b  -  a)dt 

SYMBOL  DICTIONARY 
A  *  a 

B  -  b 

DXLAM  *  b  -  a 

T  =*  t 

XLAM  =  X 


LAMBDA 


1 


t 

SUBROUTINE  LAMBDA  ( T , XLAM , DXLAM) 

LA 

1 

2 

C 

LA 

2 

3 

c 

COMPUTE  INTEGRATION  PARAMETER  XLAM=LAMBDA  FROM  PARAMETER  T. 

LA 

3 

4 

c 

LA 

4 

5 

COMPLEX  A, B, XLAM, DXLAM 

LA 

5 

6 

COMMON  /CNTOUR/  A , B 

LA 

6 

7 

DXLAM=B-A 

LA 

7 

8 

X  L AM=A+DX  LAM  •  T 

LA 

8 

9 

RETURN 

LA 

9 

10 

END 

LA 

10 

m 
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R0M1 


l  •  <  f'k  |  I  |'f  |  ■  a'l  4 


«»|  |f|  -W  .(I  a\  .<»■.»»  ,»> 


PURPOSE 


To  integrate  the  Soramerfeld  integrands  between  two  points  in  X  by  the 
tthod  of  variable  interval-width  Romberg  integration. 


METHOD 


A  and  B  in  common  block  /CNTOUR/  are  the  ends  of  the  integration  path 
and  are  set  before  R0M1  is  called.  The  integration  parameter  Z  in  R0M1  starts 
at  zero  and  ends  at  one.  The  corresponding  value  of  X  is  determined  by 


subroutine  LAMBDA  as 


X  »  A  +  (B  -  A)Z 


Subroutine  SAQA  returns  six  integrand  values  which  are  handled  simultaneously 
in  loops  throughout  the  code.  The  Romberg  variable  interval-width  integration 
method  will  not  be  described  in  detail  since  it  is  the  same  as  that  used  in 
subroutine  INTX  in  the  main  NEC  program.  The  convergence  test  in  R0M1 
requires  that  all  six  components  satisfy  the  relative  error  tests 
simultaneously. 


£ 


mmu — wbw 

inwiwi 

ROM1 

T 

•* 

— 

i!« 

i 

SUBROUTINE  R0M1  (N, SUM. NX) 

RO 

1 

* 

# 

2  C 

3  C 

R0M1  INTEGRATES  THE  6  SOMMERFELD  INTEGRALS  FROM  A  TO  B  IN  LAMBDA. 

RO 

RO 

2 

3 

$ 

V 

4  C 

THE  METHOD  OF  VARIABLE  INTERVAL  WIDTH  ROMBERG 

INTEGRATION  IS 

USED. 

RO 

4 

5  C 

RO 

5 

- 

6 

COMPLEX  A.B.SUM.G1 ,G2 ,G3 ,G4 , G5 . TOO . T01 . T1 0 , T02 . T1 1 , T20 

RO 

6 

7 

COMMON  /CNTOUR/  A.B 

RO 

7 

•: 

8 

DIMENSION  SUM(6),  G1(6),  G2(6).  G3(6),  G4(6). 

G5(6) ,  T01 (6) , 

T10(6  RO 

8 

9 

1).  T20(6) 

RO 

9 

10 

DATA  NM.NTS ,RX/1 31 072 ,4, 1  .E-4/ 

RO 

10 

11 

LSTEP=0 

RO 

11 

12 

Z=0. 

RO 

12 

44. 

13 

ZE=1  . 

RO 

13 

14 

S=1 . 

RO 

14 

15 

EP=S/(1 .E4*NM) 

RO 

IS 

& 

16 

ZEND=ZE-EP 

RO 

16 

$ 

17 

DO  1  1=1 ,N 

RO 

17 

18  1 

SUM(I)=(0 . ,0 . ) 

RO 

18 

19 

NS=NX 

RO 

19 

T 

20 

NT=0 

RO 

20 

h 

21 

CALL  SAOA  (Z.G1) 

RO 

21 

22  2 

DZ=S/NS 

RO 

22 

!»; 

23 

IF  (Z+DZ.LE.ZE)  GO  TO  3 

RO 

23 

24 

DZ=ZE-Z 

RO 

24 

!< 

25 

IF  (DZ.LE.EP)  GO  TO  17 

RO 

25 

26  3 

DZOT=DZ* .5 

RO 

26 

S" 

27 

CALL  SAOA  (Z+OZOT.G3) 

RO 

27 

28 

CALL  SAOA  ( Z+DZ , G5 ) 

RO 

28 

ft 

29  4 

N0G0=0 

RO 

29 

»‘? 

30 

DO  5  1=1  ,  N 

RO 

30 

• 

31 

TOO=(GT(I)+G5(I))*DZOT 

RO 

31 

f* 

32 

T01 (I)=(T00+0Z*G3(I) )• .5 

RO 

32 

£ 

f§ 

33 

T10(I)=(4.*T01 (I)-T00)/3. 

RO 

33 

1 

34  C 

TEST  CONVERGENCE  OF  3  POINT  ROMBERG  RESULT 

RO 

34 

35 

CALL  TEST  (REAL(T01 (I) ) ,REAL(T10(I) ) , TR , AIMAG( T01 (I) ) , AIMAG( T1 0(1) 

RO 

35 

: 

36 

1 ) ,TI,0. ) 

RO 

36 

* 

37 

IF  (TR.GT.RX.OR.TI.GT.RX)  N0G0=1 

RO 

37 

S’ 

38  5 

CONTINUE 

RO 

38 

39 

IF  (NOGO.NE.O)  GO  TO  7 

RO 

39 

».* 

40 

DO  6  1=1 ,N 

RO 

40 

41  6 

SUM(I)=SUM( I)+T1 0(1) 

RO 

41 

V 

42 

NT=NT+2 

RO 

42 

43 

GO  TO  11 

RO 

43 

44  7 

CALL  SAOA  (Z+DZ*. 25. G2) 

RO 

44 

•: 

45 

CALL  SAOA  (Z+DZ*. 75, G4) 

RO 

45 

46 

N0G0=0 

RO 

46 

47 

DO  8  1=1 ,N 

RO 

47 

km 

48 

T02=( T01 (I)+DZOT* (G2( t)+G4(I) ) ) * . 5 

RO 

48 

«t9 

49 

T 1 1 =(4 . ‘T02-T01 ( I) )/3 . 

RO 

49 

50 

T20(I)=(16.*T11 — T1 0(1) )/1 5 . 

RO 

50 

y.* 

51  C 

TEST  CONVERGENCE  OF  5  POINT  ROMBERG  RESULT 

RO 

51 

52 

CALL  TEST  (REAL(T1 1 ) ,REAL(T20(I) ) ,TR,AIMAG(T1 1 ) . AIMAG( T20( I) ) . TI . 0 

RO 

52 

53 

1.) 

RO 

53 

54 

IF  (TR.GT.RX.OR.TI.GT.RX)  NOGO=1 

RO 

54 

55  8 

CONTINUE 

RO 

55 

*4.  - 

56 

IF  (NOGO.NE.O)  GO  TO  t3 

RO 

56 

57  9 

DO  10  1=1 ,N 

RO 

57 

58  10 

SUM( I )=SUM( I)+T20(  I) 

RO 

58 

59 

NT=NT+1 

RO 

59 

60  11 

Z=Z+DZ 

RO 

60 

61 

IF  (Z.GT.ZENO)  GO  TO  17 

RO 

61 

v&a 

62 

63  12 

DO  12  1=1 ,N 

G1(I)=G5(I) 

RO 

RO 

62 

63 

>■*. — . 

•*)Sr 

64 

IF  (NT.LT.NTS.OR.NS.LE.NX)  GO  TO  2 

RO 

64 
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R0M1 


65 

NS=NS/2 

RO 

65 

66 

NT=1 

RO 

66 

67 

GO  TO  2 

RO 

67 

68 

13 

NT=0 

RO 

68 

69 

IF  (NS.LT.NM)  GO  TO  15 

RO 

69 

70 

IF  (LSTEP.EQ. 1 )  GO  TO  9 

RO 

70 

71 

LSTEP=1 

RO 

71 

72 

CALL  LAMBDA  (Z.T00.T11) 

RO 

72 

73 

PRINT  18.  TOO 

RO 

73 

74 

PRINT  19.  Z.OZ.A.B 

RO 

74 

75 

DO  14  1=1 . N 

RO 

75 

76 

14 

PRINT  19.  G1(I),G2(I).G3(I).G4(I),G5(I) 

RO 

76 

77 

GO  TO  9 

RO 

77 

78 

15 

NS=NS*2 

RO 

78 

79 

DZ=S/NS 

RO 

79 

80 

0Z0T=DZ* . 5 

RO 

80 

81 

DO  16  1=1 , N 

RO 

81 

82 

G5(I)=C3(I) 

RO 

82 

83 

16 

G3(I)=G2(I) 

RO 

83 

84 

GO  TO  4 

RO 

84 

85 

17 

CONTINUE 

RO 

85 

86 

RETURN 

RO 

86 

87 

C 

RO 

87 

88 

18 

FORMAT  (38H  ROM1  —  STEP  SIZE  LIMITED  AT  LAMBDA  =,2E12.5) 

RO 

88 

89 

19 

FORMAT  (10E12.S) 

RO 

89 

90 

ENO 

RO 

90- 
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0 


SAOA 


SAOA 


PURPOSE 

To  compute  the  integrands  for  the  Soraraerfeld  integrals. 

METHOD 

The  input  to  SAOA  is  the  integration  parameter  T  and  constants  in  common 
block  /EVLCOM/.  The  integration  variable  X  corresponding  to  T  is  obtained 
by  calling  subroutine  LAMBDA.  The  values  returned  in  array  ANS  are 


(i)"  -y2(z+z')  , 

ANS(l)  -  D2H0  (Xp)e  A  dX/dT 


2  (1)  “Y-(Z+Z ' ) 

ANS(  2)  *  D^Hj,  '(Ap)e  1  X  dX/dT 


( 1) '  -yAz+V)  2 


ANS(  3)  -  -D2Y2Hq  (Xp)e 


X  dX/dT 


-l  ( i) '  -yAz+z' ) 

ANS(4)  -  p  DzHq  ( Xp)e  L  A  <iA/dT 


ANS( 5)  -  D2Hq  '(Ap)e 


a),,., 


XdX/dT 


A»S(6)  -  k^D^'Up).  4  XdX/dT 


where  D, 


VY2 


Y2(kl+k2) 


k2(VV 


2  2  2  2  2 
klY2+k2Yl  Y2U{+k2) 


Y2(^+k2)(kiY2+k2Yi) 
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Iw.v.vjvv-  auuammmw:  yyjK  wvaw, 


kl  "  k2Ul  "  j°l/wC0) 


w  * 


k2  *  (*/Vo 


The  integrands  given  above  are  computed  when  JH  >0.  When  JH  s  0, 

Hq^(Ap)  is  replaced  by  2Jq(Xp).  The  functions  y^  and  are  computed  from 
SA  24  to  SA  29  so  that  the  branch  cuts  are  vertical.  This  is  not  necessary 
from  SA  17  to  SA  20  since  for  the  Bessel  function  form  the  integration  contour 
is  confined  to  a  different  quadrant  than  the  branch  cuts. 

To  avoid  loss  of  accuracy  due  to  cancellation  when  X  is  large,  is 
computed  from  the  approximation  for  y^  -  y^; 


Y2  -  Yi  * 


lc  -k  k-k  k  -k 

1  K1  2  112.1  1  2 

2  +  8  x3  +  16  X5 


when  I XI2  >  100.  Ik^2. 
The  sign  is: 


-  for  \  < 

-  £oc  \  * 
+  for  XR  > 

+  for  > 


k,  ,  Xx  >  0 

-k*  ,  X.  <  0 

k,  ,  XT  >  0 

-k,  ,  X-  <  0. 
2R  1 


There  is  no  cancellation  and  this  approximation  is  not  valid  when 

k2  i  *r  i  “y  Ai  2  0 
or  -ki  i  \  i  -y.  h  <  o. 


D  and  D-  are  computed  from  SA  30  to  SA  44 


SAOA 

SYMBOL  DICTIONARY 

ANS  *  integrand  values 

BO  -  2 Jp( Xp)  or  Hq^(Xp) 

BOP  -  2JQ(Xp)/p  or  ttJ)1)'(Xp)/p 

CGAM1  -  Yl 

CGAM2  -  Y2 

CKl  -  kL 

CK1R  *  real  part  of  k^ 

CK1SQ  -  k* 

CK2  -  k2 

CK2SQ  -  k2 

CKSM  -  k|/C kj+k*) 

COM  -  exp  [-Y2(Z+Z') JXdX/dT  at  SA  45 

CTi  -  (k^-k2)/2 

CT2  -  (k^-k2)/8 

CT3  -  (k*-k*)/16 

DENI  -  Dx 

DEN2  -  D2 

dgam  -  y2  -  yl 

DXL  -  dX/dT 

JH  ■  flag  to  select  Bessel  or  Hankel  function  form 

RHO  =*  p 

SIGN  *  sign  in  approximation  for  Y^  “  Y^ 

T  *  integration  parameter 

TKMAG  -  100. lkL I 

TSMAG  -  100. I kx 1 2 

XL  -  X 

XLR  *  real  part  of  X 

ZPH  -  Z  ♦  Z' 
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SAOA 


1 

SUBROUTINE  SAOA  (T.ANS) 

SA 

1 

2 

C 

SA 

2 

3 

C 

SAOA  COMPUTES  THE  INTEGRAND  FOR  EACH  OF  THE  6 

SA 

3 

4 

c 

SOMMERFELD  INTEGRALS  FOR  SOURCE  AND  OBSERVER  ABOVE  GROUND 

SA 

4 

S 

c 

SA 

5 

6 

COMPLEX  ANS , XL , DXL , CGAM1 , CGAM2 , BO , BOP , COM , CK 1 , CK1 SO , CKSM , CT 1 ,CT2 

,C  SA 

6 

7 

1T3, OGAM, DENI , 0EN2 

SA 

7 

8 

COMMON  /EVLCOM/  CKSM , CT1 ,CT2 ,CT3 . CK1 ,CK1 SQ.CK2 .CK2SQ , TKMAG , TSMAG 

,C  SA 

8 

9 

1K1R.ZPH.RH0, JH 

SA 

9 

10 

DIMENSION  ANS(6) 

SA 

10 

1 1 

CALL  LAMBDA  (T, XL. DXL) 

SA 

1 1 

12 

IF  (JH.GT.O)  GO  TO  1 

SA 

12 

13 

c 

BESSEL  FUNCTION  FORM 

SA 

13 

14 

CALL  BESSEL  (XL*RHO . BO , BOP) 

SA 

14 

15 

80=2 . *B0 

SA 

15 

16 

80P=2 . *B0P 

SA 

16 

17 

CGAM1=CSQRT(XL*XL-CK1SQ) 

SA 

17 

18 

CGAM2=CS0RT(XL*XL-CK2SQ) 

SA 

18 

19 

IF  (REAL(CGAMI).EO.O.)  CGAM1 =CMPLX( 0 . , -ABS( AIMAG( CGAM1 ) ) ) 

SA 

19 

20 

IF  (REAL(CGAM2) .EQ.O. )  CGAM2=CMPLX(0 . , -ABS( AIMAG(CGAM2) ) ) 

SA 

20 

21 

GO  TO  2 

SA 

21 

22 

c 

HANKEL  FUNCTION  FORM 

SA 

22 

23 

1 

CALL  HANKEL  (XL*RHO ,B0 , BOP) 

SA 

23 

24 

C0M=XL-CK1 

SA 

24 

25 

CGAM 1 =CSQR  T ( X  L+CK 1 ) • CSQR  T ( COM ) 

SA 

25 

26 

IF  (REAL (COM) .LT.O. . AND. AIMAG(COM) . GE.O . )  CGAM1=-CGAM1 

SA 

26 

27 

C0M=XL-CK2 

SA 

27 

28 

CGAM2=CSQRT ( XL+CK2 ) »CSQRT ( COM ) 

SA 

28 

29 

IF  (REAL(COM) .LT.O. .ANO.AIMAG(COM) .GE.O. )  CGAM2=-CGAM2 

SA 

29 

30 

2 

XLR=XL*CONJG(XL) 

SA 

30 

31 

IF  (XLR.LT. TSMAG)  GO  TO  3 

SA 

31 

32 

IF  (AIMAG(XL).LT.O.)  GO  TO  4 

SA 

32 

33 

XLR=REAL(XL) 

SA 

33 

34 

IF  (XLR.LT. CK2)  GO  TO  5 

SA 

34 

35 

IF  (XLR.GT.CK1R)  GO  TO  4 

SA 

35 

36 

3 

DG AM=C GAM2-CGAM1 

SA 

36 

37 

GO  TO  7 

SA 

37 

38 

4 

SIGN=1 . 

SA 

38 

39 

GO  TO  6 

SA 

39 

40 

5 

SIGN=- 1 . 

SA 

40 

41 

6 

DGAM=1 ./(XL*XL) 

SA 

41 

42 

DGAM=SIGN*( (CT3*DGAM+CT2) ‘DGAM+CT 1 )/XL 

SA 

42 

43 

7 

DEN2=CKSM*DGAM/(CGAM2*(CK1 SQ*CGAM2+CK2SQ*CGAM1 ) ) 

SA 

43 

44 

OEN 1 =1 . /( CGAM1 +CGAM2 ) -CKSM/CGAM2 

SA 

44 

45 

C0M=DXL*XL*CEXP(-CGAM2*ZPH) 

SA 

45 

46 

ANS(6)=C0M*B0*DEN1/CK1 

SA 

46 

47 

COM=COM*OEN2 

SA 

47 

48 

IF  (RHO .EQ.O.)  GO  TO  8 

SA 

48 

49 

B#P=BOP/RHO 

SA 

49 

50 

ANS( 1 ) =-COM*XL • ( BOP+BO • X  L ) 

SA 

50 

51 

ANS(4)=COM»XL*BOP 

SA 

51 

52 

GO  TO  9 

SA 

52 

S3 

8 

ANS( 1 )=-COM*XL*XL* . 5 

SA 

53 

54 

ANS(4)=ANS(1  ) 

SA 

54 

55 

9 

ANS ( 2 ) =COM • CGAM2 • CG AM2 • BO 

SA 

55 

56 

ANS ( 3 ) =-ANS ( 4 ) »CGAM2 • RHO 

SA 

56 

57 

ANS(5)=C0M*B0 

SA 

57 

58 

RETURN 

SA 

58 

59 

END 

SA 

59- 

-426- 


SECOND 


SECOND  -  see  SECOND  in  main  NEC  program. 
TEST  -  see  TEST  in  main  NEC  program. 


TEST 


2.  COMMON  BLOCKS  IN  SOMNEC 

COMMON /CNTOUR/  A,  B 


Routines  Using  /CNTOUR/ 

EVLUA,  GSHANK,  LAMBDA,  ROMI 

Parameters 

A  *  start  of  integration  interval 
B  ■  end  of  integration  interval 

A  and  B  are  used  by  subroutine  LAMBDA  to  compute  the  complex  value  of  X  from 
the  real  parameter  supplied  by  ROMI. 

COMMON/E VLCOM/  CKSM,  CTl,  CT2,  CT3,  CK1,  CK1SQ,  CK2,  CK2SQ,  TKMAG,  TSMAG, 
CK1R,  2 PH,  RHO,  JH 


Routines  Using  /E VLCOM/ 

SOMNEC,  EVLUA,  SAOA 

Parameters 

See  symbol  dictionaries  for  subroutines 

COMMON /GGRID/  AR1  (11,  10,  4),  AR2  (17,  5,  4),  AR3  (9,  8,  4),  EPSCF,  DXA(3), 
DYA( 3) ,  XSA(3),  YSA( 3) ,  NXA( 3) ,  NYA( 3) 

Routines  Using  /GGRID/ 

SOMNEC  (main  program) 

Parameters 

AR1  ■  array  for  grid  1  (see  Figure  12,  Part  I) 

AR2  *  array  for  grid  2 

AR3  ■  array  for  grid  3 

-  e 

c 


EPSCF 


For  grid  i,  ARi(j,  k,  m)  is  the  value  of  I  ,  I  , 

M  z 


M  »  1,  ...  4  respectively  at  the  point 


Rx/X 


S.  +  (j-l)AR. 
1  l 

Ti  +  (k-l)A6i 


where  S. 

i 


AR. 

i 


XSA(i) 

-  DXA(i) 
NXA(i) 


Ti  -  YSA(i) 


A61  *  DYA(i) 
-  NYA(i) 


I",  or  I"  for 
P  <P 


J 

k 


1, 

1, 


N. 

l 


M. 

1 


XSA  and  OXA  are  in  units  of  wavelength.  YSA  and  DYA  are  in  units  of  radians 
The  upper  limit  of  grid  1  (XSA(2)  ■  XSA(3))  and  the  upper  limit  of  grid  2 
(YSA(3))  may  be  changed  and  the  densities  of  points  may  be  changed. 
Boundaries  that  are  zero  should  not  be  changed  without  modifying  subroutine 


INTRP  in  NEC.  The  three  grids  must  cover  the  region  0  <  R^/A  <_  1  and 

0  <  0  <  n/2. 
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3.  ARRAY  DIMENSION  LIMITATIONS 

Number  of  Points  in  Interpolation  Grids 
Arrays; 

COMMON/GGRID/ AR1  (N^,  M^,  4),  AR2  (N2,  M2,  4),  AR3  (N3,  M3,  4) 
where  N^  >  NXA(i)  and  Mi  >  NYA(i) 

The  dimensions  in  common  /GGRID/  in  SOMNEC  must  be  Che  same  as  Che  dimension  of 
/GGRID/  in  NEC. 

Maximum  Number  of  Iceracions  in  GSHANX 


Arrays; 

Subroucine  GSHANK;  QL  (6,  MAXH) ,  Q2  (6,  MAXH) 
wnere  MAXH  *  maximum  value  of  INT  in  GSHANtC  sec  aC  GS  13. 
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